From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 23 Dec 2008 22:59:22 +0000 (+0000)
Subject: [project @ peter@palfrader.org-20081223225922-qe3i8wk38mnqkuoc]
X-Git-Url: https://git.adam-barratt.org.uk/?a=commitdiff_plain;h=531a0429e4751fe4265df4cdd1cfff78103ba066;p=mirror%2Fdsa-nagios.git

[project @ peter@palfrader.org-20081223225922-qe3i8wk38mnqkuoc]
make it work in embedded perl again
---

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 <weasel@debian.org>  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";