| Subject: | urgent Archive::Extract error on line 140 |
| Date: | Mon, 25 Jun 2012 10:23:25 -0700 |
| To: | bug-archive-extract [...] rt.cpan.org |
| From: | jinyan meng <jinyan [...] apple.com> |
Hi,
I installed Archive::Extract on a Linux m/c. I always got the following errors:
FastCGI: server "/var/www/fcgi/iStation/index.cgi" stderr: Could not dup 'STDIN': Invalid argument at /usr/lib/perl5/site_perl/5.8.8/Archive/Extract.pm line 140., referer: http://
Here is the codes :
### see what /bin/programs are available ###
$PROGRAMS = {};
CMD: for my $pgm (qw[tar unzip gzip bunzip2 uncompress unlzma unxz]) {
if ( $pgm eq 'unzip' and ( ON_NETBSD or ON_FREEBSD ) ) {
local $IPC::Cmd::INSTANCES = 1;
($PROGRAMS->{$pgm}) = grep { ON_NETBSD ? m!/usr/pkg/! : m!/usr/local! } can_run($pgm);
next CMD;
}
if ( $pgm eq 'unzip' and ON_LINUX ) {
# Check if 'unzip' is busybox masquerading
local $IPC::Cmd::INSTANCES = 1;
my $opt = ON_VMS ? '"-Z"' : '-Z';
#($PROGRAMS->{$pgm}) = grep { scalar run(command=> [ $_, $opt, '-1' ]) } can_run($pgm);
next CMD;
}
$PROGRAMS->{$pgm} = can_run($pgm);
}
Can you help to figure out the issue?
Thanks,
Jinyan