fix smoke issues with the compression modules

[p5sagit/p5-mst-13.2.git] / t / lib / compress / generic.pl

diff --git a/t/lib/compress/generic.pl b/t/lib/compress/generic.pl
index 4e2f113..54abab0 100644 (file)
--- a/t/lib/compress/generic.pl
+++ b/t/lib/compress/generic.pl
@@ -87,8 +87,8 @@ sub run
 
         ok ! -e $name, "  $name does not exist";
         
-        eval qq[\$a = new $UncompressClass "$name" ;] ;
-        is lc($!), "no such file or directory", '$! = "no such file or directory"';
+        $a = new $UncompressClass "$name" ;
+        is $a, undef;
 
         my $gc ;
         my $guz = new $CompressClass(\$gc);