X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=blootbot%2Fsrc%2FCLI%2FSupport.pl;h=7ee3a0b0dc0a2ad3aa009b2cbc8f7a381ef02b95;hb=bf965fe525a92b2670e68dfff6d51da8cd98a692;hp=d3c5a3d3407aafef6e0eef1b3d541e345c493c0d;hpb=098a4a5091cee7b33b8fd0f8d8c9b93abe702729;p=infobot.git diff --git a/blootbot/src/CLI/Support.pl b/blootbot/src/CLI/Support.pl index d3c5a3d..7ee3a0b 100644 --- a/blootbot/src/CLI/Support.pl +++ b/blootbot/src/CLI/Support.pl @@ -16,13 +16,13 @@ sub cliloop { $nuh = "local!local\@local"; $uh = "local\@local"; - $who = "local"; - $orig{who} = "local"; + $who = 'local'; + $orig{who} = 'local'; $ident = $param{'ircUser'}; $chan = $talkchannel = "_local"; $addressed = 1; $msgType = 'private'; - $host = "local"; + $host = 'local'; # install libterm-readline-gnu-perl to get history support use Term::ReadLine; @@ -47,7 +47,7 @@ sub msg { } if (!defined $msg) { - $msg ||= "NULL"; + $msg ||= 'NULL'; &WARN("msg: msg == $msg."); return; }