package名が取れないときの対処 Class::XSAccessr対策

kazeburo · Jul 8, 2011 · b2d3718 · b2d3718
1 parent 722f729
commit b2d3718
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/OrePAN/Archive.pm b/lib/OrePAN/Archive.pm
@@ -150,7 +150,7 @@ sub _parse_version($) {
             next if !$version;
 
             push @pkgs, [$package, $version] if $package;
-            $pkgs[-1]->[1] = $version;
+            $pkgs[-1]->[1] = $version if @pkgs;
         }
         elsif (/^\s*__END__/) {
             last;