6 files changed, 13 insertions, 7 deletions

diff --git a/Changes b/Changes
index b85c2ac..cb73d8f 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl module Monitoring::Plugin.
 
+0.38 28th December 2014
+  - fix getopt test on windows system
+
 0.37 20nd January 2014
   - renamed module due to trademark issues
 
diff --git a/META.yml b/META.yml
index ebeebb1..a7d66a0 100644
--- a/META.yml
+++ b/META.yml
@@ -33,4 +33,4 @@ requires:
 resources:
   license: http://dev.perl.org/licenses/
   repository: https://github.com/monitoring-plugins/monitoring-plugin-perl
-version: 0.37
+version: 0.38
diff --git a/lib/Monitoring/Plugin.pm b/lib/Monitoring/Plugin.pm
index a5b51b1..8c30cc6 100644
--- a/lib/Monitoring/Plugin.pm
+++ b/lib/Monitoring/Plugin.pm
@@ -26,7 +26,7 @@ our @EXPORT_OK = qw(%ERRORS %STATUS_TEXT);
 # CPAN stupidly won't index this module without a literal $VERSION here,
 #   so we're forced to duplicate it explicitly
 # Make sure you update $Monitoring::Plugin::Functions::VERSION too
-our $VERSION = "0.37";
+our $VERSION = "0.38";
 
 sub new {
         my $class = shift;
diff --git a/lib/Monitoring/Plugin/Functions.pm b/lib/Monitoring/Plugin/Functions.pm
index d362f9c..34483e1 100644
--- a/lib/Monitoring/Plugin/Functions.pm
+++ b/lib/Monitoring/Plugin/Functions.pm
@@ -12,7 +12,7 @@ use Params::Validate qw(:types validate);
 use Math::Calc::Units;
 
 # Remember to update Monitoring::Plugins as well
-our $VERSION = "0.37";
+our $VERSION = "0.38";
 
 our @STATUS_CODES = qw(OK WARNING CRITICAL UNKNOWN DEPENDENT);
 
diff --git a/lib/Monitoring/Plugin/Getopt.pm b/lib/Monitoring/Plugin/Getopt.pm
index 3575ce6..db98567 100644
--- a/lib/Monitoring/Plugin/Getopt.pm
+++ b/lib/Monitoring/Plugin/Getopt.pm
@@ -41,7 +41,7 @@ my @ARGS = ({
     help => "-V, --version\n   Print version information",
   }, {
     spec => 'extra-opts:s@',
-    help => "--extra-opts=[section][\@file]\n   Read options from an ini file. See http://nagiosplugins.org/extra-opts\n   for usage and examples.",
+    help => "--extra-opts=[section][\@file]\n   Read options from an ini file. See https://www.monitoring-plugins.org/doc/extra-opts.html\n   for usage and examples.",
   }, {
     spec => 'timeout|t=i',
     help => "-t, --timeout=INTEGER\n   Seconds before plugin times out (default: %s)",
@@ -534,8 +534,8 @@ processing for Nagios plugins
   $ng->getopts;
 
   # Access arguments using named accessors or or via the generic get()
-  print $ng->warning;
-  print $ng->get('critical');
+  print $ng->opts->warning;
+  print $ng->opts->get('critical');
 
 
 
diff --git a/t/Monitoring-Plugin-Getopt-03.t b/t/Monitoring-Plugin-Getopt-03.t
index 6490145..bcf324e 100644
--- a/t/Monitoring-Plugin-Getopt-03.t
+++ b/t/Monitoring-Plugin-Getopt-03.t
@@ -97,7 +97,10 @@ for my $infile (glob File::Spec->catfile($tdir, 'input', $glob)) {
       if ($@) {
         chomp $@;
         ok($infile =~ m/_(dies?|catch)$/, "$infile ($@)");
-        is($@, $EXPECTED{$infile}, $infile) if ($infile =~ m/_catch$/);
+        my $expect = $EXPECTED{$infile};
+        # windows expects backslashes fixes rt.cpan #100708
+        $expect =~ s#/#\\#gmx if $^O =~ m/^MSWin/;
+        is($@, $expect, $infile) if ($infile =~ m/_catch$/);
       }
       else {
         is($plugin . ' ' . $ng->_cmdline, $EXPECTED{$infile}, $infile);