--- pl/plperl/plperl.c.5~	2005-05-22 16:29:01.324326551 +0530
+++ pl/plperl/plperl.c	2005-05-22 18:47:47.855927970 +0530
@@ -651,7 +651,7 @@
 
 	PUSHMARK(SP);
 
-	XPUSHs(sv_2mortal(newSVpv("undef", 0))); /* no trigger data */
+	XPUSHs(&PL_sv_undef); /* no trigger data */
 
 	for (i = 0; i < desc->nargs; i++)
 	{