From 93e34d4c7c97ca9c9e3c874274ef530dd550e86b 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 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/src/sgml/plperl.sgml b/doc/src/sgml/plperl.sgml
index 6c1092350e..efeef80601 100644
--- a/doc/src/sgml/plperl.sgml
+++ b/doc/src/sgml/plperl.sgml
@@ -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>
 
-- 
2.39.5