* Merge changes from prposed changes

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

diff --git a/src/Modules/case.pl b/src/Modules/case.pl
index c41937cde8f5d29efc9fa0906369552c3fec94d7..0d5c932bb00accde1bd9d7439545bfe4f9fdd09d 100644 (file)
--- a/src/Modules/case.pl
+++ b/src/Modules/case.pl
@@ -9,7 +9,8 @@ package case;
 
 sub upper {
     my($message) = @_;
-    &::performStrictReply(uc $message);
+    # make it green like an old terminal
+    &::performStrictReply("\00303" . uc $message);
 }
 
 sub lower {
@@ -18,3 +19,5 @@ sub lower {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80