--- pl/plperl/plperl.c.1~	2005-05-22 09:35:28.833334203 +0530
+++ pl/plperl/plperl.c	2005-05-22 09:38:22.535993491 +0530
@@ -4,7 +4,7 @@
  * IDENTIFICATION
  *
  *	  This software is copyrighted by Mark Hollomon
- *	 but is shameless cribbed from pltcl.c by Jan Weick.
+ *	  but is shameless cribbed from pltcl.c by Jan Weick.
  *
  *	  The author hereby grants permission  to  use,  copy,	modify,
  *	  distribute,  and	license this software and its documentation
@@ -161,15 +161,15 @@
 	 * Get user settings needed before we set up the interpreter
 	 ************************************************************/
 
-    DefineCustomBoolVariable(
-        "plperl.use_strict",
-        "If true, will compile trusted and untrusted perl code in strict mode",
-        NULL,
-        &plperl_use_strict,
-        PGC_USERSET,
-        NULL, NULL);
+	DefineCustomBoolVariable(
+		"plperl.use_strict",
+		"If true, will compile trusted and untrusted perl code in strict mode",
+		NULL,
+		&plperl_use_strict,
+		PGC_USERSET,
+		NULL, NULL);
 
-    EmitWarningsOnPlaceholders("plperl"); 
+	EmitWarningsOnPlaceholders("plperl");
 	
 	/************************************************************
 	 * Create the Perl interpreter
@@ -248,7 +248,7 @@
 	"$PLContainer->permit_only(':default');"
 	"$PLContainer->permit(qw[:base_math !:base_io sort time]);"
 	"$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG "
-    "&INFO &NOTICE &WARNING &ERROR %_SHARED ]);"
+	"&INFO &NOTICE &WARNING &ERROR %_SHARED ]);"
 			   ;
 
 	static char * strict_safe_ok =
@@ -269,7 +269,7 @@
 	"$PLContainer->share(qw[&elog &ERROR ]);"
 	"sub ::mksafefunc { return $PLContainer->reval(qq[sub { "
 	"elog(ERROR,'trusted Perl functions disabled - "
-    "please upgrade Perl Safe module to version 2.09 or later');}]); }"
+	"please upgrade Perl Safe module to version 2.09 or later');}]); }"
 			   ;
 
 	SV		   *res;