Hi Mike,
>
> 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:
>
You can apply this patch to 1.2.1 addtionaly you need to changeing
Embperl.pm about line 1233 from
$packfile = '-> No Perl in Source <-' if ($packfile eq ('_<' .
__FILE__)) ;
to
$packfile = '-> No Perl in Source <-' if ($packfile eq ('_<' .
__FILE__) || $packfile eq __FILE__) ;
then it will work also with 1.2.1.
NOTE: make test will fail with Perl 5.6 because a lot of errormessages have
changed in Perl 5.6. This is only a problem of make test and _not_ a problem
of Embperl. Embperl will still work.
I think I will release a new stable version during next week, after doing
some more test on the current beta.
Gerald
P.S. Embperl has now it own mailing list (see
http://perl.apache.org/embperl/Embperl.pod.15.html), were this problem was
already discussed
> 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
>
>
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925151
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------