[136055] trunk/dports/_resources/port1.0/group/muniversal-1.0.tcl
larryv at macports.org
larryv at macports.org
Mon May 11 07:15:46 PDT 2015
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>
More information about the macports-changes
mailing list