Binmode + Bump version and update Changes

diff --git a/Changes b/Changes
index e3e157df722a1108eeaad12b3d35ad73ff0ef7a7..85d2bfb2377affa572ae5be9dfb73f00074acb46 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Slob.
 
 Revision history for Perl extension Slob.
 

+0.002002 2018-01-20T17:25+00:00
+ - Open files in binary mode to fix MSWin32 test failures
+

 0.002_001 2018-01-13T21:55+02:00
  - Make tests output more information to track down MSWin32 test failures
 
 0.002_001 2018-01-13T21:55+02:00
  - Make tests output more information to track down MSWin32 test failures
 

diff --git a/README b/README
index 036c3fb651c165a6835a629a673b189bc9c57453..374f0c8582e863588a55ff9ceacf95488a769d1c 100644 (file)
--- a/README
+++ b/README
@@ -1,5 +1,5 @@
-Slob version 0.002_001
-======================
+Slob version 0.002002
+=====================

 
 INSTALLATION
 
 
 INSTALLATION
 

diff --git a/lib/Slob.pm b/lib/Slob.pm
index 9e7c5a119013345c73fdc3c944b00257af65081e..0603b8bcca023f84fc9e889743fbcf0446183ca1 100644 (file)
--- a/lib/Slob.pm
+++ b/lib/Slob.pm
@@ -3,7 +3,7 @@ package Slob;
 use 5.014000;
 use strict;
 use warnings;
 use 5.014000;
 use strict;
 use warnings;

-our $VERSION = '0.002_001';
+our $VERSION = '0.002002';

 
 use constant MAGIC => "!-1SLOB\x1F";
 
 
 use constant MAGIC => "!-1SLOB\x1F";
 


@@ -65,7 +65,8 @@ sub new {
        if (ref $path eq 'IO') {
                $fh = $path
        } else {
        if (ref $path eq 'IO') {
                $fh = $path
        } else {

-               open $fh, '<', $path or croak "Cannot open \"$path\": $!"
+               open $fh, '<', $path or croak "Cannot open \"$path\": $!";
+               binmode $fh;

        }
        my $self = bless {path => $path, fh => $fh}, $class;
        $self->{header} = $self->read_header;
        }
        my $self = bless {path => $path, fh => $fh}, $class;
        $self->{header} = $self->read_header;