diff options
author | Gavin Carr <gonzai@users.sourceforge.net> | 2007-03-21 04:09:27 +0000 |
---|---|---|
committer | Gavin Carr <gonzai@users.sourceforge.net> | 2007-03-21 04:09:27 +0000 |
commit | 5b94b897ab4a2be6f5ee69c17fa74b0d937c5cc0 (patch) | |
tree | b19beb56f2c2d3ad1a553e043c203c325b697f6e /lib/Nagios | |
parent | 2984a99e41d40637ab89b7a1f69830cca04c81bc (diff) | |
download | monitoring-plugin-perl-5b94b897ab4a2be6f5ee69c17fa74b0d937c5cc0.tar.gz |
Revert $SIG{__DIE__} handler in Functions - failing on later perls.
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1645 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'lib/Nagios')
-rw-r--r-- | lib/Nagios/Plugin/Functions.pm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lib/Nagios/Plugin/Functions.pm b/lib/Nagios/Plugin/Functions.pm index 751251f..eb44976 100644 --- a/lib/Nagios/Plugin/Functions.pm +++ b/lib/Nagios/Plugin/Functions.pm | |||
@@ -46,13 +46,6 @@ our %STATUS_TEXT = reverse %ERRORS; | |||
46 | my $_fake_exit = 0; | 46 | my $_fake_exit = 0; |
47 | sub _fake_exit { @_ ? $_fake_exit = shift : $_fake_exit }; | 47 | sub _fake_exit { @_ ? $_fake_exit = shift : $_fake_exit }; |
48 | 48 | ||
49 | # Tweak default die handling: die is cool because it allows capturing both return codes and | ||
50 | # output via eval, but the Nagios Plugin Guidelines like STDOUT over STDERR | ||
51 | $SIG{__DIE__} = sub { | ||
52 | print STDOUT shift; | ||
53 | exit $!; | ||
54 | }; | ||
55 | |||
56 | sub get_shortname { | 49 | sub get_shortname { |
57 | my %arg = @_; | 50 | my %arg = @_; |
58 | 51 | ||