From 5a76ab8943e6a87cc34f6b269e9b819ed8890f8c Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 17 Dec 2004 13:24:25 +0000 Subject: Ensure Packdrakeng::zlib loads properly, and is not used if Compress::Zlib is not available --- Packdrakeng.pm | 1 + Packdrakeng/zlib.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Packdrakeng.pm b/Packdrakeng.pm index f860557..5fa03cf 100644 --- a/Packdrakeng.pm +++ b/Packdrakeng.pm @@ -139,6 +139,7 @@ sub choose_compression_method { $pack->{compress_method} ||= "gzip"; if (!$pack->{force_extern}) { eval { + require Compress::Zlib; #- need this to ensure that Packdrakeng::zlib will load properly require Packdrakeng::zlib; $pack->{subcompress} = \&Packdrakeng::zlib::gzip_compress; $pack->{subuncompress} = \&Packdrakeng::zlib::gzip_uncompress; diff --git a/Packdrakeng/zlib.pm b/Packdrakeng/zlib.pm index d541a67..d975060 100644 --- a/Packdrakeng/zlib.pm +++ b/Packdrakeng/zlib.pm @@ -147,4 +147,4 @@ sub gzip_uncompress { $byteswritten } - +1; -- cgit v1.2.1