From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 26 Apr 2003 15:53:07 +0000 (-0500)
Subject: VMS::Stdio test tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab6cc5a958ed09927cf4f23825dac453d405148b;p=p5sagit%2Fp5-mst-13.2.git

VMS::Stdio test tweak
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3EAAF1B3.7020708@mac.com>

p4raw-id: //depot/perl@19349
---

diff --git a/vms/ext/Stdio/test.pl b/vms/ext/Stdio/test.pl
index 2f73573..2b2f7be 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');