It was previously giving perl warnings due to uninitialized variables.
@@ -78,6 +78,8 @@ while (@ARGV) {
}
+usageerr(_g("need an action option")) unless defined($action);
+
# Uses $ENV{DEB_VENDOR} if set
$vendor = get_current_vendor() unless defined($vendor);