[monitoring-plugin-perl] fix warning in function tests

[Sven Nierlein]

 Module: monitoring-plugin-perl
 Branch: master
 Commit: 5b2ab7f928b17b2013bdc914e36f7c2314f7b922
 Author: Sven Nierlein <sven at nierlein.de>
   Date: Mon Mar 30 17:32:53 2015 +0200
    URL: https://www.monitoring-plugins.org/repositories/monitoring-plugin-perl/commit/?id=5b2ab7f

fix warning in function tests

fixes https://rt.cpan.org/Ticket/Display.html?id=103190

Signed-off-by: Sven Nierlein <sven at nierlein.de>

---

 t/Monitoring-Plugin-Functions-01.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Monitoring-Plugin-Functions-01.t b/t/Monitoring-Plugin-Functions-01.t
index 084ad28..d99dcf7 100644
--- a/t/Monitoring-Plugin-Functions-01.t
+++ b/t/Monitoring-Plugin-Functions-01.t
@@ -19,7 +19,7 @@ foreach my $m ("", qw(::Threshold ::Getopt ::Performance ::Range)) {
 is(get_shortname, "MONITORING-PLUGIN-FUNCTIONS-01", "get_shortname ok");
 
 # Hardcoded checks of constants
-ok(%ERRORS, '%ERRORS defined');
+ok(defined %ERRORS, '%ERRORS defined');
 is(OK,          $ERRORS{OK},            "OK        => $ERRORS{OK}");
 is(WARNING,     $ERRORS{WARNING},       "WARNING   => $ERRORS{WARNING}");
 is(CRITICAL,    $ERRORS{CRITICAL},      "CRITICAL  => $ERRORS{CRITICAL}");