Accepting request 327317 from home:hsk17:branches:devel:languages:perl

patch test to work with perl-5.22

OBS-URL: https://build.opensuse.org/request/show/327317
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Nagios-Plugin?expand=0&rev=22

perl-Nagios-Plugin.changes

@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Thu Aug 27 10:20:20 UTC 2015 - hsk@imb-jena.de
+
+- fix test to work with perl-5.22
+
 -------------------------------------------------------------------
 Tue Sep 23 19:32:49 UTC 2014 - lars@linux-schulserver.de
 

perl-Nagios-Plugin.spec

@@ -26,6 +26,7 @@ License:        Artistic-1.0 or GPL-2.0+
 Group:          Development/Languages/Perl
 Url:            http://search.cpan.org/perldoc?Nagios%3A%3APlugin
 Source:         %cpan_name-%{version}.tar.gz
+Patch0:         perl522.patch
 BuildRequires:  perl
 BuildRequires:  perl-macros
 BuildRequires:  perl(Class::Accessor)
@@ -53,6 +54,7 @@ developers to create plugins that conform the Nagios Plugin guidelines
 
 %prep
 %setup -q -n %cpan_name-%{version}
+%patch0 -p2
 
 %build
 perl Makefile.PL OPTIMIZE="%{optflags} -Wall"

perl522.patch

@@ -0,0 +1,11 @@
+--- a/Nagios-Plugin-0.36/t/Nagios-Plugin-Functions-01.t	2010-12-03 12:46:21.000000000 +0100
++++ b/Nagios-Plugin-0.36/t/Nagios-Plugin-Functions-01.t	2015-08-27 12:16:13.649140550 +0200
+@@ -19,7 +19,7 @@
+ is(get_shortname, "NAGIOS-PLUGIN-FUNCTIONS-01", "get_shortname ok");
+ 
+ # Hardcoded checks of constants
+-ok(defined %ERRORS, '%ERRORS defined');
++ok(%ERRORS, '%ERRORS defined');
+ is(OK,          $ERRORS{OK},            "OK        => $ERRORS{OK}");
+ is(WARNING,     $ERRORS{WARNING},       "WARNING   => $ERRORS{WARNING}");
+ is(CRITICAL,    $ERRORS{CRITICAL},      "CRITICAL  => $ERRORS{CRITICAL}");