[project @ peter@palfrader.org-20090309222939-d2ca9xtvbm0ojbut]

[mirror/dsa-nagios.git] / dsa-nagios-nrpe-config / dsa-check-mirrorsync

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";