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 fbbc64e..0b65ef6 100644 (file)
--- a/ext/Compress/Zlib/t/15multi.t
+++ b/ext/Compress/Zlib/t/15multi.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = ("../lib", "lib");
+    }
+}
 
 use lib 't';
 use strict;
@@ -75,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')
             {