diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-31 03:39:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-31 03:39:51 +0000 |
| commit | d39e935932816a4deccbeecc521d949f9074ab8e (patch) | |
| tree | 5b49d3e471b1868f1a7fa5c82c8ddafab7acb4ad | |
| parent | 507efa3c71aad0181630e5fdedefb24f9fe22153 (diff) | |
| download | perl-d39e935932816a4deccbeecc521d949f9074ab8e.tar.gz | |
Debug output tweak.
p4raw-id: //depot/perl@9488
| -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"; |