diff options
Diffstat (limited to 'oyster')
-rw-r--r-- | oyster | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -126,7 +126,14 @@ my $date_parser = DateTime::Format::Strptime->new( my $csv=Text::CSV_XS->new({binary=>1}); my $csv_text=$res->decoded_content; open my $fh,'<',\$csv_text; -$csv->column_names($csv->getline($fh)); + +my $headers=[]; +while (defined($headers) and @$headers<2 ) { + $headers = $csv->getline($fh); +} +die "Could not find any data in the CSV" + unless defined $headers; +$csv->column_names($headers); progress('parsing CSV'); while (my $row = $csv->getline_hr($fh)) { |