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

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

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