X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FDB%2FHelper%2FIBANValidation.pm;h=bc4cbf4511d061572a2f12d4b3f5163e3d4784e1;hb=053d0c377df96e552ae9bc28c1c1bded0fdfacac;hp=1336c835d84deecd87db637f72c6f3cb2367e4e4;hpb=c19bf55e3bf50622668a057144ce450a14d44889;p=kivitendo-erp.git

diff --git a/SL/DB/Helper/IBANValidation.pm b/SL/DB/Helper/IBANValidation.pm
index 1336c835d..bc4cbf451 100644
--- a/SL/DB/Helper/IBANValidation.pm
+++ b/SL/DB/Helper/IBANValidation.pm
@@ -6,7 +6,7 @@ use Algorithm::CheckDigits ();
 use Carp;
 use SL::Locale::String qw(t8);
 
-my $_validater;
+my $_validator;
 my %_countries = (
   AT => { len => 20, name => t8('Austria') },
   BE => { len => 16, name => t8('Belgium') },
@@ -29,9 +29,9 @@ sub _validate {
 
   return () unless length($iban);
 
-  $_validater //= Algorithm::CheckDigits::CheckDigits('iban');
+  $_validator //= Algorithm::CheckDigits::CheckDigits('iban');
 
-  return ($::locale->text("The value '#1' is not a valid IBAN.", $iban)) if !$_validater->is_valid($iban);
+  return ($::locale->text("The value '#1' is not a valid IBAN.", $iban)) if !$_validator->is_valid($iban);
 
   my $country = $_countries{substr($iban, 0, 2)};