--- a/tools/cpan2ips.pl	Tue Oct 25 11:08:19 2011 +0400
+++ b/tools/cpan2ips.pl	Tue Oct 25 14:54:40 2011 +0400
@@ -140,6 +140,7 @@
     $cpan_file_basename =~ /^(.+)-([^-]+)\.tar\.(.+)$/ ||  fatal "Can't parse $cpan_file_basename";
     my ($cpan_name, $pkg_version, $tar_comp) = ($1, $2, $3);
     my $pkg_name = lc $cpan_name;
+    $pkg_name =~ s/_/-/g;
 
     blab "CPAN file: $cpan_file";
     blab "Package name: $pkg_name";

--- a/tools/py2ips.pl	Tue Oct 25 11:08:19 2011 +0400
+++ b/tools/py2ips.pl	Tue Oct 25 14:54:40 2011 +0400
@@ -113,6 +113,7 @@
         fatal "Can't parse archive name: $archive"
     }
 
+    $pkg_name =~ s/_/-/g;
     my $pkg_name_lc = lc $pkg_name;
     blab "Package name: $pkg_name";