From d53fb155ab635c67ac73359f1320baf73ad326c9 Mon Sep 17 00:00:00 2001 From: Paul Marquess Date: Thu, 22 Jun 2006 12:40:10 +0100 Subject: IO::Compress::Base From: "Paul Marquess" Message-ID: <01f701c695e8$3d035e20$2405140a@myopwv.com> p4raw-id: //depot/perl@28415 --- ext/Compress/IO/Base/lib/IO/Compress/Base.pm | 2 -- 1 file changed, 2 deletions(-) (limited to 'ext') 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 -- cgit v1.2.1