Fix some inconsistent whitespace in Perl file

petere · petere · commit 7786af4d7418 · 2024-01-11T22:23:44.000+01:00
diff --git a/src/test/modules/test_pg_dump/t/001_base.pl b/src/test/modules/test_pg_dump/t/001_base.pl
@@ -387,14 +387,14 @@
 
 	'CREATE SEQUENCE regress_pg_dump_table_col1_seq' => {
 		regexp => qr/^
-                    \QCREATE SEQUENCE public.regress_pg_dump_table_col1_seq\E
-                    \n\s+\QAS integer\E
-                    \n\s+\QSTART WITH 1\E
-                    \n\s+\QINCREMENT BY 1\E
-                    \n\s+\QNO MINVALUE\E
-                    \n\s+\QNO MAXVALUE\E
-                    \n\s+\QCACHE 1;\E
-                    \n/xm,
+			\QCREATE SEQUENCE public.regress_pg_dump_table_col1_seq\E
+			\n\s+\QAS integer\E
+			\n\s+\QSTART WITH 1\E
+			\n\s+\QINCREMENT BY 1\E
+			\n\s+\QNO MINVALUE\E
+			\n\s+\QNO MAXVALUE\E
+			\n\s+\QCACHE 1;\E
+			\n/xm,
 		like => { binary_upgrade => 1, },
 	},
 
@@ -412,13 +412,13 @@
 
 	'CREATE SEQUENCE regress_pg_dump_seq' => {
 		regexp => qr/^
-                    \QCREATE SEQUENCE public.regress_pg_dump_seq\E
-                    \n\s+\QSTART WITH 1\E
-                    \n\s+\QINCREMENT BY 1\E
-                    \n\s+\QNO MINVALUE\E
-                    \n\s+\QNO MAXVALUE\E
-                    \n\s+\QCACHE 1;\E
-                    \n/xm,
+			\QCREATE SEQUENCE public.regress_pg_dump_seq\E
+			\n\s+\QSTART WITH 1\E
+			\n\s+\QINCREMENT BY 1\E
+			\n\s+\QNO MINVALUE\E
+			\n\s+\QNO MAXVALUE\E
+			\n\s+\QCACHE 1;\E
+			\n/xm,
 		like => { binary_upgrade => 1, },
 	},
 
@@ -642,13 +642,13 @@
 
 	'CREATE SEQUENCE regress_pg_dump_schema.test_seq' => {
 		regexp => qr/^
-                    \QCREATE SEQUENCE regress_pg_dump_schema.test_seq\E
-                    \n\s+\QSTART WITH 1\E
-                    \n\s+\QINCREMENT BY 1\E
-                    \n\s+\QNO MINVALUE\E
-                    \n\s+\QNO MAXVALUE\E
-                    \n\s+\QCACHE 1;\E
-                    \n/xm,
+			\QCREATE SEQUENCE regress_pg_dump_schema.test_seq\E
+			\n\s+\QSTART WITH 1\E
+			\n\s+\QINCREMENT BY 1\E
+			\n\s+\QNO MINVALUE\E
+			\n\s+\QNO MAXVALUE\E
+			\n\s+\QCACHE 1;\E
+			\n/xm,
 		like => { binary_upgrade => 1, },
 	},
 
@@ -663,9 +663,9 @@
 
 	'CREATE TYPE regress_pg_dump_schema.test_type' => {
 		regexp => qr/^
-                    \QCREATE TYPE regress_pg_dump_schema.test_type AS (\E
-                    \n\s+\Qcol1 integer\E
-                    \n\);\n/xm,
+			\QCREATE TYPE regress_pg_dump_schema.test_type AS (\E
+			\n\s+\Qcol1 integer\E
+			\n\);\n/xm,
 		like => { binary_upgrade => 1, },
 	},
 
@@ -680,9 +680,9 @@
 
 	'CREATE FUNCTION regress_pg_dump_schema.test_func' => {
 		regexp => qr/^
-            \QCREATE FUNCTION regress_pg_dump_schema.test_func() RETURNS integer\E
-            \n\s+\QLANGUAGE sql\E
-            \n/xm,
+			\QCREATE FUNCTION regress_pg_dump_schema.test_func() RETURNS integer\E
+			\n\s+\QLANGUAGE sql\E
+			\n/xm,
 		like => { binary_upgrade => 1, },
 	},
 
@@ -697,10 +697,10 @@
 
 	'CREATE AGGREGATE regress_pg_dump_schema.test_agg' => {
 		regexp => qr/^
-            \QCREATE AGGREGATE regress_pg_dump_schema.test_agg(smallint) (\E
-            \n\s+\QSFUNC = int2_sum,\E
-            \n\s+\QSTYPE = bigint\E
-            \n\);\n/xm,
+			\QCREATE AGGREGATE regress_pg_dump_schema.test_agg(smallint) (\E
+			\n\s+\QSFUNC = int2_sum,\E
+			\n\s+\QSTYPE = bigint\E
+			\n\);\n/xm,
 		like => { binary_upgrade => 1, },
 	},
 
