RE: Failing tests on VMS blead@26652

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / t / 08encoding.t

diff --git a/ext/Compress/Zlib/t/08encoding.t b/ext/Compress/Zlib/t/08encoding.t
index 9eda40d..4e32d64 100644 (file)
--- a/ext/Compress/Zlib/t/08encoding.t
+++ b/ext/Compress/Zlib/t/08encoding.t
@@ -95,11 +95,11 @@ if(0)
 {
     title "gzopen" ;
 
-    my $name = "test.gz" ;
     my $s = "\x{df}\x{100}";                                   
     my $byte_len = length( Encode::encode_utf8($s) );
     my ($uncomp) ;
 
+    my $lex = new LexFile my $name ;
     ok my $fil = gzopen($name, "wb"), "  gzopen for write ok" ;
 
     is $fil->gzwrite(Encode::encode_utf8($s)), $byte_len, "  wrote $byte_len bytes" ;
@@ -113,8 +113,6 @@ if(0)
 
     ok ! $fil->gzclose, "gzclose ok" ;
 
-    unlink $name ;
-
     is $s, Encode::decode_utf8($uncomp), "  decode_utf8 ok" ;
 
 }