From 520a0579683328dd8bc0771298ae6ea203353479 Mon Sep 17 00:00:00 2001 From: glyn Date: Wed, 7 Jan 2015 13:39:26 +0000 Subject: [PATCH] Fix indentation --- pg_controldata.plperlu | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/pg_controldata.plperlu b/pg_controldata.plperlu index 844e74c..2a8bf3f 100755 --- a/pg_controldata.plperlu +++ b/pg_controldata.plperlu @@ -17,7 +17,7 @@ $BODY$ my $rv; my $data_dir; my $pg_controldata_bin = 'pg_controldata'; - my @fields; + my @fields; $rv = spi_exec_query('SHOW data_directory', 1); $data_dir = $rv->{rows}[0]->{data_directory}; @@ -25,15 +25,14 @@ $BODY$ open(FD,"$pg_controldata_bin $data_dir | "); while() { - @fields = split(':', $_, 2); - $fields[0] =~ s/^\s+|\s+$//g; - $fields[1] =~ s/^\s+|\s+$//g; - return_next { name => $fields[0], setting => $fields[1]}; + @fields = split(':', $_, 2); + $fields[0] =~ s/^\s+|\s+$//g; + $fields[1] =~ s/^\s+|\s+$//g; + return_next { name => $fields[0], setting => $fields[1]}; } close (FD); return; - $BODY$ LANGUAGE plperlu; -- 2.39.2