|
1 | 1 | <!-- |
2 | | -$PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.46 2005/10/12 14:28:33 momjian Exp $ |
| 2 | +$PostgreSQL: pgsql/doc/src/sgml/plperl.sgml,v 2.47 2005/10/18 22:53:54 adunstan Exp $ |
3 | 3 | --> |
4 | 4 |
|
5 | 5 | <chapter id="plperl"> |
@@ -118,14 +118,14 @@ $$ LANGUAGE plperl; |
118 | 118 |
|
119 | 119 | <programlisting> |
120 | 120 | CREATE FUNCTION perl_max (integer, integer) RETURNS integer AS $$ |
121 | | - my ($a,$b) = @_; |
122 | | - if (! defined $a) { |
123 | | - if (! defined $b) { return undef; } |
124 | | - return $b; |
| 121 | + my ($x,$y) = @_; |
| 122 | + if (! defined $x) { |
| 123 | + if (! defined $y) { return undef; } |
| 124 | + return $y; |
125 | 125 | } |
126 | | - if (! defined $b) { return $a; } |
127 | | - if ($a > $b) { return $a; } |
128 | | - return $b; |
| 126 | + if (! defined $y) { return $x; } |
| 127 | + if ($x > $y) { return $x; } |
| 128 | + return $y; |
129 | 129 | $$ LANGUAGE plperl; |
130 | 130 | </programlisting> |
131 | 131 | As shown above, to return an SQL null value from a PL/Perl |
|