[patch] patch to handle 'v' versions

gcpan-v-version.patch (text/plain), 1.75 KB, created by Stephen Cavilia on 2020-08-03 03:54:31 UTC

--- a/bin/g-cpan	2020-08-02 23:37:54.216394201 -0400
+++ b/bin/g-cpan	2020-08-02 23:34:46.986935743 -0400
@@ -553,6 +553,7 @@
         spinner_start();
         $gcpan_run->{cpan}{lc($ebuild_wanted)}{portage_name}    = $gcpan_run->transformCPAN($gcpan_run->{cpan}{lc($ebuild_wanted)}{src_uri}, 'n');
         $gcpan_run->{cpan}{lc($ebuild_wanted)}{portage_version} = $gcpan_run->transformCPAN($gcpan_run->{cpan}{lc($ebuild_wanted)}{src_uri}, 'v');
+        $gcpan_run->{cpan}{lc($ebuild_wanted)}{module_version} = $gcpan_run->transformCPAN($gcpan_run->{cpan}{lc($ebuild_wanted)}{src_uri}, 'mv');
         spinner_stop();
     }
     else
@@ -686,7 +687,7 @@
                             }
                         }
 
-                        my $module_version = $gcpan_run->{cpan}{ lc($original_ebuild) }{portage_version};
+                        my $module_version = $gcpan_run->{cpan}{ lc($original_ebuild) }{module_version};
                         my $description = $gcpan_run->{'cpan'}{ lc($original_ebuild) }{'description'};
                         $description =~ s/"/\\"/g;
 
--- a/lib/Gentoo/CPAN.pm	2020-08-02 23:37:54.216394201 -0400
+++ b/lib/Gentoo/CPAN.pm	2020-08-02 23:33:56.180896766 -0400
@@ -462,7 +462,7 @@
     $filenamever =~ s/([0-9.]+)-([0-9.]+)$/$1\.$2/;
 
     # Remove leading v's - happens on occasion
-    $filenamever =~ s{^v}{}i;
+    $filenamever =~ s{^v}{}i if $req ne 'mv';
 
     # Some modules don't use the /\d\.\d\d/ convention, and portage goes
     # berserk if the ebuild is called ebulldname-.02.ebuild -- so we treat
@@ -471,7 +471,7 @@
         $filenamever = 0 . $filenamever;
     }
 
-    return ( $req eq 'v' ) ? $filenamever : $filename;
+    return ( $req eq 'v' || $req eq 'mv' ) ? $filenamever : $filename;
 }
 
 sub makeCPANstub {