[check_postgres] [commit] Minor Perl::Critic inspired change (plus another git push test)

check_postgres at bucardo.org check_postgres at bucardo.org
Fri Apr 24 16:20:07 UTC 2009


Committed by Greg Sabino Mullane <greg at endpoint.com>

Minor Perl::Critic inspired change (plus another git push test)

---
 check_postgres.pl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/check_postgres.pl b/check_postgres.pl
index 37f0d86..94f9d52 100755
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -2812,10 +2812,10 @@ sub check_fsm_pages {
 	(my $c = $critical) =~ s/\D//;
 	my $SQL = qq{SELECT pages, maxx, ROUND(100*(pages/maxx)) AS percent\n}.
 	 		  qq{FROM (SELECT (sumrequests+numrels)*chunkpages AS pages\n}.
-			  qq{ FROM (SELECT SUM(CASE WHEN avgrequest IS NULL THEN interestingpages/32 }.
+			  qq{ FROM (SELECT SUM(CASE WHEN avgrequest IS NULL THEN interestingpages/32\n }.
 			  qq{ ELSE interestingpages/16 END) AS sumrequests,\n}.
 			  qq{ COUNT(relfilenode) AS numrels, 16 AS chunkpages FROM pg_freespacemap_relations) AS foo) AS foo2,\n}.
-			  qq{ (SELECT setting::NUMERIC AS maxx FROM pg_settings WHERE name = 'max_fsm_pages') AS foo3};
+			  q{ (SELECT setting::NUMERIC AS maxx FROM pg_settings WHERE name = 'max_fsm_pages') AS foo3};
 
 	my $info = run_command($SQL, {regex => qr[\d+] } );
 
-- 
1.6.0.5



More information about the Check_postgres mailing list