| line |
true |
false |
branch |
|
21
|
0 |
0 |
unless ($cycle_year =~ /^\d\d\d\d$/ or -d $srcdir) |
|
23
|
0 |
0 |
unless ($cycle_year =~ /^\d\d\d\d$/) |
|
27
|
0 |
0 |
unless (-d $srcdir) |
|
38
|
0 |
0 |
if $lastpath eq '' |
|
54
|
0 |
0 |
if $string =~ /[a-zA-Z]{4,}$cycle_year/ |
|
57
|
0 |
0 |
unless -e $logFilePath |
|
60
|
0 |
0 |
unless open FILE, ">>$logFile" |
|
92
|
0 |
0 |
if ($input =~ /^yes$/i) { } |
|
|
0 |
0 |
elsif ($input =~ /^no$/i) { } |
|
102
|
0 |
0 |
unless (grep(($_ eq $input), keys %findReplaceH)) |
|
108
|
0 |
0 |
if (scalar keys %findReplaceH == 0) |
|
117
|
0 |
0 |
unless -d $_ |
|
118
|
0 |
0 |
if $_ eq '.' or $_ eq '..' |
|
119
|
0 |
0 |
if $_ =~ /.svn|\.svn/ |
|
123
|
0 |
0 |
if ($new =~ /$pattern/) |
|
127
|
0 |
0 |
if ($_ eq $new) |
|
135
|
0 |
0 |
unless rename $_, $new |
|
136
|
0 |
0 |
unless open FILE, ">>$logFile" |
|
156
|
0 |
0 |
if $fileName =~ /(svn|\.svn)/gi |
|
158
|
0 |
0 |
if (-f $fileName) |
|
171
|
0 |
0 |
unless (fileFilterQ $currentFile) |
|
176
|
0 |
0 |
unless (open FILE, "<$currentFile") |
|
181
|
0 |
0 |
unless (close FILE) |
|
186
|
0 |
0 |
$useRegexQ ? : |
|
189
|
0 |
0 |
if ($replaceCount > 0) |
|
197
|
0 |
0 |
unless copy($currentFile, "$backupRoot/$pathAdd/$currentFileName") |
|
203
|
0 |
0 |
unless (open OUTFILE, ">$currentFile") |
|
205
|
0 |
0 |
unless (close OUTFILE) |
|
211
|
0 |
0 |
unless open FILE, ">>$logFile" |
|
219
|
0 |
0 |
unless open FILE, ">>$logFile" |
|
223
|
0 |
0 |
if (scalar @$refchangedFiles > 0) |