| Subject: | Work with internal IO::Gzip gzipper failed . "sh: -c: line 0: `gzip > GLOB(0x814f2dc)'" |
| Date: | Sat, 16 Feb 2008 01:14:26 +0200 |
| To: | bug-CGI-Compress-Gzip [...] rt.cpan.org |
| From: | "Biruk Aleh" <oleg19813 [...] googlemail.com> |
Seems Found one bag.
My info
perl -v : v5.8.8
uname : linux Fedora
Im having beauty programm
#!/usr/bin/perl
$ENV{HTTP_ACCEPT_ENCODING}='gzip';
use CGI::Compress::Gzip;
$CGI::Compress::Gzip::global_give_reason=1;
my $q = new CGI::Compress::Gzip;
print "AAA\n";
print $q->header();
print "BBBB\n";
As you understand it's only test and in real life iv used this module as CGI
. :)
Result of the programm work was
*# perl tpl
AAA
Content-encoding: gzip
Content-Type: text/html; charset=ISO-8859-1
sh: -c: line 0: syntax error near unexpected token `('
sh: -c: line 0: `gzip > GLOB(0x814f2dc)'
*
I have not found any info about this bug thats why decided to write.
May be my information will help you.
below is my trace debugging.
showed some ugly thing .
*$self->{out_fh} = ref .... (why ref if IO::Zlib wants filename ??)*
CGI::Compress::Gzip::FileHandle::WRITE(/usr/local/share/perl/5.8.8/CGI/Compress/Gzip/FileHandle.pm:133):
133: if (!$self->SUPER::OPEN(*$self->{out_fh}*,
@{$self->{openargs}}))
.......
IO::Zlib::OPEN(/usr/local/share/perl/5.8.8/IO/Zlib.pm:428):
428: my $self = shift;
IO::Zlib::OPEN(/usr/local/share/perl/5.8.8/IO/Zlib.pm:429):
429: my *$filename* = shift;
.......
IO::Zlib::gzopen_external(/usr/local/share/perl/5.8.8/IO/Zlib.pm:602):
602: my $wopen = sprintf $gzip_write_open, *$filename*;
IO::Zlib::gzopen_external(/usr/local/share/perl/5.8.8/IO/Zlib.pm:603):
603: if (open($fh, *$wopen*)) {
I'v tried to understand why my soft work on other computers well and on this
one we have a problemm.
And my verdict was - CGI::Compress::Gzip works only with preinstaled
Compress::Zlib but not work with internal IO::Zlib zipper.
I'v installed it and ofcourse all problemms dissapeared .
With best Regards Oleg.