From: Andrew Dunstan <andrew@dunslane.net>
Date: Tue, 18 Oct 2005 22:53:54 +0000 (+0000)
Subject: replace use of predefined perl vars $a and $b with $x and $y - per Greg Sabino Mullane
X-Git-Tag: REL8_1_0BETA4~27
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=48f3d7785821c4464d10f6f802129d6eaa817a7e;p=postgresql

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 9ae95feb1b..d6f42f294a 100644
--- a/doc/src/sgml/plperl.sgml
+++ b/doc/src/sgml/plperl.sgml
@@ -1,5 +1,5 @@
 <!--
-$PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.46 2005/10/12 14:28:33 momjian Exp $
+$PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.47 2005/10/18 22:53:54 adunstan Exp $
 -->
 
  <chapter id="plperl">
@@ -118,14 +118,14 @@ $$ LANGUAGE plperl;
 
 <programlisting>
 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 &gt; $b) { return $a; }
-    return $b;
+    if (! defined $y) { return $x; }
+    if ($x &gt; $y) { return $x; }
+    return $y;
 $$ LANGUAGE plperl;
 </programlisting>
    As shown above, to return an SQL null value from a PL/Perl