Ignore "is" operand if passed

Bad idea to remove existing feature.

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',