Author: anthm Date: Sat Jul 22 20:37:19 2006 New Revision: 2050 Modified: freeswitch/trunk/scripts/socket/fs.pl Log: fix quotes Modified: freeswitch/trunk/scripts/socket/fs.pl ============================================================================== --- freeswitch/trunk/scripts/socket/fs.pl (original) +++ freeswitch/trunk/scripts/socket/fs.pl Sat Jul 22 20:37:19 2006 @@ -5,7 +5,7 @@ my $fs = init FreeSWITCH::Client {-password => $password} or die "Error $@"; -my $term = new Term::ReadLine ?FreeSWITCH CLI?; +my $term = new Term::ReadLine "FreeSWITCH CLI"; my $prompt = "FS>"; my $OUT = $term->OUT .. \*STDOUT;