From 520a0579683328dd8bc0771298ae6ea203353479 Mon Sep 17 00:00:00 2001
From: glyn <glyn@8kb.co.uk>
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(<FD>) {
- @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.5