From c4dd5a42a60a2c6cb6c96f617ade98a08ddaf77f Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Wed, 17 Dec 2008 23:54:11 -0500
Subject: don't know why i was using $start here

---
 bin/solve-ghost.pl      | 2 +-
 bin/solve-spook.pl      | 2 +-
 bin/solve-superghost.pl | 2 +-
 bin/solve-xghost.pl     | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/solve-ghost.pl b/bin/solve-ghost.pl
index ec59165..d119374 100644
--- a/bin/solve-ghost.pl
+++ b/bin/solve-ghost.pl
@@ -3,6 +3,6 @@ use strict;
 use warnings;
 use Games::Word::Wordlist;
 
-my $start = $ARGV[0] or die "Usage: $0 <word_prefix>\n";
+die "Usage: $0 <word_prefix>\n" unless @ARGV;
 my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
 print "$_\n" for $wl->words_like(qr/^\Q$ARGV[0]/i);
diff --git a/bin/solve-spook.pl b/bin/solve-spook.pl
index f0ca2ae..a330c45 100644
--- a/bin/solve-spook.pl
+++ b/bin/solve-spook.pl
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Games::Word::Wordlist;
 
-my $start = $ARGV[0] or die "Usage: $0 <subword>\n";
+die "Usage: $0 <subword>\n" unless @ARGV;
 my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
 my $re = join '.*', sort split(//, $ARGV[0]);
 $wl->each_word(sub {
diff --git a/bin/solve-superghost.pl b/bin/solve-superghost.pl
index b020057..d5276db 100644
--- a/bin/solve-superghost.pl
+++ b/bin/solve-superghost.pl
@@ -3,6 +3,6 @@ use strict;
 use warnings;
 use Games::Word::Wordlist;
 
-my $start = $ARGV[0] or die "Usage: $0 <word_prefix>\n";
+die "Usage: $0 <word_prefix>\n" unless @ARGV;
 my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
 print "$_\n" for $wl->words_like(qr/\Q$ARGV[0]/i);
diff --git a/bin/solve-xghost.pl b/bin/solve-xghost.pl
index ebfa864..3926e7e 100644
--- a/bin/solve-xghost.pl
+++ b/bin/solve-xghost.pl
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Games::Word::Wordlist;
 
-my $start = $ARGV[0] or die "Usage: $0 <subword>\n";
+die "Usage: $0 <subword>\n" unless @ARGV;
 my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
 my $re = join '.*', split(//, $ARGV[0]);
 print "$_\n" for $wl->words_like(qr/$re/i);
-- 
cgit v1.2.3