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-spook.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bin/solve-spook.pl')

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 {
-- 
cgit v1.2.3-54-g00ecf