diff --git a/bean-query-goofy-daemon.plx b/bean-query-goofy-daemon.plx index e258600..e6139b3 100755 --- a/bean-query-goofy-daemon.plx +++ b/bean-query-goofy-daemon.plx @@ -84,7 +84,7 @@ while (1) { print STDERR "sleep for 2 seconds\n" if $VERBOSE > 2; sleep 2; next; - } elsif ($query{question} !~ /^[\,\=\~\-\@\w.\s\"\'\_\(\)]+$/) { + } elsif ($query{question} !~ /^[\,\=\~\-\@\w.\s\"\'\_\(\)\<\>\*\.\!]+$/) { print STDERR "Query string $query{question} looks suspicious, not running beancount query!\n"; (tied %query)->shlock; $query{fifoName} = mktemp("REJECTED_beancount-query-fifo-this-file-does-not-exist_${$}_XXXXXXXXX");