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

Ivan,,, ivan at wavetail.420.am
Sat Aug 2 17:20:46 PDT 2008


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

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.163
retrieving revision 1.164
diff -u -d -r1.163 -r1.164
--- Record.pm	18 Jul 2008 22:27:14 -0000	1.163
+++ Record.pm	3 Aug 2008 00:20:42 -0000	1.164
@@ -806,17 +806,17 @@
   }
 
   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 "" }



More information about the freeside-commits mailing list