diff options
| author | Steffen Mueller <smueller@cpan.org> | 2012-10-22 20:20:05 +0200 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2012-10-22 20:56:30 +0200 |
| commit | 855ea7c74bf7bb29e7655147ec501fcdb53b07cd (patch) | |
| tree | 7acd74aaebc417a9f502f9acd3dc77d764b99640 /ext | |
| parent | 6a876a4206a1561f72c0b664e81aa5b0547fa558 (diff) | |
| download | perl-855ea7c74bf7bb29e7655147ec501fcdb53b07cd.tar.gz | |
ext/re: Optimize XPUSH's to EXTEND(), PUSH,...
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/re/re.pm | 2 | ||||
| -rw-r--r-- | ext/re/re.xs | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/ext/re/re.pm b/ext/re/re.pm index f7708396df..84b701154d 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -4,7 +4,7 @@ package re; use strict; use warnings; -our $VERSION = "0.22"; +our $VERSION = "0.23"; our @ISA = qw(Exporter); our @EXPORT_OK = ('regmust', qw(is_regexp regexp_pattern diff --git a/ext/re/re.xs b/ext/re/re.xs index 859938a366..1da68f12ee 100644 --- a/ext/re/re.xs +++ b/ext/re/re.xs @@ -100,8 +100,9 @@ PPCODE: } else if (RX_FLOAT_UTF8(re)) { fl = sv_2mortal(newSVsv(RX_FLOAT_UTF8(re))); } - XPUSHs(an); - XPUSHs(fl); + EXTEND(SP, 2); + PUSHs(an); + PUSHs(fl); XSRETURN(2); } XSRETURN_UNDEF; |