diff options
| -rw-r--r-- | ext/Compress/IO/Base/lib/IO/Compress/Base.pm | 2 | ||||
| -rw-r--r-- | t/lib/compress/merge.pl | 3 |
2 files changed, 1 insertions, 4 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 diff --git a/t/lib/compress/merge.pl b/t/lib/compress/merge.pl index a80af9d239..2f893b29a4 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" ; } } } |