RE: Failing tests on VMS blead@26652

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / t / 06gzsetp.t

diff --git a/ext/Compress/Zlib/t/06gzsetp.t b/ext/Compress/Zlib/t/06gzsetp.t
index 68dd0d1..eaba1f4 100644 (file)
--- a/ext/Compress/Zlib/t/06gzsetp.t
+++ b/ext/Compress/Zlib/t/06gzsetp.t
@@ -56,8 +56,7 @@ is Compress::Zlib::zlib_version, ZLIB_VERSION,
 
     my ($input, $err, $answer, $X, $status, $Answer);
      
-    my $name = "test.gz" ;
-    unlink $name ;
+    my $lex = new LexFile my $name;
     ok my $x = gzopen($name, "wb");
 
     $input .= $hello;
@@ -90,7 +89,6 @@ is Compress::Zlib::zlib_version, ZLIB_VERSION,
     ok $k->gzeof ;
     ok ! $k->gzclose ;
     ok $k->gzeof  ;
-    unlink $name;
 }