diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-04-26 10:53:07 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-27 06:50:09 +0000 |
| commit | ab6cc5a958ed09927cf4f23825dac453d405148b (patch) | |
| tree | 2df0b8b77d57ab69c4a3b517df5a6e4535d38bbb /vms | |
| parent | a2b59c1fd3e639743fd29c128802456a1105afef (diff) | |
| download | perl-ab6cc5a958ed09927cf4f23825dac453d405148b.tar.gz | |
VMS::Stdio test tweak
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3EAAF1B3.7020708@mac.com>
p4raw-id: //depot/perl@19349
Diffstat (limited to 'vms')
| -rwxr-xr-x | vms/ext/Stdio/test.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/ext/Stdio/test.pl b/vms/ext/Stdio/test.pl index 2f735734c1..2b2f7beba4 100755 --- a/vms/ext/Stdio/test.pl +++ b/vms/ext/Stdio/test.pl @@ -28,7 +28,7 @@ chop($line = <$fh>); print +($line eq localtime($time) ? '' : 'not '), "ok 9\n"; ($gotname) = (getname($fh) =~/\](.*);/); -print +($gotname eq "\U$name.tmp" ? '' : 'not '), "ok 10\n"; +print +("\U$gotname" eq "\U$name.tmp" ? '' : 'not '), "ok 10\n"; $sfh = VMS::Stdio::vmssysopen($name, O_RDONLY, 0, 'ctx=rec', 'shr=put', 'dna=.tmp'); |