line |
true |
false |
branch |
238
|
0 |
2 |
if $n <= 0 |
253
|
1 |
1 |
if ($m > $$ra[3]) |
258
|
1 |
1 |
if $n > $p |
267
|
2 |
0 |
if ($n != $m) |
268
|
0 |
2 |
if ($m < $j) { } |
|
0 |
2 |
elsif ($n > $i) { } |
269
|
0 |
0 |
if ($j - $m < 1000) { } |
276
|
0 |
0 |
if ($n - $i < 1000) { } |
307
|
0 |
1 |
if ($$ra[0]) { } |
|
0 |
1 |
elsif (/^a\s*$/) { } |
|
0 |
1 |
elsif (/^([0-9]+)a/) { } |
|
0 |
1 |
elsif (/^d\s*$/) { } |
|
0 |
1 |
elsif (/^([0-9]+)d/) { } |
|
1 |
0 |
elsif (/^([0-9]+),([0-9]+)d/) { } |
|
0 |
0 |
elsif (/^c\s*$/) { } |
|
0 |
0 |
elsif (/^([0-9]+)c/) { } |
|
0 |
0 |
elsif (/^([0-9]+),([0-9]+)c/) { } |
|
0 |
0 |
elsif (m[^s/\^?\\?\.//\s*$]) { } |
|
0 |
0 |
elsif (/^w/) { } |
|
0 |
0 |
elsif (/^\s*$/) { } |
308
|
0 |
0 |
if (not /^\.$/) { } |
310
|
0 |
0 |
if ($i == $j) |
326
|
0 |
0 |
if ($i > 4) { } |
|
0 |
0 |
elsif ($j < $$ra[3]) { } |
327
|
0 |
0 |
if ($j < $$ra[3]) { } |
349
|
0 |
0 |
if ($i > 4) |
359
|
0 |
0 |
if ($i > 4) |
397
|
0 |
0 |
if (not ref $_) { } |
398
|
0 |
0 |
unless Do1 $self, $_ |
401
|
0 |
0 |
unless Do1 $self, $_ |
425
|
0 |
0 |
if (@args < 3) |
426
|
0 |
0 |
unless print STDERR "Copyright (C) 2006-2009 Jakob Bohm. All Rights Reserved.\nusage: rred file.old file.new file.patch1 [ file.patch2 ... ]\n (perl open magics are supported in all file names)\nApplies one or more diff --ed or diff -e patches to file.old, creating\n file.new . file.old and file.new can be the same file. Perl open\n magics are supported in all input file names. This help is displayed\n on stderr, use rred --help 2>file to capture it.\nexample:\n zcat Packages.diff/2006-04-23-1343.24.gz \\\n Packages.diff/2006-04-24-1329.37.gz |\n rred Packages Packages -\n" |
448
|
0 |
0 |
unless open FH, $namIn |
449
|
0 |
0 |
unless my(@lines) = |
450
|
0 |
0 |
unless close FH |
455
|
0 |
0 |
unless open FH, $fn |
457
|
0 |
0 |
unless close FH |
462
|
0 |
0 |
unless open FH, '>', $namOut |
463
|
0 |
0 |
unless print FH @lines |
464
|
0 |
0 |
unless close FH |