sharpetronics/PostgreSQL
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-11-04 00:02:52 -05:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Andrew Dunstan 2005-10-18 22:53:54 +00:00
parent a33fadfd6d
commit 48f3d77858
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
doc/src/sgml/plperl.sgml
View File

@ -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"> <chapter id="plperl">
@ -118,14 +118,14 @@ $$ LANGUAGE plperl;
<programlisting> <programlisting>
CREATE FUNCTION perl_max (integer, integer) RETURNS integer AS $$ CREATE FUNCTION perl_max (integer, integer) RETURNS integer AS $$
my ($a,$b) = @_; my ($x,$y) = @_;
if (! defined $a) { if (! defined $x) {
if (! defined $b) { return undef; } if (! defined $y) { return undef; }
return $b; return $y;
} }
if (! defined $b) { return $a; } if (! defined $y) { return $x; }
if ($a &gt; $b) { return $a; } if ($x &gt; $y) { return $x; }
return $b; return $y;
$$ LANGUAGE plperl; $$ LANGUAGE plperl;
</programlisting> </programlisting>
As shown above, to return an SQL null value from a PL/Perl As shown above, to return an SQL null value from a PL/Perl