diff options
| author | ivan <ivan> | 2008-08-03 00:26:41 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-08-03 00:26:41 +0000 |
| commit | 784853b8a9d5ba5a7d91bcc58d64ce81303336f3 (patch) | |
| tree | bdb41734692eeb50f02330a467d12049eea56758 /FS | |
| parent | 20a1aade8e12d3b99dd001501e8fc8075133635a (diff) | |
attempt to eliminate 'Can't call method "exists" on an undefined value at /usr/local/share/perl/5.8.8/FS/Record.pm line 812.' error on upgrade
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Record.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 4039facbd..65bd8270f 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -808,7 +808,8 @@ sub insert { my $table = $self->table; # Encrypt before the database - if ( defined(eval '@FS::'. $table . '::encrypted_fields') + if ( defined(eval '@FS::'. $table . '::encrypted_fields') + && scalar( eval '@FS::'. $table . '::encrypted_fields') && $conf->exists('encryption') ) { foreach my $field (eval '@FS::'. $table . '::encrypted_fields') { |