fix warning in function tests

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

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

1 files changed, 1 insertions, 1 deletions

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}");