From 784853b8a9d5ba5a7d91bcc58d64ce81303336f3 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 3 Aug 2008 00:26:41 +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 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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') {
-- 
2.11.0