Reorder arguments to "move" modpkg command.

2 files changed, 8 insertions, 6 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"
 	}
 }
 
diff --git a/mods/perlbrew b/mods/perlbrew
index 6191df6..12bf8e0 100644
--- a/mods/perlbrew
+++ b/mods/perlbrew
@@ -1,5 +1,5 @@
 set provides {perl-app-perlbrew=$pkgver}
-move makedepends checkdepends perl-io-all perl-path-class perl-file-temp
+move makedepends { perl-io-all perl-path-class perl-file-temp } checkdepends
 setdep makedepends perl-extutils-makemaker>=5.59
 set license custom:MIT
 fappend package {