X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2Fcatbook-code.git;a=blobdiff_plain;f=lib%2FLolCatalyst%2FLite%2FTranslator%2FDriver%2FScramble.pm;fp=lib%2FLolCatalyst%2FLite%2FTranslator%2FDriver%2FScramble.pm;h=722c20b8d1a33e59c4a8e8f860ab746f963c0305;hp=c6e0b6e4c637db226a81aa234a332a2b2432df27;hb=60ff4c9f0388538d3e92fb26b48abe597c993552;hpb=a90d52468bd9349288946ebe44236f03fe654f68

diff --git a/lib/LolCatalyst/Lite/Translator/Driver/Scramble.pm b/lib/LolCatalyst/Lite/Translator/Driver/Scramble.pm
index c6e0b6e..722c20b 100644
--- a/lib/LolCatalyst/Lite/Translator/Driver/Scramble.pm
+++ b/lib/LolCatalyst/Lite/Translator/Driver/Scramble.pm
@@ -40,8 +40,11 @@ with 'LolCatalyst::Lite::Interface::TranslationDriver';
 
 sub translate {
   my ($self, $text) = @_;
-  _scramble_block(\$text);
-  return $text;
+  my $copy = $text;
+  do {
+    _scramble_block(\$copy);
+  } until ($copy ne $text);
+  return $copy;
 }
 
 1;