diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-08-29 16:00:43 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-08-29 16:00:43 -0700 |
commit | beeeec140a0479d5757031d9ace0e40871d41d22 (patch) | |
tree | 6c86aa87c44b45632561c155b50ea33fcd81c3d7 /FS/FS/Record.pm | |
parent | 1d4c8f82596a7f3695ba2203e301e497dec9194c (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 d6892a96c..fafceacb5 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' |