Skip Menu |
 

This queue is for tickets about the PerlIO-gzip CPAN distribution.

Report information
The Basics
Id: 21469
Status: open
Priority: 0/
Queue: PerlIO-gzip

People
Owner: Nobody in particular
Requestors: alexchorny [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.17
Fixed in: (no value)



Subject: write.t patch; read.t :stdio fails
Download (untitled) / with headers
text/plain 179b
ActiveState perl v5.8.7 built for MSWin32-x86-multi-thread Binary build 813 Patch for write.t and log of read.t attached. zlib 1.2.3 ------- Alexandr Ciornii, http://chorny.net
Subject: read.t.log
Download read.t.log
application/octet-stream 8.8k

Message body not shown because it is not plain text.

Subject: write.t.patch
Download write.t.patch
text/x-diff 850b
--- write.t.dist Fri Jun 25 11:30:31 2004 +++ write.t Wed Sep 13 19:14:03 2006 @@ -63,7 +63,7 @@ unlink 'foo' or die "unlink 'foo' failed: $!"; SKIP: { - skip 6, "Your configured shell, '$Config{sh}', is missing or size 0" + skip "Your configured shell, '$Config{sh}', is missing or size 0",7 unless defined $sh; ok ((open GZ, ">$buffering:gzip", 'foo'), sprintf "open >$buffering:gzip [about to write %d bytes]", length $sh); @@ -75,9 +75,9 @@ "compare compressed copy with '$Config{sh}'"); ok (eof (FOO), 'should be end of file'); ok ((close GZ), 'close it'); + unlink 'foo' or die "unlink 'foo' failed: $!"; } - unlink 'foo' or die "unlink 'foo' failed: $!"; ok ((open FOO, ">$buffering:gzip(lazy)", "empty"), "open empty as >$buffering:gzip(lazy)");
From: ISHIGAKI [...] cpan.org
Download (untitled) / with headers
text/plain 690b
This patch may help you. It just skips :stdio tests, even if you have installed gzip on your Win32. I'm not sure we should do this, but anyway Win32 doesn't have gzip by default. --- t/read.t 2004-07-01 02:34:42.000000000 +0900 +++ t/read.t.patched 2006-09-18 22:13:19.617500000 +0900 @@ -130,7 +130,8 @@ $done_perlgz = system $command; } SKIP: { - skip "$command failed", 3 if $done_perlgz; + skip "$command failed", 4 if $done_perlgz; + skip ":stdio is a bit hairy on Win32", 4 if $buffering eq ':stdio' && $^O eq 'MSWin32'; ok ((open GZ, "<$buffering:gzip", "perl.gz"), "open perl.gz"); TODO: { # local $TODO = $unread_bug if $buffering eq ':unix';


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.