| line |
true |
false |
branch |
|
48
|
1 |
1 |
unless -d $self->{'ddir'} |
|
50
|
0 |
2 |
unless $self->{'snapshot'} = $self->_fetch_snapshot |
|
56
|
0 |
2 |
if $self->{'patchup'} |
|
74
|
0 |
2 |
if $self->{'server'} =~ m[^https?://]i |
|
77
|
0 |
2 |
unless (my $ftp = "Net::FTP"->new($self->{'server'}, "Debug", 0, "Passive", 1)) |
|
84
|
0 |
2 |
unless ($ftp->login(@login)) |
|
90
|
0 |
2 |
if $self->{'v'} |
|
91
|
0 |
2 |
unless ($ftp->cwd($self->{'sdir'})) |
|
100
|
0 |
2 |
unless ($snap_name) |
|
108
|
0 |
2 |
$self->{'vms_ddir'} ? : |
|
114
|
0 |
2 |
if (-f $local_snap and $snap_size == -s $local_snap) { } |
|
115
|
0 |
0 |
if $self->{'v'} |
|
117
|
0 |
2 |
if $self->{'v'} |
|
121
|
0 |
2 |
unless $ok |
|
123
|
0 |
2 |
if $ok and $self->{'v'} |
|
142
|
0 |
0 |
$self->{'server'} eq 'http://github.com/Perl' ? : |
|
144
|
0 |
0 |
if $self->{'v'} > 1 |
|
145
|
0 |
0 |
unless ($snap_name) |
|
157
|
0 |
0 |
if $self->{'v'} |
|
159
|
0 |
0 |
if (LWP::Simple::is_success($result)) { } |
|
|
0 |
0 |
elsif (LWP::Simple::is_error($result)) { } |
|
160
|
0 |
0 |
if $self->{'v'} |
|
163
|
0 |
0 |
if $self->{'v'} |
|
166
|
0 |
0 |
if $self->{'v'} |
|
184
|
0 |
2 |
if $verbose > 1 |
|
190
|
0 |
4 |
if $verbose > 1 |
|
193
|
4 |
0 |
if /^perl[\@#_]\d+/ |
|
195
|
0 |
4 |
if $verbose > 1 |
|
211
|
0 |
2 |
unless ($self->{'snapshot'} and -f $self->{'snapshot'}) |
|
222
|
0 |
2 |
$^O eq 'VMS' ? : |
|
224
|
0 |
2 |
unless (chdir $extract_base) |
|
233
|
1 |
1 |
if (/^Archive::Tar$/) |
|
244
|
0 |
2 |
unless (chdir $cwd) |
|
249
|
2 |
0 |
if ($self->{'cleanup'} & 1) |
|
267
|
0 |
1 |
unless (my $archive = "Archive::Tar"->new) |
|
273
|
0 |
1 |
if $self->{'v'} |
|
275
|
0 |
1 |
if ($Archive::Tar::error) |
|
282
|
0 |
1 |
if $self->{'v'} |
|
286
|
0 |
1 |
if $self->{'v'} |
|
302
|
1 |
0 |
if ($^O ne 'VMS') { } |
|
304
|
0 |
1 |
if $command eq $self->{'tar'} |
|
306
|
0 |
1 |
if $self->{'v'} |
|
307
|
0 |
1 |
if (system $command) |
|
313
|
0 |
1 |
if $self->{'v'} |
|
325
|
0 |
1 |
$^O eq 'VMS' ? : |
|
329
|
0 |
1 |
if $self->{'v'} |
|
342
|
0 |
0 |
$gzip_cmd =~ /^((?:MCR )?\S+)/ ? : |
|
343
|
0 |
0 |
$tar_cmd =~ /^((?:MCR )?\S+)/ ? : |
|
345
|
0 |
0 |
$verbose ? : |
|
347
|
0 |
0 |
if $verbose |
|
349
|
0 |
0 |
unless open TMPCOM, "> TS-UNTGZ.COM" |
|
350
|
0 |
0 |
unless close TMPCOM |
|
357
|
0 |
0 |
if $verbose |
|
406
|
0 |
2 |
unless (my $ftp = "Net::FTP"->new($self->{'pserver'}, "Debug", 0, "Passive", 1)) |
|
413
|
0 |
2 |
unless ($ftp->login(@user_info)) |
|
419
|
0 |
2 |
unless ($ftp->cwd($self->{'pdir'})) |
|
425
|
0 |
2 |
if $self->{'v'} |
|
430
|
0 |
10 |
unless $entry =~ /^(\d+)\.gz$/ |
|
432
|
2 |
8 |
unless $patch_num > $patch_number |
|
438
|
0 |
8 |
if (-f $local_patch and -s $local_patch == $patch_size) { } |
|
439
|
0 |
0 |
if $self->{'v'} |
|
442
|
0 |
8 |
if $self->{'v'} |
|
444
|
0 |
8 |
if $self->{'v'} |
|
446
|
8 |
0 |
if $l_file |
|
474
|
0 |
2 |
unless (chdir $self->{'ddir'}) |
|
482
|
0 |
8 |
unless my $patch = $self->_read_patch($file) |
|
491
|
0 |
8 |
if ($@) |
|
497
|
8 |
0 |
if $file =~ /(\d+)\.gz$/ |
|
499
|
8 |
0 |
if ($self->{'cleanup'} & 2) |
|
503
|
0 |
2 |
unless (chdir $cwd) |
|
518
|
0 |
8 |
unless -f $file |
|
521
|
4 |
4 |
if ($self->{'unzip'} eq 'Compress::Zlib') { } |
|
523
|
0 |
4 |
unless (my $unzip = Compress::Zlib::gzopen($file, "rb")) |
|
532
|
0 |
4 |
unless ($Compress::Zlib::gzerrno == Compress::Zlib::Z_STREAM_END()) |
|
558
|
0 |
8 |
unless defined $new_level and $new_level =~ /^\d+$/ |
|
564
|
8 |
0 |
if (open DOTPATCH, "> $dot_patch") |
|
566
|
8 |
0 |
close DOTPATCH ? : |
|
586
|
0 |
2 |
unless opendir DIR, $dir |