warnings: uninitialized in eq

diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm
index 36bddc0..a19520e 100644 (file)
--- a/SL/DB/Customer.pm
+++ b/SL/DB/Customer.pm
@@ -35,7 +35,7 @@ __PACKAGE__->before_save('_before_save_set_customernumber');
 sub _before_save_set_customernumber {
   my ($self) = @_;
 
-  $self->create_trans_number if $self->customernumber eq '';
+  $self->create_trans_number if !defined $self->customernumber || $self->customernumber eq '';
   return 1;
 }
 

diff --git a/SL/DB/Vendor.pm b/SL/DB/Vendor.pm
index 8a1ea46..9a36afb 100644 (file)
--- a/SL/DB/Vendor.pm
+++ b/SL/DB/Vendor.pm
@@ -35,7 +35,7 @@ __PACKAGE__->before_save('_before_save_set_vendornumber');
 sub _before_save_set_vendornumber {
   my ($self) = @_;
 
-  $self->create_trans_number if $self->vendornumber eq '';
+  $self->create_trans_number if !defined $self->vendornumber || $self->vendornumber eq '';
   return 1;
 }