kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

woops typo

This commit is contained in:
Brian West 2014-06-17 17:20:00 -05:00
parent b0369d321f
commit 315add5637
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/perl/ftc_dnc_register.pl
View File

@ -21,7 +21,7 @@ my @nums = <NUMS>;
foreach my $num (@nums) { foreach my $num (@nums) {
chomp $num; chomp $num;
$num =~ s/^1//; $num =~ s/^1//;
next if lenght($num) != 10; next if length($num) != 10;
print "Dialing from $num\n"; print "Dialing from $num\n";
my @digits = split(//, $num); my @digits = split(//, $num);
my $dial = join('w', @digits); my $dial = join('w', @digits);