| line |
true |
false |
branch |
|
56
|
0 |
0 |
if ($use_vms_feature) { } |
|
69
|
0 |
0 |
if ($use_vms_feature) { } |
|
201
|
0 |
0 |
if $^O ne 'amigaos' |
|
202
|
0 |
0 |
if @localize |
|
208
|
0 |
0 |
if defined $cwd |
|
276
|
0 |
0 |
unless CORE::chdir '..' |
|
278
|
0 |
0 |
if $odev == $cdev and $oino == $cino |
|
279
|
0 |
0 |
unless opendir DIR, '.' |
|
282
|
0 |
0 |
unless defined $direntry |
|
283
|
0 |
0 |
if $direntry eq '.' |
|
284
|
0 |
0 |
if $direntry eq '..' |
|
287
|
0 |
0 |
unless $tdev != $odev or $tino != $oino |
|
290
|
0 |
0 |
unless defined $direntry |
|
294
|
0 |
0 |
if ($^O eq 'apollo') |
|
297
|
0 |
0 |
unless $path =~ /^(.*)\z/s and CORE::chdir $1 |
|
300
|
0 |
0 |
if $cdev != $orig_cdev or $cino != $orig_cino |
|
315
|
0 |
0 |
if ($ENV{'PWD'} and $^O ne 'os2' and $^O ne 'dos' and $^O ne 'MSWin32') { } |
|
318
|
0 |
0 |
if (not defined $dd && defined $pd or $di != $pi or $dd != $pd) |
|
324
|
0 |
0 |
if $^O eq 'MSWin32' |
|
328
|
0 |
0 |
if ($^O ne 'MSWin32' and $ENV{'PWD'} =~ m[(/[^/]+(/[^/]+/[^/]+))(.*)]s) |
|
331
|
0 |
0 |
if (defined $pd and defined $dd and $di == $pi and $dd == $pd) |
|
339
|
0 |
0 |
@_ ? : |
|
340
|
0 |
0 |
if ($^O eq 'cygwin') { } |
|
|
0 |
0 |
elsif ($^O ne 'MSWin32') { } |
|
347
|
0 |
0 |
unless $chdir_init |
|
349
|
0 |
0 |
if ($^O eq 'MSWin32') |
|
354
|
0 |
0 |
unless CORE::chdir $newdir |
|
356
|
0 |
0 |
if ($^O eq 'VMS') { } |
|
|
0 |
0 |
elsif ($^O eq 'MSWin32') { } |
|
364
|
0 |
0 |
if (ref $newdir eq 'GLOB') { } |
|
|
0 |
0 |
elsif ($newdir =~ m[^/]s) { } |
|
370
|
0 |
0 |
unless @curdir |
|
373
|
0 |
0 |
if $component eq '.' |
|
374
|
0 |
0 |
if $component eq '..' |
|
385
|
0 |
0 |
@_ ? : |
|
388
|
0 |
0 |
unless (@cst = stat $start) |
|
393
|
0 |
0 |
unless (-d _) |
|
397
|
0 |
0 |
unless my($dir, $file) = $start =~ m[^(.*)/(.+)$] |
|
401
|
0 |
0 |
if (-l $start) |
|
403
|
0 |
0 |
unless defined $link_target |
|
406
|
0 |
0 |
unless 'File::Spec'->file_name_is_absolute($link_target) |
|
412
|
0 |
0 |
$dir ? : |
|
422
|
0 |
0 |
unless (opendir PARENT, $dotdots) |
|
426
|
0 |
0 |
unless (@cst = stat $dotdots) |
|
433
|
0 |
0 |
if ($pst[0] == $cst[0] and $pst[1] == $cst[1]) { } |
|
441
|
0 |
0 |
unless (defined($dir = readdir PARENT)) |
|
448
|
0 |
0 |
unless @tst = lstat "$dotdots/$dir" |
|
453
|
0 |
0 |
defined $dir ? : |
|
456
|
0 |
0 |
unless $cwd eq '/' |
|
465
|
0 |
0 |
unless defined $cwd |
|
467
|
0 |
0 |
@_ ? : |
|
474
|
0 |
0 |
unless (-e $path) |
|
480
|
0 |
0 |
unless (-d _) |
|
484
|
0 |
0 |
unless length $dir |
|
486
|
0 |
0 |
if (-l $path) |
|
488
|
0 |
0 |
unless defined $link_target |
|
490
|
0 |
0 |
unless 'File::Spec'->file_name_is_absolute($link_target) |
|
496
|
0 |
0 |
$dir eq 'File::Spec'->rootdir ? : |
|
501
|
0 |
0 |
unless (CORE::chdir $path) |
|
505
|
0 |
0 |
unless (-d $cwd and CORE::chdir $cwd) |
|
531
|
0 |
0 |
unless @_ |
|
537
|
0 |
0 |
if (defined &VMS::Filespec::vmsrealpath) |
|
541
|
0 |
0 |
if $path =~ m[(?<=\^)/] |
|
542
|
0 |
0 |
if $path =~ /^\.\.?$/ |
|
543
|
0 |
0 |
if $path =~ /[\[<\]]/ |
|
544
|
0 |
0 |
if $path =~ /^--?$/ |
|
547
|
0 |
0 |
if ($efs) |
|
549
|
0 |
0 |
if ($path_vms == $path_unix) { } |
|
552
|
0 |
0 |
if $path_vms |
|
556
|
0 |
0 |
if ($unix_mode) |
|
566
|
0 |
0 |
if -d $path |
|
573
|
0 |
0 |
if (-l $path) |
|
575
|
0 |
0 |
unless defined $link_target |
|
582
|
0 |
0 |
if defined $pathified |
|
615
|
0 |
0 |
if (not defined &Dos::GetCwd) { } |
|
639
|
0 |
0 |
@_ ? : |
|
642
|
0 |
0 |
unless defined(open(REALPATH, '-|') || exec('/usr/bin/fullpath', '-t', $path)) |