* version 1.2.0
authortrondham <trondham@e53b7cee-c147-0410-b3a0-ae4c1fa63963>
Tue, 16 Feb 2010 16:14:29 +0000 (16:14 +0000)
committertrondham <trondham@e53b7cee-c147-0410-b3a0-ae4c1fa63963>
Tue, 16 Feb 2010 16:14:29 +0000 (16:14 +0000)
git-svn-id: svn+ssh://vcs-usit.uio.no/svnroot/usit-unix-intern/trunk/usit-nagios-plugins/trondham/check_linux_bonding@16608 e53b7cee-c147-0410-b3a0-ae4c1fa63963

check_linux_bonding

index 88d3bfa..614a78e 100755 (executable)
@@ -45,7 +45,7 @@ $SIG{__WARN__} = \&collect_perl_warning;
 
 # Version and similar info
 my $NAME    = 'check_linux_bonding';
-my $VERSION = '1.2.0-beta3';
+my $VERSION = '1.2.0';
 my $AUTHOR  = 'Trond H. Amundsen';
 my $CONTACT = 't.h.amundsen@usit.uio.no';
 
@@ -473,6 +473,17 @@ my %nagios_level_count
 # holds only ok messages
 my @ok_reports = ();
 
+# Print any perl warnings that have occured
+if (@perl_warnings) {
+    foreach (@perl_warnings) {
+       chop @$_;
+        report("INTERNAL ERROR: @$_", $E_UNKNOWN);
+    }
+}
+
+# Reset the WARN signal
+$SIG{__WARN__} = $original_sigwarn;
+
 my $c = 0;
 ALERT:
 foreach (sort {$a->[1] < $b->[1]} @reports) {
@@ -499,18 +510,6 @@ if ($nagios_level_count{UNKNOWN} > 0)  { $exit_code = $E_UNKNOWN;  }
 if ($nagios_level_count{WARNING} > 0)  { $exit_code = $E_WARNING;  }
 if ($nagios_level_count{CRITICAL} > 0) { $exit_code = $E_CRITICAL; }
 
-# Print any perl warnings that have occured
-if (@perl_warnings) {
-    foreach (@perl_warnings) {
-       chop @$_;
-       print "${linebreak}INTERNAL ERROR: @$_";
-    }
-    $exit_code = $E_UNKNOWN;
-}
-
-# Reset the WARN signal
-$SIG{__WARN__} = $original_sigwarn;
-
 # Print OK messages
 if ($exit_code == $E_OK && !$opt{verbose}) {
     foreach my $msg (@ok_reports) {