From 62f500e3e083d2f5c26e35407d81a7f0434748a2 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Thu, 9 May 2013 18:02:17 +0200
Subject: cope with blank lines at start of CSV

---
 oyster | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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)) {
-- 
cgit v1.2.3