Perl Nagios::Plugin vs Monitoring::Plugin

[Florian Lohoff]

On Fri, Sep 08, 2017 at 02:24:54PM +0200, Sven Nierlein wrote:
> Hi,
> 
> you could use Module::Load (which is a perl core module) to do that:
> 
> use Module::Load qw/load/;
> eval {
>   load Monitoring::Plugin, qw/required exports/;
> };
> if($@) {
>   load Nagios::Plugin, qw/required exports/;
> }

This fails for me - Testcase:

#!/usr/bin/perl -w

use strict;
use Getopt::Long;

use Module::Load qw/autoload/;
my $module="Nagios::Plugin";
eval {
        require Nagios::Plugin;
        1;
} or do {
        $module="Monitoring::Plugin";
};

autoload $module;
my $np=new $module;

$np->nagios_exit(UNKNOWN, "Unknown");

Returns:

Bareword "UNKNOWN" not allowed while "strict subs" in use at /tmp/f line 18.

$ERRORS{UNKNOWN} is equally not imported. Using qw/UNKNOWN/ with load or autoload does not
change anything.

> Or just stay with Nagios::Plugin till the old systems fade out. You can use
> Monitoring::Plugin by the name "Nagios::Plugin" as well. It comes
> with a compatibility module.

The problem here is that Debian/Stretch does not seem to ship it - 

flo at p3:~$ lsb_release -a
No LSB modules are available.
Distributor ID:	Debian
Description:	Debian GNU/Linux 9.1 (stretch)
Release:	9.1
Codename:	stretch
flo at p3:~$ dpkg -l libmonitoring-plugin-perl
Desired=Unknown/Install/Remove/Purge/Hold
| Status=Not/Inst/Conf-files/Unpacked/halF-conf/Half-inst/trig-aWait/Trig-pend
|/ Err?=(none)/Reinst-required (Status,Err: uppercase=bad)
||/ Name                         Version             Architecture        Description
+++-============================-===================-===================-=============================================================
ii  libmonitoring-plugin-perl    0.39-1              all                 family of perl modules to streamline writing Monitoring plugi
flo at p3:~$ perl -MNagios::Plugin 
Can't locate Nagios/Plugin.pm in @INC (you may need to install the Nagios::Plugin module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.24.1 /usr/local/share/perl/5.24.1 /usr/lib/x86_64-linux-gnu/perl5/5.24 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.24 /usr/share/perl/5.24 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base).
BEGIN failed--compilation aborted.


Flo
-- 
Florian Lohoff                                                 f at zz.de
             UTF-8 Test: The 🐈 ran after a 🐁, but the 🐁 ran away
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 828 bytes
Desc: Digital signature
URL: <https://www.monitoring-plugins.org/archive/devel/attachments/20170908/e7e81c84/attachment.sig>