Log Message:
-----------
Use a fatal warning check with what looks like a more portable error message. Error noticed by Tom and buildfarm member kite.
Modified Files:
--------------
pgsql/src/pl/plperl/expected:
plperl.out (r1.19 -> r1.20)
(http://anoncvs.postgresql.org/cvsweb.cgi/pgsql/src/pl/plperl/expected/plperl.out?r1=1.19&r2=1.20)
pgsql/src/pl/plperl/sql:
plperl.sql (r1.17 -> r1.18)
(http://anoncvs.postgresql.org/cvsweb.cgi/pgsql/src/pl/plperl/sql/plperl.sql?r1=1.17&r2=1.18)