From 9005b757f5ecd7e07529cd30a148488a8f081715 Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Wed, 24 Aug 2005 19:16:49 +0000
Subject: [PATCH] Mention BEGIN { strict->import(); } as a substitute for 'use
 strict' in plperl functions.

---
 doc/src/sgml/plperl.sgml | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/doc/src/sgml/plperl.sgml b/doc/src/sgml/plperl.sgml
index e7cdd2eb3c..f1a99a1f99 100644
--- a/doc/src/sgml/plperl.sgml
+++ b/doc/src/sgml/plperl.sgml
@@ -1,5 +1,5 @@
 <!--
-$PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.44 2005/08/24 18:56:07 tgl Exp $
+$PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.45 2005/08/24 19:16:49 tgl Exp $
 -->
 
  <chapter id="plperl">
@@ -253,12 +253,16 @@ SELECT * FROM perl_set();
   </para>
 
   <para>
-   Another way to use the <literal>strict</> pragma is to just put
+   Another way to use the <literal>strict</> pragma is to put
 <programlisting>
 use strict;
 </programlisting>
-   in the function body.  But this only works for <application>PL/PerlU</>
-   functions, since <literal>use</> is not a trusted operation.
+   in the function body.  But this only works in <application>PL/PerlU</>
+   functions, since <literal>use</> is not a trusted operation.  In
+   <application>PL/Perl</> functions you can instead do
+<programlisting>
+BEGIN { strict->import(); }
+</programlisting>
   </para>
  </sect1>