diff --git a/modules/cdecl.pl b/modules/cdecl.pl index 540b36a1..5d03e075 100755 --- a/modules/cdecl.pl +++ b/modules/cdecl.pl @@ -10,21 +10,8 @@ if ($#ARGV < 0) { my $command = join(' ', @ARGV); -$command =~ s/-[^ ]+//g; -$command =~ s/\\//g; -$command =~ s/;/\\;/g; -$command =~ s/\(/\\(/g; -$command =~ s/\)/\\)/g; -$command =~ s/\$/\\\$/g; -$command =~ s/\[/\\[/g; -$command =~ s/\]/\\]/g; -$command =~ s/\|/\\|/g; -$command =~ s/'/\\'/g; -$command =~ s/`/\\`/g; -$command =~ s/,/\\,/g; -$command =~ s/\*/\\*/g; -$command =~ s/\?/\\?/g; - +$command = quotemeta($command); +$command =~ s/\\ / /g; #print "[$command]\n"; my $result = `/usr/bin/cdecl -c $command`;