[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[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: