| line |
true |
false |
branch |
|
194
|
0 |
5 |
if ($opt_U ne "") |
|
197
|
0 |
5 |
if (defined $opt_backup) |
|
198
|
0 |
0 |
$opt_backup ne '' ? : |
|
204
|
0 |
5 |
unless $current_file = delete $arg{&FILELABEL} |
|
205
|
5 |
0 |
if $remember_data |
|
216
|
1 |
0 |
@_ ? : |
|
217
|
1 |
0 |
$diverted == 0 ? : |
|
218
|
0 |
1 |
unless open UPDATE_STDOUT, ">&", \*STDOUT |
|
220
|
0 |
1 |
unless open STDOUT, ">", $buffer |
|
224
|
1 |
0 |
$diverted == 1 ? : |
|
226
|
0 |
1 |
unless open STDOUT, ">&", \*UPDATE_STDOUT |
|
240
|
2 |
0 |
if ($fdpath and $remember_data) |
|
243
|
0 |
2 |
unless $fh = "IO::File"->new_tmpfile |
|
245
|
0 |
2 |
unless my $fd = $fh->fcntl(1, 0) |
|
246
|
0 |
2 |
unless $fh->fcntl(2, $fd & '18446744073709551614') |
|
252
|
0 |
2 |
unless @update_diffcmd |
|
272
|
0 |
1 |
unless recover_stdout() |
|
273
|
1 |
0 |
if $arg{'discard'} |
|
276
|
0 |
0 |
if $divert_buffer eq $_ |
|
277
|
0 |
0 |
if $divert_buffer eq "" |
|
279
|
0 |
0 |
if (my $suffix = $opt_suffix) |
|
287
|
0 |
0 |
if ($arg{'replace'}) { } |
|
288
|
0 |
0 |
if ($newname ne '') { } |
|
290
|
0 |
0 |
unless rename $filename, $newname |
|
291
|
0 |
0 |
if -f $filename |
|
302
|
0 |
0 |
unless open my $fh, ">", $create |