if (eval { require IO::Compress::Gzip } ) { use subs qw (gzip); use vars qw ($GzipError); IO::Compress::Gzip -> import ( qw (gzip $GzipError) ); $status = gzip "${FileName}" => "${FileName}.gz" or _error "gzip f +ailed: $GzipError\n"; } else { system qq[gzip -c ${FileName} > ${FileName}.gz]; }
In reply to Re^2: Help with import of module
by panman
in thread Help with import of module
by panman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |