package md5;
sub md5 {
- my($message) = @_;
- return unless &::loadPerlModule("Digest::MD5");
+ my ($message) = @_;
+ 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;
+
+# vim:ts=4:sw=4:expandtab:tw=80