[136055] trunk/dports/_resources/port1.0/group/muniversal-1.0.tcl

[larryv at macports.org]

Revision: 136055
          https://trac.macports.org/changeset/136055
Author:   larryv at macports.org
Date:     2015-05-11 07:15:46 -0700 (Mon, 11 May 2015)
Log Message:
-----------
muniversal-1.0: Fix merger-post-destroot (#47698)

A procedure with a final `args` parameter sets that parameter to a list
containing its excess arguments.

I don't know how this ever worked, frankly.

Modified Paths:
--------------
    trunk/dports/_resources/port1.0/group/muniversal-1.0.tcl

Modified: trunk/dports/_resources/port1.0/group/muniversal-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/muniversal-1.0.tcl	2015-05-11 14:00:12 UTC (rev 136054)
+++ trunk/dports/_resources/port1.0/group/muniversal-1.0.tcl	2015-05-11 14:15:46 UTC (rev 136055)
@@ -97,7 +97,7 @@
     foreach target $args {
         set origproc [ditem_key $ditem procedure]
         set ident [ditem_key $ditem name]
-        proc merger-post-$target {args} "
+        proc merger-post-$target code "
             variable proc_index
             set proc_index \[llength \[ditem_key $ditem post\]\]
             ditem_append $ditem merger-post proc-merger-post-${ident}-${target}-\${proc_index}
@@ -108,7 +108,7 @@
                     return 0
                 }
             \"
-            makeuserproc userproc-merger-post-${ident}-${target}-\${proc_index} \$args
+            makeuserproc userproc-merger-post-${ident}-${target}-\${proc_index} \$code
         "
     }
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150511/8dc752da/attachment-0001.html>