diff options
| author | Jesse Luehrs <doy@tozt.net> | 2016-07-14 22:30:42 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2016-07-14 22:32:58 -0400 |
| commit | 1f70125c798202be1a52e567e174965b639d5c73 (patch) | |
| tree | d07cb3369a025d8bf301deb4473d27854b597567 /t/basic.t | |
| parent | d69aaf9b1805728a1c3a2d49511c9e215a865828 (diff) | |
| download | spreadsheet-parsexlsx-1f70125c798202be1a52e567e174965b639d5c73.tar.gz spreadsheet-parsexlsx-1f70125c798202be1a52e567e174965b639d5c73.zip | |
open files in raw mode
this is required on windows
Diffstat (limited to 't/basic.t')
| -rw-r--r-- | t/basic.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) { |