From 4d10679f7b649d9343f74503b14d17fc2831c40f Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 4 Sep 2013 22:33:30 -0700 Subject: [PATCH] defined(@array) is deprecated --- FS/FS/Mason.pm | 4 ++-- FS/FS/Record.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 5cecefd7c..88198dd05 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -422,7 +422,7 @@ if ( -e $addl_handler_use_file ) { use vars qw($m); # false laziness w/below - if ( defined(@DBIx::Profile::ISA) ) { + if ( @DBIx::Profile::ISA ) { if ( $FS::CurrentUser::CurrentUser->option('show_db_profile') ) { @@ -482,7 +482,7 @@ if ( -e $addl_handler_use_file ) { use vars qw($m); $m->clear_buffer; #false laziness w/above - if ( defined(@DBIx::Profile::ISA) ) { + if ( @DBIx::Profile::ISA ) { if ( $FS::CurrentUser::CurrentUser->option('show_db_profile') ) { diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 35240d452..fd035249b 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -506,7 +506,7 @@ sub qsearch { # Check for encrypted fields and decrypt them. ## only in the local copy, not the cached object if ( $conf_encryption - && eval 'defined(@FS::'. $table . '::encrypted_fields)' ) { + && eval '@FS::'. $table . '::encrypted_fields' ) { foreach my $record (@return) { foreach my $field (eval '@FS::'. $table . '::encrypted_fields') { next if $field eq 'payinfo' @@ -715,7 +715,7 @@ sub _from_hashref { # Check for encrypted fields and decrypt them. ## only in the local copy, not the cached object if ( $conf_encryption - && eval 'defined(@FS::'. $table . '::encrypted_fields)' ) { + && eval '@FS::'. $table . '::encrypted_fields' ) { foreach my $record (@return) { foreach my $field (eval '@FS::'. $table . '::encrypted_fields') { next if $field eq 'payinfo' -- 2.11.0