diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-09-09 15:54:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-09-09 15:54:18 +0000 |
| commit | f5ba13079587260a0b8a2a6958a44e80adc29fe2 (patch) | |
| tree | 7703084ad99000f252bfb41b4e7467f309a24991 /ext/B/B.xs | |
| parent | f9156151b874f37c4f61050b776344e7f7bd5fbe (diff) | |
| download | perl-f5ba13079587260a0b8a2a6958a44e80adc29fe2.tar.gz | |
A single version of B that supports 5.8 and 5.10
p4raw-id: //depot/perl@23300
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 43b91fe3be..63f5a99fa3 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -505,7 +505,7 @@ BOOT: specialsv_list[4] = pWARN_ALL; specialsv_list[5] = pWARN_NONE; specialsv_list[6] = pWARN_STD; -#if PERL_VERSION <= 9 +#if PERL_VERSION <= 8 # define CVf_ASSERTION 0 #endif #include "defsubs.h" @@ -721,7 +721,16 @@ cchar(sv) void threadsv_names() PPCODE: +#if PERL_VERSION <= 8 +# ifdef USE_5005THREADS + int i; + STRLEN len = strlen(PL_threadsv_names); + EXTEND(sp, len); + for (i = 0; i < len; i++) + PUSHs(sv_2mortal(newSVpvn(&PL_threadsv_names[i], 1))); +# endif +#endif #define OP_next(o) o->op_next #define OP_sibling(o) o->op_sibling |