take a few more things literally

[infobot.git] / src / Modules / md5.pl

diff --git a/src/Modules/md5.pl b/src/Modules/md5.pl
index 8b59b7cd31c41642d5aa2625ad94cd7b49d0703a..7bf1b51e9ea9d52b09f44d70022af18a408c67c0 100644 (file)
--- a/src/Modules/md5.pl
+++ b/src/Modules/md5.pl
@@ -9,11 +9,9 @@ package md5;
 
 sub md5 {
     my($message) = @_;
-    return unless &::loadPerlModule("Digest::MD5");
+    return unless &::loadPerlModule('Digest::MD5');
 
-#perl -e'use Digest::MD5 qw(md5_hex); print md5_hex("foo\n") . "\n";'
-
-    &::pSReply(&Digest::MD5::md5_hex($message));
+    &::performStrictReply(&Digest::MD5::md5_hex($message));
 }
 
 1;