From 4d268f66905b41ae19cc1308747f9d1f24eb965c Mon Sep 17 00:00:00 2001 From: Justin Davis Date: Sun, 22 Jul 2012 15:50:11 -0400 Subject: Reorder arguments to "move" modpkg command. --- bin/modpkg | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'bin') diff --git a/bin/modpkg b/bin/modpkg index 4b62eb6..30345c2 100755 --- a/bin/modpkg +++ b/bin/modpkg @@ -119,11 +119,13 @@ $modi eval { fput $name $code beg } - proc move {srcname destname args} { + proc move {srcname pats destname} { upvar #0 $srcname src $destname dest - foreach pat $args { - set idx [lsearch -glob $src "$pat*"] - if {$idx == -1} { error "$pat was not found in $srcname" } + foreach pat $pats { + set idx [lsearch -glob $src $pat*] + if { $idx == -1 } { + error "$pat was not found in $srcname" + } lappend dest [lindex $src $idx] set src [lreplace $src $idx $idx] } @@ -157,7 +159,7 @@ $modi eval { } } - error "$name was not found in $type" + error "$depname was not found in $type" } } -- cgit v1.2.3-24-g4f1b