summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xnagios-check-libs18
1 files changed, 9 insertions, 9 deletions
diff --git a/nagios-check-libs b/nagios-check-libs
index 0a16b79..f357a73 100755
--- a/nagios-check-libs
+++ b/nagios-check-libs
@@ -21,12 +21,18 @@ my $UNKNOWN = 3;
my $params;
Getopt::Long::config('bundling');
+
+sub dief {
+ print STDERR $_;
+ exit $UNKNOWN;
+}
+
if (!GetOptions (
'--help' => \$params->{'help'},
'--version' => \$params->{'version'},
'--verbose' => \$params->{'verbose'},
)) {
- die ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--verbose]\n");
+ dief ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--verbose]\n");
};
if ($params->{'help'}) {
print "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--verbose]\n";
@@ -40,12 +46,6 @@ if ($params->{'version'}) {
exit (0);
};
-$SIG{'__DIE__'} = sub {
- print STDERR @_;
- exit $UNKNOWN;
-};
-
-
my %processes;
sub getPIDs($$) {
@@ -84,11 +84,11 @@ sub inVserver() {
my $INVSERVER = inVserver();
print STDERR "Running $LSOF -n\n" if $params->{'verbose'};
-open (LSOF, "$LSOF -n|") or die ("Cannot run $LSOF -n: $!\n");
+open (LSOF, "$LSOF -n|") or dief ("Cannot run $LSOF -n: $!\n");
my @lsof=<LSOF>;
close LSOF;
if ($CHILD_ERROR) { # program failed
- die("$LSOF -n returned with non-zero exit code: ".($CHILD_ERROR / 256)."\n");
+ dief("$LSOF -n returned with non-zero exit code: ".($CHILD_ERROR / 256)."\n");
};
for my $line (@lsof) {