replace use of predefined perl vars $a and $b with $x and $y - per Greg Sabino Mullane

diff --git a/doc/src/sgml/plperl.sgml b/doc/src/sgml/plperl.sgml
index 9ae95feb1b4afb38d5b9e432af8218bc6800efa8..d6f42f294a5023ccf54c7c8134506db9402728f4 100644 (file)
--- a/doc/src/sgml/plperl.sgml
+++ b/doc/src/sgml/plperl.sgml
@@ -1,5 +1,5 @@
 
 
  
@@ -118,14 +118,14 @@ $$ LANGUAGE plperl;
 
 
 CREATE FUNCTION perl_max (integer, integer) RETURNS integer AS $$
-    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;
     }
-    if (! defined $b) { return $a; }
-    if ($a > $b) { return $a; }
-    return $b;
+    if (! defined $y) { return $x; }
+    if ($x > $y) { return $x; }
+    return $y;
 $$ LANGUAGE plperl;
 
    As shown above, to return an SQL null value from a PL/Perl