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 (executable)
--- 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');