From a4145eb562a2b45aa0372f19ec50d0a84a3cee50 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 28 Feb 2005 23:50:24 +0000
Subject: [PATCH] don't die on words like 'seen'

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1194 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/scramble.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Modules/scramble.pl b/src/Modules/scramble.pl
index de652bb..fbe91c5 100644
--- a/src/Modules/scramble.pl
+++ b/src/Modules/scramble.pl
@@ -41,13 +41,12 @@ sub scramble
       {
 	# non-random shuffle, but good enough
 	($new_middle = $middle) =~ s/(.)(.)/$2$1/g;
-	last;
       }
 
       # shuffle the middle letters
       $new_middle = join "", List::Util::shuffle(split //, $middle);
     }
-    while ($middle eq $new_middle);
+    while (($cnt < 10) && ($middle eq $new_middle));
 
     # add the word to the list...
     $scrambled .= "$first$new_middle$last ";
-- 
2.39.5