diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-06-27 13:06:12 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-06-27 18:42:57 +0100 |
| commit | 6ad8f254c95c6d4523948ded91d651dcc490dee5 (patch) | |
| tree | 2576b906296333c44a52f734fb2c94b77dbc5b9a /universal.c | |
| parent | 9fed9930ce50e45354ea3630282369d9cbf41332 (diff) | |
| download | perl-6ad8f254c95c6d4523948ded91d651dcc490dee5.tar.gz | |
Add Perl_croak_no_modify() to implement Perl_croak("%s", PL_no_modify).
This reduces object code size, reducing CPU cache pressure on the non-exception
paths.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 3df8321f9c..1190e9716f 100644 --- a/universal.c +++ b/universal.c @@ -1283,7 +1283,7 @@ XS(XS_Tie_Hash_NamedCapture_STORE) if (!rx || !SvROK(ST(0))) { if (!PL_localizing) - Perl_croak(aTHX_ "%s", PL_no_modify); + Perl_croak_no_modify(aTHX); else XSRETURN_UNDEF; } @@ -1305,7 +1305,7 @@ XS(XS_Tie_Hash_NamedCapture_DELETE) croak_xs_usage(cv, "$key, $flags"); if (!rx || !SvROK(ST(0))) - Perl_croak(aTHX_ "%s", PL_no_modify); + Perl_croak_no_modify(aTHX); SP -= items; @@ -1326,7 +1326,7 @@ XS(XS_Tie_Hash_NamedCapture_CLEAR) rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL; if (!rx || !SvROK(ST(0))) - Perl_croak(aTHX_ "%s", PL_no_modify); + Perl_croak_no_modify(aTHX); SP -= items; |