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 (file)
--- 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 (file)
--- 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" ;
                     }
                 }
             }