diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-31 03:33:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-31 03:33:02 +0000 |
| commit | 507efa3c71aad0181630e5fdedefb24f9fe22153 (patch) | |
| tree | 2a15678178774ff4e6434fc7fee2cfbf0b079ea6 | |
| parent | b14a6713a2449d527fa94b2788eed3c17c6394e3 (diff) | |
| download | perl-507efa3c71aad0181630e5fdedefb24f9fe22153.tar.gz | |
OverVMSification.
p4raw-id: //depot/perl@9487
| -rw-r--r-- | t/lib/cwd.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/lib/cwd.t b/t/lib/cwd.t index f507918e39..3b301d982c 100644 --- a/t/lib/cwd.t +++ b/t/lib/cwd.t @@ -72,8 +72,12 @@ 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"; # This checked out OK on ODS-2 and ODS-5: -$want = "T\.PTEERSLT\.PATH\.TO\.A\.DIR\]"; +$want = "T\.PTEERSLT\.PATH\.TO\.A\.DIR\]" if $^O eq 'VMS'; print +($cwd =~ m|$want$| ? "" : "not "), "ok 7\n"; print +($getcwd =~ m|$want$| ? "" : "not "), "ok 8\n"; print +($fastcwd =~ m|$want$| ? "" : "not "), "ok 9\n"; |