diff options
author | Paul Marquess <paul.marquess@btinternet.com> | 2006-06-22 12:40:10 +0100 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2006-06-22 11:34:20 +0000 |
commit | d53fb155ab635c67ac73359f1320baf73ad326c9 (patch) | |
tree | dec9ffe5b8bb773dcb4d13b54ebbd1463401583b /ext | |
parent | 72f13be8d561191903e279b0475bb909b53a8f0d (diff) | |
download | perl-d53fb155ab635c67ac73359f1320baf73ad326c9.tar.gz |
IO::Compress::Base
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <01f701c695e8$3d035e20$2405140a@myopwv.com>
p4raw-id: //depot/perl@28415
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Compress/IO/Base/lib/IO/Compress/Base.pm | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/ext/Compress/IO/Base/lib/IO/Compress/Base.pm b/ext/Compress/IO/Base/lib/IO/Compress/Base.pm index 03fbd93ae9..4bceb357f4 100644 --- a/ext/Compress/IO/Base/lib/IO/Compress/Base.pm +++ b/ext/Compress/IO/Base/lib/IO/Compress/Base.pm @@ -227,8 +227,6 @@ sub _create if ($outType eq 'filename' && -e $outValue && ! -w _) { return $obj->saveErrorString(undef, "Output file '$outValue' is not writable" ) } - elsif ($outType eq 'handle' && ! -w $outValue) - { return $obj->saveErrorString(undef, "Output filehandle is not writable" ) } # TODO - encoding |