Compress::Zlib 1.35

[perl5.git] / ext / Compress / Zlib / t / 05gzsetp.t

diff --git a/ext/Compress/Zlib/t/05gzsetp.t b/ext/Compress/Zlib/t/05gzsetp.t
index 5c524c9..79573d8 100644 (file)
--- a/ext/Compress/Zlib/t/05gzsetp.t
+++ b/ext/Compress/Zlib/t/05gzsetp.t
@@ -5,26 +5,13 @@ use warnings ;
 
 use Compress::Zlib ;
 
-BEGIN
+if (Compress::Zlib::ZLIB_VERNUM() < 0x1060 )
 {
- 
     my $ver = Compress::Zlib::zlib_version();
-    if (defined $ver && $ver =~ /^(\d+)\.(\d+)\.(\d+)/ )
-    {
-        my $sum = $1 * 1000000 + $2 * 1000 + $3 ;
-     
-        if ($sum < 1_000_006) {
-            print "1..0 #  Skip: gzsetparams needs zlib 1.0.6 or better. You have $ver\n";
-            exit 0;
-        }
-    }
-    else
-    {
-        print "1..0 #  Skip: gzsetparams needs zlib 1.0.6 or better.\n";
-        exit 0;
-    }
+    print "1..0 # gzsetparams needs zlib 1.0.6 or better. You have $ver\n";
+    exit 0 ;
 }
- 
+
 sub ok
 {
     my ($no, $ok) = @_ ;
@@ -82,3 +69,4 @@ ok(1, Compress::Zlib::zlib_version eq ZLIB_VERSION) ;
     ok(11, ! $k->gzclose ) ;
     unlink $name ;
 }
+