From 315add5637a2ed85651e3502a0c8054c1ef7d813 Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Tue, 17 Jun 2014 17:20:00 -0500
Subject: [PATCH] woops typo

---
 scripts/perl/ftc_dnc_register.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 = <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);