| line |
true |
false |
branch |
|
45
|
0 |
0 |
-f $rootfile ? :
|
|
54
|
0 |
0 |
if ($self->quiet)
|
|
68
|
0 |
0 |
if (-f $rootfile)
|
|
76
|
0 |
0 |
unless ($root)
|
|
90
|
0 |
0 |
unless chdir $dir
|
|
92
|
0 |
0 |
unless (-e $logfile)
|
|
95
|
0 |
0 |
unless sysopen my $fh, $logfile, 2369
|
|
97
|
0 |
0 |
unless $fh->close
|
|
105
|
0 |
0 |
if ($self->quiet)
|
|
112
|
0 |
0 |
if ($self->dryrun) { }
|
|
117
|
0 |
0 |
if ($? != 0)
|
|
122
|
0 |
0 |
unless chdir $orig_dir
|
|
134
|
0 |
0 |
unless chdir $dir
|
|
140
|
0 |
0 |
if ($line =~ /^File: (.+?)\s+Status: (.+)$/)
|
|
142
|
0 |
0 |
unless ($status =~ /Up-to-date/)
|
|
148
|
0 |
0 |
unless chdir $orig_dir
|
|
152
|
0 |
0 |
if (scalar @notcommitted > 0) { }
|
|
159
|
0 |
0 |
if (wantarray) { }
|
|
177
|
0 |
0 |
unless chdir $dir
|
|
180
|
0 |
0 |
if ($@)
|
|
185
|
0 |
0 |
if ($@)
|
|
190
|
0 |
0 |
if ($@)
|
|
194
|
0 |
0 |
unless chdir $orig_dir
|
|
205
|
0 |
0 |
if (-f $path)
|
|
210
|
0 |
0 |
if (length $dirs[-1] == 0)
|
|
214
|
0 |
0 |
if ($dirs[-1] eq 'CVS' and $basename eq 'Entries')
|
|
222
|
0 |
0 |
if ($dirs[0] eq $workdir->[$i]) { }
|
|
232
|
0 |
0 |
unless my $fh = 'IO::File'->new($path, 'r')
|
|
236
|
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)
|
|
259
|
0 |
0 |
unless ($self->dryrun)
|
|
262
|
0 |
0 |
if ($@)
|
|
269
|
0 |
0 |
if (length $workdir[-1] == 0)
|
|
296
|
0 |
0 |
unless ($self->dryrun)
|
|
297
|
0 |
0 |
unless (-d $builddir)
|
|
299
|
0 |
0 |
if ($@)
|
|
304
|
0 |
0 |
if (-d $exportdir)
|
|
311
|
0 |
0 |
unless chdir $builddir
|
|
316
|
0 |
0 |
unless chdir $orig_dir
|
|
325
|
0 |
0 |
unless (defined $outdir)
|
|
330
|
0 |
0 |
if (defined $version)
|
|
338
|
0 |
0 |
unless chdir $outdir
|
|
342
|
0 |
0 |
unless chdir $orig_dir
|
|
351
|
0 |
0 |
unless (defined $message)
|
|
360
|
0 |
0 |
unless chdir $dir
|
|
367
|
0 |
0 |
unless chdir $orig_dir
|