diff --git a/modules/qalc.pl b/modules/qalc.pl index c772a1ef..88cee4f3 100755 --- a/modules/qalc.pl +++ b/modules/qalc.pl @@ -9,14 +9,12 @@ use strict; my $args = join ' ', @ARGV; -my $qargs = quotemeta $args; - -if (not length $qargs) { +if (not length $args) { print "Usage: qalc \n"; exit; } -my $result = `qalc $qargs`; +my $result = `ulimit -t 2; qalc '$args'`; $result =~ s/^.*approx.\s+//; $result =~ s/^.*=\s+//;