diff options
Diffstat (limited to 't/op/magic.t')
| -rw-r--r-- | t/op/magic.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index dd6d28e1bd..5569154fcd 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -230,10 +230,11 @@ $$ = $pid; # Tests below use $$ # $^X and $0 { + my $is_abs = $Config{d_procselfexe} || $Config{usekernprocpathname}; if ($^O eq 'qnx') { chomp($wd = `/usr/bin/fullpath -t`); } - elsif($Is_Cygwin || $Config{'d_procselfexe'}) { + elsif($Is_Cygwin || $is_abs) { # Cygwin turns the symlink into the real file chomp($wd = `pwd`); $wd =~ s#/t$##; @@ -248,7 +249,7 @@ $$ = $pid; # Tests below use $$ else { $wd = '.'; } - my $perl = $Is_VMS || $Config{d_procselfexe} ? $^X : "$wd/perl"; + my $perl = $Is_VMS || $is_abs ? $^X : "$wd/perl"; my $headmaybe = ''; my $middlemaybe = ''; my $tailmaybe = ''; |