diff options
Diffstat (limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_backuppc')
| -rw-r--r-- | nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_backuppc/use_nagios_plugins | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_backuppc/use_nagios_plugins b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_backuppc/use_nagios_plugins new file mode 100644 index 0000000..15bcf2a --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_backuppc/use_nagios_plugins @@ -0,0 +1,34 @@ +diff --git a/check_backuppc/check_backuppc-1.1.0/check_backuppc b/check_backuppc/check_backuppc-1.1.0/check_backuppc +index d8ea383..c994c20 100755 +--- a/check_backuppc/check_backuppc-1.1.0/check_backuppc ++++ b/check_backuppc/check_backuppc-1.1.0/check_backuppc +@@ -32,7 +32,28 @@ no utf8; + + # Nagios + use lib "NAGIOS_LIB"; +-use utils qw(%ERRORS $TIMEOUT); ++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(qw(%ERRORS)); ++ $module = $name; ++ }; ++ last if $module; ++ } ++ return $module; ++} ++ ++my $plugin_module; ++BEGIN { ++ $plugin_module = load_module( 'Monitoring::Plugin', 'Nagios::Plugin' ); ++} + use POSIX qw(strftime difftime); + use Getopt::Long; + Getopt::Long::Configure('bundling'); |