lazy import for compression feature

mknos · web-flow · commit e01f409aa04e · 2025-03-04T22:09:55.000+08:00
diff --git a/bin/tar b/bin/tar
@@ -13,7 +13,6 @@ License:
 
 use strict;
 
-use Compress::Zlib qw(gzopen);
 use File::Basename qw(basename);
 use Getopt::Std;
 use IO::File;
@@ -212,7 +211,8 @@ else
 
   if ($opt{'z'} || $opt{'Z'})
    {
-    # quick and dirty till we sort out Compress::Zlib
+    eval { require Compress::Zlib } or fatal('Compress::Zlib not found');
+    Compress::Zlib->import;
     my $gz = gzopen($fh, 'rb') or fatal("Cannot gzopen: $Compress::Zlib::gzerrno");
     $read = sub { $gz->gzread($_[0],$_[1]) < 0 ? $Compress::Zlib::gzerrno : 0 };
    }

Original file line number	Diff line number	Diff line change
`@@ -13,7 +13,6 @@ License:`
`13`	`13`
`14`	`14`	`use strict;`
`15`	`15`
`16`		`-use Compress::Zlib qw(gzopen);`
`17`	`16`	`use File::Basename qw(basename);`
`18`	`17`	`use Getopt::Std;`
`19`	`18`	`use IO::File;`
`@@ -212,7 +211,8 @@ else`
`212`	`211`
`213`	`212`	`if ($opt{'z'} \|\| $opt{'Z'})`
`214`	`213`	`{`
`215`		`- # quick and dirty till we sort out Compress::Zlib`
	`214`	`+ eval { require Compress::Zlib } or fatal('Compress::Zlib not found');`
	`215`	`+ Compress::Zlib->import;`
`216`	`216`	`my $gz = gzopen($fh, 'rb') or fatal("Cannot gzopen: $Compress::Zlib::gzerrno");`
`217`	`217`	`$read = sub { $gz->gzread($_[0],$_[1]) < 0 ? $Compress::Zlib::gzerrno : 0 };`
`218`	`218`	`}`