Author: mjevans
Date: Fri Apr 23 05:22:41 2010
New Revision: 13919
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
croak if binmode fails
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Fri Apr 23 05:22:41 2010
@@ -727,10 +727,11 @@
}
if ($fh) {
if (my $enc = $data->{Database}{f_encoding}) {
- binmode $fh, ":encoding($enc)";
+ binmode $fh, ":encoding($enc)" or
+ croak "Failed to set encoding layer '$enc' on $file: $!";
}
else {
- binmode $fh;
+ binmode $fh or croak "Failed to set binary mode on $file: $!";
}
}
if ($locking and $fh) {
