diff --git a/scripts/perl/ftc_dnc_register.pl b/scripts/perl/ftc_dnc_register.pl index 5e6ddf9243..a53b7a6a4d 100644 --- a/scripts/perl/ftc_dnc_register.pl +++ b/scripts/perl/ftc_dnc_register.pl @@ -21,7 +21,7 @@ my @nums = ; foreach my $num (@nums) { chomp $num; $num =~ s/^1//; - next if lenght($num) != 10; + next if length($num) != 10; print "Dialing from $num\n"; my @digits = split(//, $num); my $dial = join('w', @digits);