Commit | Line | Data |
f4c6fd49 |
1 | |
2 | use strict ; |
3 | local ($^W) = 1; #use warnings ; |
4 | |
5 | use Compress::Zlib ; |
6 | |
7 | sub ok |
8 | { |
9 | my ($no, $ok) = @_ ; |
10 | |
11 | #++ $total ; |
12 | #++ $totalBad unless $ok ; |
13 | |
14 | print "ok $no\n" if $ok ; |
15 | print "not ok $no\n" unless $ok ; |
16 | return $ok; |
17 | } |
18 | |
19 | print "1..1\n" ; |
20 | |
21 | # Check zlib_version and ZLIB_VERSION are the same. |
22 | my $zlib_h = ZLIB_VERSION ; |
23 | my $libz = Compress::Zlib::zlib_version; |
24 | ok(1, $zlib_h eq $libz) || |
25 | print <<EOM; |
26 | # The version of zlib.h does not match the version of libz |
27 | # |
28 | # You have zlib.h version $zlib_h |
29 | # and libz version $libz |
30 | # |
31 | # You probably have two versions of zlib installed on your system. |
32 | # Try removing the one you don't want to use and rebuild. |
33 | EOM |
34 | |