From 11b34ea5bff86d3829c70cb5dbe86ba0ce795463 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 20 Jan 2018 17:25:03 +0000 Subject: [PATCH] Binmode + Bump version and update Changes --- Changes | 3 +++ README | 4 ++-- lib/Slob.pm | 5 +++-- 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index e3e157d..85d2bfb 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ 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 diff --git a/README b/README index 036c3fb..374f0c8 100644 --- a/README +++ b/README @@ -1,5 +1,5 @@ -Slob version 0.002_001 -====================== +Slob version 0.002002 +===================== INSTALLATION diff --git a/lib/Slob.pm b/lib/Slob.pm index 9e7c5a1..0603b8b 100644 --- a/lib/Slob.pm +++ b/lib/Slob.pm @@ -3,7 +3,7 @@ package Slob; use 5.014000; use strict; use warnings; -our $VERSION = '0.002_001'; +our $VERSION = '0.002002'; use constant MAGIC => "!-1SLOB\x1F"; @@ -65,7 +65,8 @@ sub new { 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; -- 2.39.2