diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-11-07 10:20:36 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-11-08 07:55:09 +0000 |
commit | 89c6bc139ff134699ff97779d3d2e4f044cfdb97 (patch) | |
tree | e38db811bc96f83ebb5a4a877a970ce0158fdf09 /ext | |
parent | ff1a9fc06750e1a1a1480a987a9d24fd2f4824c7 (diff) | |
download | perl-89c6bc139ff134699ff97779d3d2e4f044cfdb97.tar.gz |
In B.xs, move the version dependant regexp code to be adjacent.
Diffstat (limited to 'ext')
-rw-r--r-- | ext/B/B.xs | 44 |
1 files changed, 21 insertions, 23 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index fb450ef119..3e10f3cbc8 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1578,6 +1578,27 @@ B::SV SvRV(sv) B::RV sv +#else + +MODULE = B PACKAGE = B::REGEXP + +IV +REGEX(sv) + B::REGEXP sv + CODE: + /* FIXME - can we code this method more efficiently? */ + RETVAL = PTR2IV(sv); + OUTPUT: + RETVAL + +SV* +precomp(sv) + B::REGEXP sv + CODE: + RETVAL = newSVpvn( RX_PRECOMP(sv), RX_PRELEN(sv) ); + OUTPUT: + RETVAL + #endif MODULE = B PACKAGE = B::PV PREFIX = Sv @@ -1645,29 +1666,6 @@ SvMAGIC(sv) for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) XPUSHs(make_mg_object(aTHX_ mg)); -MODULE = B PACKAGE = B::REGEXP - -#if PERL_VERSION >= 11 - -IV -REGEX(sv) - B::REGEXP sv - CODE: - /* FIXME - can we code this method more efficiently? */ - RETVAL = PTR2IV(sv); - OUTPUT: - RETVAL - -SV* -precomp(sv) - B::REGEXP sv - CODE: - RETVAL = newSVpvn( RX_PRECOMP(sv), RX_PRELEN(sv) ); - OUTPUT: - RETVAL - -#endif - MODULE = B PACKAGE = B::MAGIC void |