diff options
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/universal.c b/universal.c index e3e91cf539..5442f87e63 100644 --- a/universal.c +++ b/universal.c @@ -1307,10 +1307,7 @@ XS(XS_Tie_Hash_NamedCapture_STORE) rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL; if (!rx || !SvROK(ST(0))) { - if (!PL_localizing) - Perl_croak_no_modify(aTHX); - else - XSRETURN_UNDEF; + Perl_croak_no_modify(aTHX); } SP -= items; |