5.004_58 QNX getcwd

[p5sagit/p5-mst-13.2.git] / t / op / magic.t

diff --git a/t/op/magic.t b/t/op/magic.t
index ace49b5..ab23d84 100755 (executable)
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -109,7 +109,7 @@ ok 18, $$ > 0, $$;
 # $^X and $0
 {
     if ($^O eq 'qnx') {
-       chomp($wd = `pwd`);
+       chomp($wd = `/usr/bin/fullpath -t`);
     }
     else {
        $wd = '.';