diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-02-27 09:36:38 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-27 21:17:38 +0000 |
| commit | b4558e5933d6def23121d1604bcf78459fa609fe (patch) | |
| tree | 190fe434e1c2c6e47a5cdbfb295bd9b41d4477a6 /ext/Cwd | |
| parent | a0457be16b8088455208a5b5ab035da17cb9f707 (diff) | |
| download | perl-b4558e5933d6def23121d1604bcf78459fa609fe.tar.gz | |
assorted VMS test fix-ups, $Config{prefixexp} revisited
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020227152131.01ade728@exchi01>
p4raw-id: //depot/perl@14902
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/t/cwd.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index 8fc61b85fa..919cfb1527 100644 --- a/ext/Cwd/t/cwd.t +++ b/ext/Cwd/t/cwd.t @@ -65,9 +65,9 @@ my $Test_Dir = "$Top_Test_Dir/_path_/_to_/_a_/_dir_"; my $want = "t/$Test_Dir"; if( $IsVMS ) { # translate the unixy path to VMSish - $want = uc $want; $want =~ s|/|\.|g; $want .= '\]'; + $want = '((?i)' . $want . ')'; # might be ODS-2 or ODS-5 } mkpath(["$Test_Dir"], 0, 0777); @@ -94,7 +94,7 @@ print "#$ENV{PWD}\n"; rmtree([$Top_Test_Dir], 0, 0); if ($IsVMS) { - like($ENV{PWD}, qr|\bT\]$|); + like($ENV{PWD}, qr|\b((?i)t)\]$|); } else { like($ENV{PWD}, qr|\bt$|); |