From 516d11a5f7c640f2c66b4d34d3d3580c5d492df7 Mon Sep 17 00:00:00 2001 From: Elijah Perrault Date: Mon, 11 Apr 2011 23:03:24 -0600 Subject: [PATCH] Fixing fails. --- lib/Core/Cmd.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Core/Cmd.pm b/lib/Core/Cmd.pm index b9493c7..370e758 100644 --- a/lib/Core/Cmd.pm +++ b/lib/Core/Cmd.pm @@ -265,7 +265,7 @@ sub cmd_help # Help for a specific command was requested. Lets get it. my $rcm = uc($argv[0]); - if (defined $API::Std::CMDS{$rcm}{help}) { + if (exists $API::Std::CMDS{$rcm}{help}) { # If there is help for this command. # Check for necessary privileges. @@ -282,13 +282,13 @@ sub cmd_help # Get the language. my ($lang, undef) = split('_', $Auto::LOCALE); - if (defined ${ $API::Std::CMDS{$rcm}{help} }{$lang}) { + if (exists ${ $API::Std::CMDS{$rcm}{help} }{$lang}) { # If help for this command is available in the configured language. notice($src->{svr}, $src->{nick}, "Help for \002".$rcm."\002: ".${ $API::Std::CMDS{$rcm}{help} }{$lang}); } else { # If it isn't, default to English. - if (defined ${ $API::Std::CMDS{$rcm}{help} }{en}) { + if (exists ${ $API::Std::CMDS{$rcm}{help} }{en}) { # If help for this command is available in English. notice($src->{svr}, $src->{nick}, "Help for \002".$rcm."\002: ".${ $API::Std::CMDS{$rcm}{help} }{en}); }