[PATCH 1/2] Stop using defined(@array)
perl5160delta(1) notes:
The long-deprecated "defined(@array)" now also warns for package
variables. Previously it issued a warning for lexical variables
only.
---
bin/wanna-build | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/bin/wanna-build b/bin/wanna-build
index 29c8f99..4b19db5 100755
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -409,7 +409,7 @@ $list_order ||= $yamlmap->{"list-order"}{'default'};
$api //= $yamlmap->{"api"};
$api //= $defaultapi;
-if (isin($op_mode, qw<forget-user merge-v3 import>) && defined @conf::admin_users && !isin( $real_user, @conf::admin_users) && !$simulate ) {
+if (isin($op_mode, qw<forget-user merge-v3 import>) && @conf::admin_users && !isin( $real_user, @conf::admin_users) && !$simulate ) {
die "This operation is restricted to admin users";
}
if (!($commands->{$op_mode}) || !($commands->{$op_mode}->{'noarch'})) {
--
1.9.1
Reply to: