[freeside-commits] freeside/FS/FS Record.pm,1.164,1.165

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv15133

Modified Files:
	Record.pm 
Log Message:
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

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.164
retrieving revision 1.165
diff -u -d -r1.164 -r1.165
--- Record.pm	3 Aug 2008 00:20:42 -0000	1.164
+++ Record.pm	3 Aug 2008 00:26:41 -0000	1.165
@@ -808,7 +808,8 @@
   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') {