From: Paul Marquess <paul.marquess@btinternet.com>
Date: Thu, 22 Jun 2006 11:40:10 +0000 (+0100)
Subject: IO::Compress::Base
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d53fb155ab635c67ac73359f1320baf73ad326c9;p=p5sagit%2Fp5-mst-13.2.git

IO::Compress::Base
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <01f701c695e8$3d035e20$2405140a@myopwv.com>

p4raw-id: //depot/perl@28415
---

diff --git a/ext/Compress/IO/Base/lib/IO/Compress/Base.pm b/ext/Compress/IO/Base/lib/IO/Compress/Base.pm
index 03fbd93..4bceb35 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
diff --git a/t/lib/compress/merge.pl b/t/lib/compress/merge.pl
index a80af9d..2f893b2 100644
--- a/t/lib/compress/merge.pl
+++ b/t/lib/compress/merge.pl
@@ -102,8 +102,7 @@ sub run
                                 "  Got non-writable filename message" ;
                     }
                     else {
-                        is $$Error, "Output filehandle is not writable",
-                                "  Got non-writable filehandle message" ;
+                        ok $$Error, "  Got error message" ;
                     }
                 }
             }