Re: group watchers
[email protected] (Joshua N Pritikin)
| Newsgroups | perl.loop |
|---|---|
| Message-ID | <[email protected]> |
On Wed, Feb 09, 2000 at 10:09:14AM +0100, [email protected] wrote: > two slight suggestions for group watchers. Accidentally I wrote: > > $groupWatcher->add(\$i); > > where $i was still unused (of course, in a hack without "use strict"). This causes a segmentation fault. > > Being on this way, I tried: > > $groupWatcher->add(\$groupWatcher); > > which produced the message: > > "Attempt to use destroyed object (RV=0x81634dc (null)=0x80f1b8c) at ..." Thanks. -- "Never ascribe to malice that which can be explained by stupidity." via, but not speaking for Deutsche Bank
tm
(text/plain, 960 B)
==== //depot/D/Event/c/typemap.c#26 - /cache/D/Event/c/typemap.c ====
--- /tmp/tmp.16986.0 Wed Feb 9 08:51:02 2000
+++ /cache/D/Event/c/typemap.c Wed Feb 9 08:47:22 2000
@@ -1,3 +1,5 @@
+#define MG_PRIVATE_CODE ((((unsigned)'e')<<8) + (unsigned)'v')
+
static SV *wrap_watcher(void *ptr, HV *stash, SV *temple) {
SV *ref;
MAGIC **mgp;
@@ -26,6 +28,7 @@
Zero(mg, 1, MAGIC);
mg->mg_type = '~';
mg->mg_obj = (SV*) ptr; /* NOT refcnt'd */
+ mg->mg_private = MG_PRIVATE_CODE;
*mgp = mg;
return ref;
@@ -50,8 +53,13 @@
if (!sv || !SvROK(sv))
croak("sv_2watcher: not a reference?");
sv = SvRV(sv);
+ if (SvTYPE(sv) < SVt_PVMG)
+ croak("sv_2watcher: not a watcher");
mg = mg_find(sv, '~');
if (mg) {
+ if (mg->mg_private != MG_PRIVATE_CODE) {
+ croak("Can't find event magic (SV=0x%x)", sv);
+ }
return (void*) mg->mg_obj;
}
croak("Attempt to use destroyed object (RV=0x%x %s=0x%x)",