[130163] trunk/dports/perl/p5-graveyard/Portfile

[larryv at macports.org]

Revision: 130163
          https://trac.macports.org/changeset/130163
Author:   larryv at macports.org
Date:     2014-12-27 16:31:39 -0800 (Sat, 27 Dec 2014)
Log Message:
-----------
Perl graveyard: Refactor "unknown" proc

Try using more obvious variable names and such.

Modified Paths:
--------------
    trunk/dports/perl/p5-graveyard/Portfile

Modified: trunk/dports/perl/p5-graveyard/Portfile
===================================================================
--- trunk/dports/perl/p5-graveyard/Portfile	2014-12-28 00:31:37 UTC (rev 130162)
+++ trunk/dports/perl/p5-graveyard/Portfile	2014-12-28 00:31:39 UTC (rev 130163)
@@ -19,18 +19,18 @@
     if {[llength $args] < 3} {
         lappend args 5.8 5.10 5.12 5.14
     }
-    set replaced [lassign $args port vers]
-    regsub ^p5- $port {} port
-    lassign [split $vers _] ver rev
+    set replaced_series [lassign $args superport version_string]
+    lassign [split $version_string _] ver rev
     if {$rev eq ""} {
         set rev 0
     }
-    foreach series $replaced {
-        set repl $replacements($series)
-        subport p${series}-$port {
+    foreach series $replaced_series {
+        regsub ^p5- $superport p${series}- replaced
+        regsub ^p5- $superport p$replacements($series)- replacement
+        subport $replaced {
             version $ver
             revision $rev
-            replaced_by p${repl}-$port
+            replaced_by $replacement
         }
     }
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20141227/f71f14ce/attachment-0001.html>