[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 (file)
--- 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 (executable)
--- 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";