Fixed error '"my" variable $wb_count masks earlier declaration in same scope at blib...
Ken Youens-Clark [Sat, 3 May 2003 15:16:19 +0000 (15:16 +0000)]
lib/SQL/Translator/Parser/Excel.pm

index 2fb3c29..1ef080a 100644 (file)
@@ -65,7 +65,7 @@ sub parse {
     my (%parsed, $wb_count, $num);
     my $table_no = 0;
 
-    my $wb_count = $wb->{SheetCount};
+    $wb_count = $wb->{'SheetCount'} || 0;
     for $num (0 .. $wb_count - 1) {
         my $ws = $wb->Worksheet($num);
         my $name = $ws->{Name} || ++$table_no;