| line |
true |
false |
branch |
|
43
|
0 |
0 |
-f $rootfile ? :
|
|
52
|
0 |
0 |
if ($self->quiet)
|
|
66
|
0 |
0 |
if (-f $rootfile)
|
|
74
|
0 |
0 |
unless ($root)
|
|
88
|
0 |
0 |
unless chdir $dir
|
|
90
|
0 |
0 |
unless (-e $logfile)
|
|
93
|
0 |
0 |
unless sysopen my $fh, $logfile, 2369
|
|
95
|
0 |
0 |
unless $fh->close
|
|
103
|
0 |
0 |
if ($self->quiet)
|
|
110
|
0 |
0 |
if ($self->dryrun) { }
|
|
115
|
0 |
0 |
if ($? != 0)
|
|
120
|
0 |
0 |
unless chdir $orig_dir
|
|
132
|
0 |
0 |
unless chdir $dir
|
|
138
|
0 |
0 |
if ($line =~ /^File: (.+?)\s+Status: (.+)$/)
|
|
140
|
0 |
0 |
unless ($status =~ /Up-to-date/)
|
|
146
|
0 |
0 |
unless chdir $orig_dir
|
|
150
|
0 |
0 |
if (scalar @notcommitted > 0) { }
|
|
157
|
0 |
0 |
if (wantarray) { }
|
|
175
|
0 |
0 |
unless chdir $dir
|
|
178
|
0 |
0 |
if ($@)
|
|
183
|
0 |
0 |
if ($@)
|
|
188
|
0 |
0 |
if ($@)
|
|
192
|
0 |
0 |
unless chdir $orig_dir
|
|
203
|
0 |
0 |
if (-f $path)
|
|
208
|
0 |
0 |
if (length $dirs[-1] == 0)
|
|
212
|
0 |
0 |
if ($dirs[-1] eq 'CVS' and $basename eq 'Entries')
|
|
220
|
0 |
0 |
if ($dirs[0] eq $workdir->[$i]) { }
|
|
230
|
0 |
0 |
unless my $fh = 'IO::File'->new($path, 'r')
|
|
234
|
0 |
0 |
if ($entry =~ m[^/ # Line starts with a forward slash
([^/]+) # Stuff which is not a forward slash
/ # Another forward slash
\d # Any digit (avoids deleted files)
]x)
|
|
257
|
0 |
0 |
unless ($self->dryrun)
|
|
260
|
0 |
0 |
if ($@)
|
|
267
|
0 |
0 |
if (length $workdir[-1] == 0)
|
|
294
|
0 |
0 |
unless ($self->dryrun)
|
|
295
|
0 |
0 |
unless (-d $builddir)
|
|
297
|
0 |
0 |
if ($@)
|
|
302
|
0 |
0 |
if (-d $exportdir)
|
|
309
|
0 |
0 |
unless chdir $builddir
|
|
314
|
0 |
0 |
unless chdir $orig_dir
|
|
323
|
0 |
0 |
unless (defined $outdir)
|
|
328
|
0 |
0 |
if (defined $version)
|
|
336
|
0 |
0 |
unless chdir $outdir
|
|
340
|
0 |
0 |
unless chdir $orig_dir
|
|
349
|
0 |
0 |
unless (defined $message)
|
|
358
|
0 |
0 |
unless chdir $dir
|
|
365
|
0 |
0 |
unless chdir $orig_dir
|