plperl: Documentation on BYTEA decoding is wrong

This doesn't work because '\' is turned into '\\' by PostgreSQL, and
not '\134':

my $arg = shift;
$arg =~ s!\\(\d{3})!chr(oct($1))!ge;

Something like this might be better:

my $arg = shift;
$arg =~ s!\\(?:\\|(\d{3}))!$1 ? chr(oct($1)) : "\\"!ge;

You need to do this in one go because pre-escaped backslashes like
like '\\101' cause problems otherwise.

(All ''-delimited strings in this posting use strict SQL syntax,
i.e. no escaped backslashes.)

--
Florian Weimer <fweimer(at)bfk(dot)de>
BFK edv-consulting GmbH http://www.bfk.de/
Kriegsstraße 100 tel: +49-721-96201-1
D-76133 Karlsruhe fax: +49-721-96201-99