| line |
true |
false |
branch |
|
46
|
0 |
0 |
if (-d $_[-1]) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
57
|
0 |
0 |
if (-f $outfile and not $g_clobber) |
|
60
|
0 |
0 |
if (uc substr($reply, 0, 1) eq 'N') |
|
79
|
0 |
0 |
if ($$ref[0] eq '-') { } |
|
83
|
0 |
0 |
unless open $script_h, '<', $$ref[0] |
|
91
|
0 |
0 |
if ($DEBUG) |
|
102
|
0 |
0 |
if (@the_script) { } |
|
134
|
0 |
0 |
if ($in_lines[0] =~ m[^#!\s*.*/(\w+)]) |
|
145
|
0 |
0 |
if ($temp =~ /($open_delimiters)/) |
|
150
|
0 |
0 |
unless ($line =~ /$pattern/) |
|
159
|
0 |
0 |
if ($line =~ s/\s+(#.*)$//) |
|
169
|
0 |
0 |
if $delim ne q['] and $delim ne '"' |
|
173
|
0 |
0 |
if index($in_lines[$i], $delimiters{$delim}) > -1 |
|
177
|
0 |
0 |
if ($comments) |
|
206
|
0 |
0 |
if ($$ref[0] =~ /^#!/) |
|
207
|
0 |
0 |
if ($$ref[0] =~ /^#!.*(t?csh|perl|awk|sed)/) |
|
220
|
0 |
0 |
if $g_integer |
|
234
|
0 |
0 |
if ($line =~ /^\s*$/) |
|
244
|
0 |
0 |
if (substr($line, -1) eq '\\') |
|
250
|
0 |
0 |
if ($line) |
|
254
|
0 |
0 |
if ($DEBUG) |
|
259
|
0 |
0 |
if ($g_display and not $line =~ /^\s*#/) |
|
266
|
0 |
0 |
unless (defined $statement) |
|
271
|
0 |
0 |
if (defined $here_label) |
|
273
|
0 |
0 |
if ($here_label eq $line) { } |
|
287
|
0 |
0 |
if ($line =~ /^(\w+)\s*\(\)(.*)/) |
|
303
|
0 |
0 |
if (exists $g_block_commands{$tok} and $delimiter eq ';') |
|
314
|
0 |
0 |
if ($tok eq '<<') |
|
316
|
0 |
0 |
unless (defined $tokens[$i]) |
|
335
|
0 |
0 |
if ($tok eq $delimiter) { } |
|
|
0 |
0 |
elsif (defined $statement) { } |
|
339
|
0 |
0 |
if (defined $tokens[$i + 1] and $tokens[$i + 1] eq '<<') { } |
|
|
0 |
0 |
elsif (defined $tokens[$i + 1] and $tokens[$i + 1] eq '<' || $tokens[$i + 1] eq '>' || $tokens[$i + 1] eq '>>') { } |
|
|
0 |
0 |
elsif ($tok ne ';') { } |
|
344
|
0 |
0 |
unless (defined $tokens[$i]) |
|
360
|
0 |
0 |
unless (defined $tokens[$i]) |
|
374
|
0 |
0 |
if (defined $statement) |
|
396
|
0 |
0 |
if (defined $statement and $delimiter eq ';') { } |
|
|
0 |
0 |
elsif ($delimiter eq 'esac') { } |
|
|
0 |
0 |
elsif (defined $statement) { } |
|
443
|
0 |
0 |
if exists $args{'i'} |
|
444
|
0 |
0 |
if exists $args{'f'} |
|
445
|
0 |
0 |
if exists $args{'t'} |
|
447
|
0 |
0 |
if (@ARGV < 2) |