diff options
author | Greg Sabino Mullane | 2009-02-20 14:49:31 +0000 |
---|---|---|
committer | Greg Sabino Mullane | 2009-02-20 14:49:31 +0000 |
commit | 54b650217c94455592a7ebb4f1a3bd597869d9d3 (patch) | |
tree | ea381205910127199eb3d329d2f3aa9ba745b920 | |
parent | 3c29a894837f484d9a0a4b7fb61c4676eeb582a2 (diff) |
Fix missing arg problem in msg() calls. Remove debug line.
-rwxr-xr-x | check_postgres.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/check_postgres.pl b/check_postgres.pl index 8f4c9d306..f49f00f5e 100755 --- a/check_postgres.pl +++ b/check_postgres.pl @@ -718,7 +718,8 @@ sub msg { my $x=1; { - last unless $msg =~ s/\$$x/$_[$x-1]/ge; + my $val = $_[$x-1]; + last unless $msg =~ s/\$$x/$val/g; $x++; redo; } @@ -2115,7 +2116,6 @@ sub check_backends { for $db (@{$info->{db}}) { my ($limit,$total,$grandtotal) = (0,0,0); - warn $db->{slurp}; SLURP: while ($db->{slurp} =~ /(\d+) \| (\d+)\s+\|\s+(\w+)\s*/gsm) { $grandtotal++; $limit ||= $2; |