Small plperl documentation patch

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
NotDashEscaped: You need GnuPG to verify this message

Using $a and $b for temporary vars are bad form for our example,
as they have special meaning in Perl.

Index: plperl.sgml
===================================================================
RCS file: /projects/cvsroot/pgsql/doc/src/sgml/plperl.sgml,v
retrieving revision 2.46
diff -r2.46 plperl.sgml
121,124c121,124
< my ($a,$b) = @_;
< if (! defined $a) {
< if (! defined $b) { return undef; }
< return $b;
---
> my ($x,$y) = @_;
> if (! defined $x) {
> if (! defined $y) { return undef; }
> return $y;
126,128c126,128
< if (! defined $b) { return $a; }
< if ($a &gt; $b) { return $a; }
< return $b;
---
> if (! defined $y) { return $x; }
> if ($x &gt; $y) { return $x; }
> return $y;

--
Greg Sabino Mullane greg(at)turnstep(dot)com
PGP Key: 0x14964AC8 200510181742
http://biglumber.com/x/web?pk=2529DF6AB8F79407E94445B4BC9B906714964AC8

-----BEGIN PGP SIGNATURE-----

iD8DBQFDVWyGvJuQZxSWSsgRApOzAJ9edQHEDRysEx0nLlI0hV7v1bZikQCgyVnU
Rdouv5dEUTrW9TmZ4DExwjs=
=mi+E
-----END PGP SIGNATURE-----