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 /vms | |
| 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 'vms')
| -rw-r--r-- | vms/ext/filespec.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 7a68f59845..7123ffc51c 100644 --- a/vms/ext/filespec.t +++ b/vms/ext/filespec.t @@ -30,7 +30,7 @@ $defwarn = <<'EOW'; # file specifications shwn above are in fact equivalent. EOW -is(rmsexpand('[]'), "\U$ENV{DEFAULT}", 'rmsexpand()') || print $defwarn; +is(uc(rmsexpand('[]')), "\U$ENV{DEFAULT}", 'rmsexpand()') || print $defwarn; is(rmsexpand('from.here'),"\L$ENV{DEFAULT}from.here") || print $defwarn; is(rmsexpand('from'), "\L$ENV{DEFAULT}from") || print $defwarn; |