From 1f70125c798202be1a52e567e174965b639d5c73 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 14 Jul 2016 22:30:42 -0400 Subject: open files in raw mode this is required on windows --- t/basic.t | 4 ++-- t/encryption.t | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 't') diff --git a/t/basic.t b/t/basic.t index a024619..1eb6be8 100644 --- a/t/basic.t +++ b/t/basic.t @@ -9,8 +9,8 @@ my $filename = 't/data/Test.xlsx'; my @inputs = ( $filename, - do { open my $fh, '<', $filename or die; $fh }, - do { open my $fh, '<', $filename or die; local $/; my $d = <$fh>; \$d }, + do { open my $fh, '<:raw:bytes', $filename or die; $fh }, + do { open my $fh, '<:raw:bytes', $filename or die; local $/; my $d = <$fh>; \$d }, ); for my $file (@inputs) { diff --git a/t/encryption.t b/t/encryption.t index 594701b..2ab510f 100644 --- a/t/encryption.t +++ b/t/encryption.t @@ -9,8 +9,8 @@ use Spreadsheet::ParseXLSX; my $filename = 't/data/encryption-agile-123q.xlsx'; my @inputs = ( $filename, - do { open my $fh, '<', $filename or die; $fh }, - do { open my $fh, '<', $filename or die; local $/; my $d = <$fh>; \$d }, + do { open my $fh, '<:raw:bytes', $filename or die; $fh }, + do { open my $fh, '<:raw:bytes', $filename or die; local $/; my $d = <$fh>; \$d }, ); my $parser = Spreadsheet::ParseXLSX->new(Password => '123q'); @@ -27,8 +27,8 @@ use Spreadsheet::ParseXLSX; my $filename = 't/data/encryption-standard-default-password.xlsx'; my @inputs = ( $filename, - do { open my $fh, '<', $filename or die; $fh }, - do { open my $fh, '<', $filename or die; local $/; my $d = <$fh>; \$d }, + do { open my $fh, '<:raw:bytes', $filename or die; $fh }, + do { open my $fh, '<:raw:bytes', $filename or die; local $/; my $d = <$fh>; \$d }, ); my $parser = Spreadsheet::ParseXLSX->new(Password => ''); -- cgit v1.2.3-54-g00ecf