diff options
-rwxr-xr-x | pictor.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/pictor.pl b/pictor.pl index 82a797a..b74220b 100755 --- a/pictor.pl +++ b/pictor.pl @@ -21,10 +21,16 @@ pledge( qw( stdio rpath unveil ) ) # User must pass at least one argument. die "usage: pictor term\n" - if @ARGV < 1; + unless @ARGV > 0; my $term = $ARGV[0]; +# Ignore "is" operand if it's passed. +if ( $ARGV[0] eq "is" + and @ARGV > 1 ) { + $term = $ARGV[1]; +} + # files contains list of all files to search for acronyms. my @files = ( '/usr/local/share/misc/acronyms', |