RE: perl@7595 builds not on cygwin

Gerrit P. Haase wrote:
>      Making Devel::Peek (static)
>[...]
>Peek.xs: In function `_fill_mstats':
>Peek.xs:148: `my_perl' undeclared (first use in this function)
>Peek.xs:148: (Each undeclared identifier is reported only once
>Peek.xs:148: for each function it appears in.)
[...]

The errors come from some missing dTHX's that are needed when
Configuring with -Dusemultiplicity.  The failure should occur
on all platforms (for me, it fails on Solaris too).  I think
this is a correct fix:

diff -ur perl.orig/ext/Devel/Peek/Peek.xs perl/ext/Devel/Peek/Peek.xs
--- perl.orig/ext/Devel/Peek/Peek.xs	Sun Oct 22 19:35:34 2000
+++ perl/ext/Devel/Peek/Peek.xs	Thu Nov  9 16:50:19 2000
@@ -140,6 +140,7 @@
 void
 _fill_mstats(struct mstats_buffer *b, int level)
 {
+    dTHX;
     b->buffer.nfree  = b->buf;
     b->buffer.ntotal = b->buf + _NBUCKETS;
     b->buffer.bucket_mem_size = b->buf + 2*_NBUCKETS;
@@ -151,6 +152,7 @@
 void
 fill_mstats(SV *sv, int level)
 {
+    dTHX;
     int nbuckets;
     struct mstats_buffer buf;
 
@@ -166,6 +168,7 @@
 void
 _mstats_to_hv(HV *hv, struct mstats_buffer *b, int level)
 {
+    dTHX;
     SV **svp;
     int type;
 

Eric Fifer

• perl@7595 builds not on cygwin by Gerrit P. Haase
• RE: perl@7595 builds not on cygwin by Eric Fifer
• Re: perl@7595 builds not on cygwin by Jarkko Hietaniemi