take a few more things literally

[infobot.git] / blootbot / src / Modules / UserInfo.pl

diff --git a/blootbot/src/Modules/UserInfo.pl b/blootbot/src/Modules/UserInfo.pl
index 6b769e559672e5669384f1d553f8c0d9db0fd3bb..b26b34ee5239630dad689c86e0f19d39256d8919 100644 (file)
--- a/blootbot/src/Modules/UserInfo.pl
+++ b/blootbot/src/Modules/UserInfo.pl
@@ -9,13 +9,13 @@
 
 use strict;
 
-my $orderOfInfo = "RN,J,C,W,D";
+my $orderOfInfo = 'RN,J,C,W,D';
 my %infoDesc = (
-       "RN"    => "Real Name",
-       "J"     => "Occupation",
-       "C"     => "Contact",
-       "W"     => "URL",
-       "D"     => "Description",
+       'RN'    => 'Real Name',
+       'J'     => 'Occupation',
+       'C'     => 'Contact',
+       'W'     => 'URL',
+       'D'     => 'Description',
 );
 
 sub UserInfo2Hash {
@@ -51,7 +51,7 @@ sub UserInfoGet {
     $query =~ s/^\s+|\s+$//g if (defined $query);
 
     if (!defined $query or $query =~ /^$/) {
-       &help("userinfo");
+       &help('userinfo');
        return;
     }
 
@@ -61,7 +61,7 @@ sub UserInfoGet {
     }
 
     my $result;
-    if ($result = &getFactoid($query." info")) {
+    if ($result = &getFactoid($query.' info')) {
        # good.
     } else { # bad.
        &performReply("No User Information on \002$query\002");
@@ -160,7 +160,7 @@ sub UserInfoSet {
        $userInfo{$info} = $what;
     }
 
-    &setFactInfo($who." info", "factoid_value", &Hash2UserInfo(%userInfo));
+    &setFactInfo($who.' info', 'factoid_value', &Hash2UserInfo(%userInfo));
     if ($new) {
        &DEBUG("UIS: locking '$who info'.");
        &DEBUG("UIS: nuh => '$nuh'.");