X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FModules%2Fscramble.pl;h=970040604ef658b43004366c6cddd830e21c615e;hb=1a1c65885f72b69edfc4073d7db1cb50327165b4;hp=5bbb597a806e359e96ec986a9ccd9d77f80d61f9;hpb=9ded33cba71a92db9d4aa8add8ab410341cf9f9c;p=infobot.git diff --git a/src/Modules/scramble.pl b/src/Modules/scramble.pl index 5bbb597..9700406 100644 --- a/src/Modules/scramble.pl +++ b/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) {