cope with blank lines at start of CSV

1 files changed, 8 insertions, 1 deletions

diff --git a/oyster b/oyster
index acbad4e..506ab04 100644
--- a/oyster
+++ b/oyster
@@ -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)) {