graceful missing modules

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1099 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/blootbot/src/Modules/scramble.pl b/blootbot/src/Modules/scramble.pl
index 5bbb597a806e359e96ec986a9ccd9d77f80d61f9..970040604ef658b43004366c6cddd830e21c615e 100644 (file)
--- a/blootbot/src/Modules/scramble.pl
+++ b/blootbot/src/Modules/scramble.pl
@@ -12,13 +12,12 @@ use warnings;
 
 package scramble;
 
-use List::Util;
-
 sub scramble
 {
   my ($text) = @_;
   my $scrambled;
 
+  return unless &::loadPerlModule("List::Util");
   srand(); # fork seems to not change rand. force it here
   for my $orig_word (split /\s+/, $text)
   {