Plperl trigger variables no longer global - Mailing list pgsql-bugs

This works in 9.0 but not in git/9.1 beta:

CREATE FUNCTION wheredidmytdgo()
RETURNS TRIGGER
LANGUAGE plperlu
AS
$bc$
    use strict; use warnings;
    my $new =3D $_TD->{new};
    return;
$bc$;

The error is:

ERROR:  Global symbol "$_TD" requires explicit package name at line 3.
CONTEXT:  compilation of PL/Perl function "wheredidmytdgo"

--=20
Greg Sabino Mullane greg@endpoint.com
End Point Corporation
PGP Key: 0x14964AC8