diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-16 16:54:30 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-16 16:54:30 -0400 |
| commit | db118f881d359a136f427e1c64be15f8a709b5dc (patch) | |
| tree | 9950dae9049e84186187faccfd9290afee349b78 | |
| parent | 8c5191a9800034fc901e13b5f77578f584702737 (diff) | |
| download | spreadsheet-parsexlsx-db118f881d359a136f427e1c64be15f8a709b5dc.tar.gz spreadsheet-parsexlsx-db118f881d359a136f427e1c64be15f8a709b5dc.zip | |
grumble grumble
| -rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index ac76800..263de2c 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -47,6 +47,7 @@ sub parse { my $zip = Archive::Zip->new; if (openhandle($file)) { + bless $file, 'IO::File' if ref($file) eq 'GLOB'; # sigh $zip->readFromFileHandle($file) == Archive::Zip::AZ_OK or die "Can't open filehandle as a zip file"; } |