X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FCompress%2FZlib%2Ft%2F20tied.t;h=3b18db1bd1d7d244544d617c906c6b058ea648c1;hb=9f2e35140733c7b8f4ab179f11bf740ca3d2130e;hp=72d8d66421dc01aa904cdc3d2bb8042f4241a82f;hpb=1fcb18de6aa4bd3b565067cad38df0ca202f89d0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Compress/Zlib/t/20tied.t b/ext/Compress/Zlib/t/20tied.t
index 72d8d66..3b18db1 100644
--- a/ext/Compress/Zlib/t/20tied.t
+++ b/ext/Compress/Zlib/t/20tied.t
@@ -152,8 +152,7 @@ foreach my $CompressClass ('IO::Compress::Gzip',
         # Write
         # these tests come almost 100% from IO::String
 
-        my $name = "test.gz" ;
-        my $lex = new LexFile $name ;
+        my $lex = new LexFile my $name ;
 
         my $io = $CompressClass->new($name);
 
@@ -216,8 +215,7 @@ and a single line.
 
 EOT
 
-        my $name = "test.gz" ;
-        my $lex = new LexFile $name ;
+        my $lex = new LexFile my $name ;
 
         my $iow = new $CompressClass $name ;
         print $iow $str ;
@@ -348,8 +346,7 @@ and a single line.
 
 EOT
 
-        my $name = "test.gz" ;
-        my $lex = new LexFile $name ;
+        my $lex = new LexFile my $name ;
 
         writeFile($name, $str);
         my @tmp;
@@ -480,8 +477,7 @@ EOT
                 {
                     title "Read Tests - buf length $bufsize, Transparent $trans, Append $append" ;
 
-                    my $name = "testz.gz" ;
-                    my $lex = new LexFile $name ;
+                    my $lex = new LexFile my $name ;
 
                     if ($trans) {
                         writeFile($name, $str) ;