diff options
| author | Nicolas R <atoomic@cpan.org> | 2016-11-13 02:16:23 -0700 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2016-11-15 15:25:26 +1100 |
| commit | 9f94e05533f94bb11e398d9fd7c7a064b86c451a (patch) | |
| tree | e4eb4cd6a108b000c2b7d5bfc004b72cbe134615 /universal.c | |
| parent | 622584734f799751a284558aaebad21acd3270bf (diff) | |
| download | perl-9f94e05533f94bb11e398d9fd7c7a064b86c451a.tar.gz | |
Cleanup PERL_VERSION checks in .c files
This commit is removing code not exercised by blead
or any later versions using PERL_VERSION.
This is a noop, mainly cleaning code.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/universal.c b/universal.c index b88d3e22d3..a9d751438d 100644 --- a/universal.c +++ b/universal.c @@ -965,12 +965,7 @@ XS(XS_re_regexp_pattern) } else { /* Scalar, so use the string that Perl would return */ /* return the pattern in (?msixn:..) format */ -#if PERL_VERSION >= 11 pattern = sv_2mortal(newSVsv(MUTABLE_SV(re))); -#else - pattern = newSVpvn_flags(RX_WRAPPED(re), RX_WRAPLEN(re), - (RX_UTF8(re) ? SVf_UTF8 : 0) | SVs_TEMP); -#endif PUSHs(pattern); XSRETURN(1); } |