From 531a0429e4751fe4265df4cdd1cfff78103ba066 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 23 Dec 2008 22:59:22 +0000 Subject: [PATCH] [project @ peter@palfrader.org-20081223225922-qe3i8wk38mnqkuoc] make it work in embedded perl again --- dsa-nagios-nrpe-config/debian/changelog | 6 ++++++ dsa-nagios-nrpe-config/dsa-check-mirrorsync | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/dsa-nagios-nrpe-config/debian/changelog b/dsa-nagios-nrpe-config/debian/changelog index f80153e..468dd89 100644 --- a/dsa-nagios-nrpe-config/debian/changelog +++ b/dsa-nagios-nrpe-config/debian/changelog @@ -1,3 +1,9 @@ +dsa-nagios-nrpe-config (64) unstable; urgency=low + + * dsa-check-mirrorsync: make it work in embedded perl again. + + -- Peter Palfrader Tue, 23 Dec 2008 22:59:06 +0000 + dsa-nagios-nrpe-config (63) unstable; urgency=low * dsa-check-mirrorsync: print help if additional args are given (we don't diff --git a/dsa-nagios-nrpe-config/dsa-check-mirrorsync b/dsa-nagios-nrpe-config/dsa-check-mirrorsync index 413f6a1..4637cab 100755 --- a/dsa-nagios-nrpe-config/dsa-check-mirrorsync +++ b/dsa-nagios-nrpe-config/dsa-check-mirrorsync @@ -31,14 +31,14 @@ use File::Basename; use English; use warnings; -my $VERSION = '0.1'; -my $PROG = basename($PROGRAM_NAME); sub usage($$) { my ($fh, $exit) = @_; + my $basename = basename($PROGRAM_NAME); + my $VERSION = '0.1'; - print $fh "$PROG $VERSION\n"; - print $fh "Usage: $PROG [--help|--version] [--verbose]\n"; + print $fh "$basename $VERSION\n"; + print $fh "Usage: $basename [--help|--version] [--verbose]\n"; print $fh "\n"; print $fh " --help Print this short help.\n"; print $fh " --version Report version number.\n"; -- 2.20.1