RE: Failing tests on VMS blead@26652

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / t / 15multi.t

diff --git a/ext/Compress/Zlib/t/15multi.t b/ext/Compress/Zlib/t/15multi.t
index 2cb6dec..0b65ef6 100644 (file)
--- a/ext/Compress/Zlib/t/15multi.t
+++ b/ext/Compress/Zlib/t/15multi.t
@@ -81,8 +81,7 @@ foreach my $CompressClass ('IO::Compress::Gzip',
 
             }
 
-            my $name = "test.gz" ;
-            my $lex = new LexFile $name ;
+            my $lex = new LexFile my $name ;
             my $output ;
             if ($fb eq 'buffer')
             {