Re: eperl_perl5.c

[Denis Barbier <nospam@thanx>]

On Fri, 12 Feb 1999, Ziemek Borowski wrote:

> I try to compile wml on Linux: 
> 
> Linux neuromancer.ceu.edu.pl 2.2.1 #9 Tue Feb 9 19:43:40 CET 1999 i686 pld
> ldd (GNU libc) 2.1
> This is perl, version 5.005_02 built for i386-linux-thread
[snip]

You're right, this bug in wml 1.6.8 has been reported and fixed by
Hans de Graaff. Here is the patch included in the current developpement
tree:

--- eperl_perl5.c       1999/01/12 14:24:14     1.2
+++ eperl_perl5.c       1999/01/19 12:07:10     1.4
@@ -69,6 +69,7 @@
 #if AC_perl_vnum < 500476
     IoFLAGS(GvIOp(defoutgv)) |= IOf_FLUSH; /* $|=1 */
 #else
+    dTHR;
     IoFLAGS(GvIOp(PL_defoutgv)) |= IOf_FLUSH; /* $|=1 */
 #endif
     return;
@@ -97,6 +98,9 @@
 */
 void Perl5_SetScalar(char *pname, char *vname, char *vvalue)
 {
+#if AC_perl_vnum >= 500476
+    dTHR;
+#endif
     ENTER;
     save_hptr(&curstash); 
     curstash = gv_stashpv(pname, TRUE);



______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com