diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-08-29 16:00:44 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-08-29 16:00:44 -0700 |
commit | dfcd994a695e10f0868d906ebf9b1002a53e9d02 (patch) | |
tree | 8c15b2baf33fa60ae8726d4a32757ed32ce6722c /FS/FS/Record.pm | |
parent | d7b03819e8be84d2801ec94763688df163b41c5e (diff) |
eliminate "defined(@array) is deprecated" warnings
Diffstat (limited to 'FS/FS/Record.pm')
-rw-r--r-- | FS/FS/Record.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index d6892a9..fafceac 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -1300,8 +1300,7 @@ sub insert { my $table = $self->table; # Encrypt before the database - if ( defined(eval '@FS::'. $table . '::encrypted_fields') - && scalar( eval '@FS::'. $table . '::encrypted_fields') + if ( scalar( eval '@FS::'. $table . '::encrypted_fields') && $conf_encryption ) { foreach my $field (eval '@FS::'. $table . '::encrypted_fields') { @@ -1543,9 +1542,8 @@ sub replace { # Encrypt for replace my $saved = {}; - if ( $conf_encryption - && defined(eval '@FS::'. $new->table . '::encrypted_fields') - && scalar( eval '@FS::'. $new->table . '::encrypted_fields') + if ( scalar( eval '@FS::'. $new->table . '::encrypted_fields') + && $conf_encryption ) { foreach my $field (eval '@FS::'. $new->table . '::encrypted_fields') { next if $field eq 'payinfo' |