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 > $b) { return $a; }
<     return $b;
---
>     if (! defined $y) { return $x; }
>     if ($x > $y) { return $x; }
>     return $y;

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

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

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