diff options
| -rw-r--r-- | t/lib/cwd.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/lib/cwd.t b/t/lib/cwd.t index 3b301d982c..1ddaf250c2 100644 --- a/t/lib/cwd.t +++ b/t/lib/cwd.t @@ -72,10 +72,10 @@ my $getcwd = getcwd; my $fastcwd = fastcwd; my $fastgetcwd = fastgetcwd; my $want = "t/pteerslt/path/to/a/dir"; -print "# cwd = $cwd\n"; -print "# getcwd = $getcwd\n"; -print "# fastcwd = $fastcwd\n"; -print "# fastgetcw= $fastgetcwd\n"; +print "# cwd = '$cwd'\n"; +print "# getcwd = '$getcwd'\n"; +print "# fastcwd = '$fastcwd'\n"; +print "# fastgetcwd = '$fastgetcwd'\n"; # This checked out OK on ODS-2 and ODS-5: $want = "T\.PTEERSLT\.PATH\.TO\.A\.DIR\]" if $^O eq 'VMS'; print +($cwd =~ m|$want$| ? "" : "not "), "ok 7\n"; |