From 828e417c16f071ebb20b554a1eff64e5b13aeaaa Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Thu, 2 Feb 2017 15:18:03 +0100 Subject: [PATCH] name change: validator statt validater --- SL/DB/Helper/IBANValidation.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)}; -- 2.20.1