[patch] Patch to fix .pm breakage in g-cpan.pl

g-cpan.pm-pmfix.patch (text/plain), 1.11 KB, created by Peter Leonard on 2004-11-16 16:56:15 UTC

*** g-cpan.pl	Tue Nov 16 19:36:53 2004
--- g-cpan.pl.pmfix	Tue Nov 16 19:41:03 2004
***************
*** 5,10 ****
--- 5,15 ----
  
  # History: 
  
+ # 11/16/04: [e-mail]:
+ #
+ #           Fixed handling of CPAN modules that end in '.pm' (e.g. CGI.pm)
+ #           Closes bug 64403.
+ #
  # 05/23/03: [e-mail]: 
  #
  #	    Skip modules the CPAN thinks are included with perl (closes bug 14679).
***************
*** 153,158 ****
--- 158,166 ----
      # remove underscores
      $file =~ tr/_/-/;
  
+     # remove any trailing '.pm' in the package name.
+     $file =~ s/.pm$//;
+ 
      # turn this into a directory name suitable for portage tree
      return undef unless ( $file =~ m|.*/(.*)-[^-]+\.| );
      return $1;
***************
*** 216,221 ****
--- 224,231 ----
              next if $dir eq "perl";
              if ( ( !$dup_check{$dir} ) && ( !module_check($dir) ) ) {
                  $dup_check{$dir} = 1;
+ 		# remove trailing .pm to fix emerge breakage.
+ 		$dir =~ s/.pm$//;
                  print EBUILD "\n\t" unless $first;
                  print EBUILD "dev-perl/$dir";
              }