From 20a1aade8e12d3b99dd001501e8fc8075133635a Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 3 Aug 2008 00:20:42 +0000
Subject: [PATCH] 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

---
 FS/FS/Record.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 28c629562..4039facbd 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -806,17 +806,17 @@ sub insert {
   }
 
   my $table = $self->table;
-
   
   # Encrypt before the database
-  if ($conf->exists('encryption') && defined(eval '@FS::'. $table . '::encrypted_fields')) {
+  if ( defined(eval '@FS::'. $table . '::encrypted_fields')
+       && $conf->exists('encryption')
+  ) {
     foreach my $field (eval '@FS::'. $table . '::encrypted_fields') {
       $self->{'saved'} = $self->getfield($field);
       $self->setfield($field, $self->encrypt($self->getfield($field)));
     }
   }
 
-
   #false laziness w/delete
   my @real_fields =
     grep { defined($self->getfield($_)) && $self->getfield($_) ne "" }
-- 
2.11.0