Subject: | getline_all with more than 123 lines is broken |
Date: | Wed, 21 Jan 2015 17:17:55 +0000 |
To: | "bug-Text-CSV [...] rt.cpan.org" <bug-Text-CSV [...] rt.cpan.org> |
From: | "Day, Robert" <robert.day [...] bankofamerica.com> |
Show quoted text
> perl -v
This is perl 5, version 12, subversion 4 (v5.12.4) built for i686-linux
Show quoted text> uname -a
Linux xxx 2.6.32-358.18.1.el6.x86_64 #1 SMP Fri Aug 2 17:04:38 EDT 2013 x86_64 x86_64 x86_64 GNU/Linux
# Create test CSV files:
Show quoted text> perl -E 'say $_ for 1 .. 123' > line_123.csv
Show quoted text> perl -E 'say $_ for 1 .. 124' > line_124.csv
# This returns an array ref, as expected:
Show quoted text> perl -MText::CSV -E '$csv = Text::CSV->new; open $fh, "<line_123.csv"; say $csv; say $csv->getline_all($fh);'
Text::CSV=HASH(0x8e332b8)
ARRAY(0x8d6ad68)
# This returns the Text::CSV object:
Show quoted text> perl -MText::CSV -E '$csv = Text::CSV->new; open $fh, "<line_124.csv"; say $csv; say $csv->getline_all($fh);'
Text::CSV=HASH(0x96e32b0)
Text::CSV=HASH(0x96e32b0)
----------------------------------------------------------------------
This message, and any attachments, is for the intended recipient(s) only, may contain information that is privileged, confidential and/or proprietary and subject to important terms and conditions available at http://www.bankofamerica.com/emaildisclaimer. If you are not the intended recipient, please delete this message.