packages: nagios-plugin-check_redis/check_redis.pl - redefine Carp::longmes...

[glen]

Author: glen                         Date: Wed Dec 21 19:32:53 2011 GMT
Module: packages                      Tag: HEAD
---- Log message:
- redefine Carp::longmess() instead. tx to mst @ #perl

---- Files affected:
packages/nagios-plugin-check_redis:
   check_redis.pl (1.2 -> 1.3) 

---- Diffs:

================================================================
Index: packages/nagios-plugin-check_redis/check_redis.pl
diff -u packages/nagios-plugin-check_redis/check_redis.pl:1.2 packages/nagios-plugin-check_redis/check_redis.pl:1.3
--- packages/nagios-plugin-check_redis/check_redis.pl:1.2	Wed Dec 21 20:16:47 2011
+++ packages/nagios-plugin-check_redis/check_redis.pl	Wed Dec 21 20:32:48 2011
@@ -64,12 +64,14 @@
 
 # Run 'info' command
 eval {
+	no warnings 'redefine';
+	local *Carp::longmess = sub { shift(), "\n" };
 	$info = get_info();
 };
 
 if ($@) {
 	# Exit if connection failed
-	print $STATES[$STATE_CRITICAL] . " - Could not connect: $!\n";
+	print $STATES[$STATE_CRITICAL] . " - $@";
 	exit $STATE_CRITICAL;
 }
 
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/nagios-plugin-check_redis/check_redis.pl?r1=1.2&r2=1.3&f=u