X-Git-Url: https://git.8kb.co.uk/?p=postgresql%2Fpg_controldata;a=blobdiff_plain;f=pg_controldata.plperlu;h=2a8bf3fcf9407288e4192ae97825ec54515f0c11;hp=844e74cef3e785a7bde5161e645b4f827f600355;hb=520a0579683328dd8bc0771298ae6ea203353479;hpb=7d6c1517f342528cffde356277d0f3efb380b9d0

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;