Doh!
I just checked the development version of HTML::Embperl, and this is fixed in
there.
Gerald: Could we patch this fix in to the HTML::Embperl stable tree and get a
new stable release? I would like to avoid running the beta version of Embperl
on a production site :).
The patch in question I would like to see in the stable release includes
differences between revision 1.24 and 1.26:
diff -c -r1.24 -r1.26
*** Embperl.xs 2000/01/04 06:10:02 1.24
--- Embperl.xs 2000/03/28 19:46:04 1.26
***************
*** 71,78 ****
SV * gv
CODE:
RETVAL = "" ;
! if (gv && SvTYPE(gv) == SVt_PVGV)
{
GV * fgv = GvFILEGV(gv) ;
if (fgv && SvTYPE(fgv) == SVt_PVGV)
{
--- 71,86 ----
SV * gv
CODE:
RETVAL = "" ;
! #ifdef GvFILE
! if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv))
{
+ char * name = GvFILE (gv) ;
+ if (name)
+ RETVAL = name ;
+ }
+ #else
+ if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv))
+ {
GV * fgv = GvFILEGV(gv) ;
if (fgv && SvTYPE(fgv) == SVt_PVGV)
{
***************
*** 81,86 ****
--- 89,95 ----
RETVAL = name ;
}
}
+ #endif
OUTPUT:
RETVAL
Mike
