FCGI が orepan_index.pl で index されない問題

gistfile1.txt

--- Archive.pm  2011-10-05 20:18:08.000000000 +0900
+++ Archive.pm.new      2011-10-05 20:18:32.000000000 +0900
@@ -161,7 +161,7 @@
     my $basename  = fileparse("$parsefile");
     $basename =~ s/\..+$//;
     my @candidates = sort { !$a->[1] <=> !$b->[1] }
-        grep { $_->[0] =~ m/$basename$/  } @pkgs;
+        grep { $_->[0] =~ m/($basename)$/ || $basename eq 'version' } @pkgs;
     return @{$candidates[0]} if @candidates;
     return;
 }

FCGI に FCGI.pm がないため、OrePAN::Archive内でversion.pmを読む。
バージョン取得後、basenameとモジュール名を比較するところでマッチしないためにバージョンが取得できない。

結果 {} が $index->add され、save時のOrePAN::Package::Index:86 でスルーされてしまっているようです。

diffはやっつけ対応してみた形。。