*** a/src/pl/plperl/plperl.c
--- b/src/pl/plperl/plperl.c
***************
*** 2062,2068 **** plperl_call_perl_trigger_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo,
  	ENTER;
  	SAVETMPS;
  
! 	TDsv = get_sv("_TD", 0);
  	if (!TDsv)
  		elog(ERROR, "couldn't fetch $_TD");
  
--- 2062,2068 ----
  	ENTER;
  	SAVETMPS;
  
! 	TDsv = get_sv("main::_TD", 0);
  	if (!TDsv)
  		elog(ERROR, "couldn't fetch $_TD");