Gisle Aas <[EMAIL PROTECTED]> writes:
> So, then, why did jigsaw-te fail? Is it because you don't have the
> Compress::Zlib module installed?
I just checked in the following patch:
Index: Makefile.PL
===================================================================
RCS file: /cvsroot/libwww-perl/lwp5/Makefile.PL,v
retrieving revision 1.60
diff -u -p -u -r1.60 Makefile.PL
--- Makefile.PL 2001/11/15 09:05:59 1.60
+++ Makefile.PL 2001/11/27 17:40:41
@@ -60,6 +60,22 @@ EOT
if (prompt("Do you want to enable these tests?", "y") =~ /^y/i) {
open(ENABLED, ">t/live/ENABLED") || die "Can't enable: $!";
close(ENABLED);
+
+ # Figure out if the compress lib works and signal that with
+ # a file for the test suite to find. We don't want the
+ # test script to do this 'require' itself because we want
+ # to test that the module loads it on demand as it should.
+ eval {
+ require Compress::Zlib;
+ Compress::Zlib->VERSION(1.10);
+ open(ZLIB_OK, ">t/live/ZLIB_OK") || die "Can't create ZLIB_OK: $!";
+ print ZLIB_OK "$Compress::Zlib::VERSION\n";
+ close(ZLIB_OK);
+ };
+ if ($@) {
+ warn $@;
+ unlink("t/live/ZLIB_OK");
+ }
}
else {
unlink("t/live/ENABLED");
Index: t/live/jigsaw-te.t
===================================================================
RCS file: /cvsroot/libwww-perl/lwp5/t/live/jigsaw-te.t,v
retrieving revision 1.2
diff -u -p -u -r1.2 jigsaw-te.t
--- t/live/jigsaw-te.t 2001/04/29 05:01:00 1.2
+++ t/live/jigsaw-te.t 2001/11/27 17:40:41
@@ -1,3 +1,20 @@
+#!perl -w
+
+my $zlib_ok;
+for (("", "live/", "t/live/")) {
+ if (-f $_ . "ZLIB_OK") {
+ $zlib_ok++;
+ last;
+ }
+}
+
+unless ($zlib_ok) {
+ print "1..0\n";
+ print "Apparently no working ZLIB installed\n";
+ exit;
+}
+
+
print "1..4\n";
use strict;
@@ -29,5 +46,3 @@ for my $te (undef, "", "deflate", "gzip"
$res->content("");
print $res->as_string;
}
-
-
