diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-24 14:04:19 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-24 14:04:19 +0000 |
| commit | 41e4abd8e288135291940b1765c485a707618c20 (patch) | |
| tree | b1e95b031dfc808c4998264e298d095bc7572532 /intrpvar.h | |
| parent | c80263a809faf4e39544f5f3f44ed7181a92391b (diff) | |
| download | perl-41e4abd8e288135291940b1765c485a707618c20.tar.gz | |
Extend DEBUG_LEAKING_SCALARS_FORK_DUMP so it can also dump scalars
which become unreferenced. This is less likely to be successful.
The #define needs a better name.
p4raw-id: //depot/perl@24976
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index 8a93f2adb2..519093fdcf 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -539,10 +539,13 @@ PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */ taken out of blead soon, and relevant prototypes changed. */ PERLVARI(Ifdscript, int, -1) /* fd for script */ PERLVARI(Isuidscript, int, -1) /* fd for suid script */ +#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP +/* File descriptor to talk to the child which dumps scalars. */ +PERLVARI(Idumper_fd, int, -1) +#endif /* New variables must be added to the very end, before this comment, * for binary compatibility (the offsets of the old members must not change). * (Don't forget to add your variable also to perl_clone()!) * XSUB.h provides wrapper functions via perlapi.h that make this * irrelevant, but not all code may be expected to #include XSUB.h. */ - |