From a794b99a318251d939e5b687f8d7efa63d986108 Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Fri, 25 Jan 2008 15:28:35 +0000
Subject: [PATCH] Fix example of de-escaping bytea argument, per Florian
Weimer. Also fix example of escaping bytea return value. Both cases did not
handle backslash values properly.
---
doc/src/sgml/plperl.sgml | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/doc/src/sgml/plperl.sgml b/doc/src/sgml/plperl.sgml
index 826088c9c5f..11040c5700c 100644
--- a/doc/src/sgml/plperl.sgml
+++ b/doc/src/sgml/plperl.sgml
@@ -1,4 +1,4 @@
-<!-- $PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.66 2007/05/04 14:55:32 adunstan Exp $ -->
+<!-- $PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.67 2008/01/25 15:28:35 adunstan Exp $ -->
<chapter id="plperl">
<title>PL/Perl - Perl Procedural Language</title>
@@ -150,7 +150,7 @@ $$ LANGUAGE plperl;
<programlisting>
my $arg = shift;
- $arg =~ s!\\(\d{3})!chr(oct($1))!ge;
+ $arg =~ s!\\(?:\\|(\d{3}))!$1 ? chr(oct($1)) : "\\"!ge;
</programlisting>
</para>
@@ -161,7 +161,7 @@ $$ LANGUAGE plperl;
is how to escape binary data for a return value of type <type>bytea</>:
<programlisting>
- $retval =~ s!([^ -~])!sprintf("\\%03o",ord($1))!ge;
+ $retval =~ s!(\\|[^ -~])!sprintf("\\%03o",ord($1))!ge;
return $retval;
</programlisting>
--
GitLab