summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
authorJustin Davis <jrcd83@gmail.com>2012-07-22 21:50:11 +0200
committerJustin Davis <jrcd83@gmail.com>2012-07-22 21:50:11 +0200
commit4d268f66905b41ae19cc1308747f9d1f24eb965c (patch)
treedb84370b441d9d75f20b9c390fa5f7d954d67576 /bin
parent8f294e9fb0e139d54cafcdba791875ef4fea4c20 (diff)
downloadgenpkg-4d268f66905b41ae19cc1308747f9d1f24eb965c.tar.gz
genpkg-4d268f66905b41ae19cc1308747f9d1f24eb965c.tar.xz
Reorder arguments to "move" modpkg command.
Diffstat (limited to 'bin')
-rwxr-xr-xbin/modpkg12
1 files changed, 7 insertions, 5 deletions
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"
}
}