diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-08-29 16:00:46 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-08-29 16:00:46 -0700 |
| commit | 5044079396b9bef09dd498a0e64a4f20046318b8 (patch) | |
| tree | 6eeb0433f13d935460dd915780a39a84e41040b7 | |
| parent | 0db7afaa7079e7a997d1309715d371a0d8ad279b (diff) | |
eliminate "defined(@array) is deprecated" warnings
| -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 ef0d88d80..671d16c92 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -1163,8 +1163,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') { @@ -1406,9 +1405,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' |