diff options
Diffstat (limited to 'vms/ext/filespec.t')
| -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; |