From e2c7fbaf56ee05ea3caa85a216f834cd7606fd2e Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Mon, 3 Jan 2005 16:54:41 +0000 Subject: - Fix options parsing - 5.0.8 --- Packdrakeng.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Packdrakeng.pm') diff --git a/Packdrakeng.pm b/Packdrakeng.pm index 86e3942..0eaa6ed 100644 --- a/Packdrakeng.pm +++ b/Packdrakeng.pm @@ -63,9 +63,11 @@ sub _new { use_extern => 1, # default behaviour, informative only noargs => $options{noargs}, - level => $options{comp_level} || 6, # compression level, aka -X gzip or bzip option + # compression level, aka -X gzip or bzip option + level => defined($options{comp_level}) ? $options{comp_level} : 6, - block_size => $options{block_size} || 400 * 1024, # A compressed block will contain 400k of compressed data + # A compressed block will contain 400k of compressed data + block_size => defined($options{block_size}) ? $options{block_size} : 400 * 1024, bufsize => $options{bufsize} || 65536, # Arbitrary buffer size to read files # Internal data -- cgit v1.2.1