git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@114115
65c4cc65-6c06-0410-ace0-
fbb531ad65f3
if ($word eq '') {
$buffer =~ m/(\S+)\s?$/;
$lastword = $1;
- print STDERR "\n\nlastword=\"$lastword\"\n";
+ #print STDERR "\n\nlastword=\"$lastword\"\n";
}
- my $res = send_command("_command matchesarray \"$buffer\" \"$word\"\n");
+ my $res = send_command("_command matchesarray \"$buffer\" \"$word\"");
foreach my $item (split /\s+/, $res) {
$items{$item}++ unless ($item eq '_EOF_' or $item eq '' or $item eq $lastword);
}