diff options
Diffstat (limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin')
| -rw-r--r-- | nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin new file mode 100644 index 0000000..ec3439e --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin @@ -0,0 +1,46 @@ +--- a/check_cups/check_cups ++++ b/check_cups/check_cups +@@ -39,13 +39,33 @@ + # http://search.cpan.org/~rgarcia/perl-5.6.2/pod/perllexwarn.pod + no warnings qw( redefine prototype ); + ++sub load_module { ++ my @names = @_; ++ my $module; ++ for my $name (@names) { ++ my $file = $name; ++ # requires need either a bare word or a file name ++ $file =~ s{::}{/}gsxm; ++ $file .= '.pm'; ++ eval { ++ require $file; ++ $name->import(); ++ $module = $name; ++ }; ++ last if $module; ++ } ++ return $module; ++} ++ ++my $plugin_module; ++ + BEGIN { + + # use Opsview libs + use lib '/usr/local/nagios/perl/lib'; + use lib '/usr/local/nagios/lib'; + +- use Nagios::Plugin; ++ $plugin_module = load_module( 'Monitoring::Plugin', 'Nagios::Plugin' ); + + use Data::Dumper; + +@@ -95,7 +115,7 @@ + This plugin was written at The Harvard-MIT Data Center + (http://www.hmdc.harvard.edu) by Steve Huff (<shuff\@hmdc.harvard.edu>). + LICENSE +-my( $plugin ) = Nagios::Plugin->new( ++my( $plugin ) = $plugin_module->new( + shortname => 'check_cups', + usage => $usagemsg, + version => '0.2', |