This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update release managers guide with notes from 5.13.3 release
[perl5.git]
/
doop.c
diff --git
a/doop.c
b/doop.c
index
d3c49b5
..
c1a357c
100644
(file)
--- a/
doop.c
+++ b/
doop.c
@@
-635,7
+635,7
@@
Perl_do_trans(pTHX_ SV *sv)
if (SvIsCOW(sv))
sv_force_normal_flags(sv, 0);
if (SvREADONLY(sv))
if (SvIsCOW(sv))
sv_force_normal_flags(sv, 0);
if (SvREADONLY(sv))
- Perl_croak
(aTHX_ "%s", PL_no_modify
);
+ Perl_croak
_no_modify(aTHX
);
}
(void)SvPV_const(sv, len);
if (!len)
}
(void)SvPV_const(sv, len);
if (!len)
@@
-1017,7
+1017,7
@@
Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
sv_force_normal_flags(sv, 0);
}
if (SvREADONLY(sv))
sv_force_normal_flags(sv, 0);
}
if (SvREADONLY(sv))
- Perl_croak
(aTHX_ "%s", PL_no_modify
);
+ Perl_croak
_no_modify(aTHX
);
}
if (PL_encoding && !SvUTF8(sv)) {
}
if (PL_encoding && !SvUTF8(sv)) {
@@
-1103,7
+1103,7
@@
Perl_do_chomp(pTHX_ register SV *sv)
sv_force_normal_flags(sv, 0);
}
if (SvREADONLY(sv))
sv_force_normal_flags(sv, 0);
}
if (SvREADONLY(sv))
- Perl_croak
(aTHX_ "%s", PL_no_modify
);
+ Perl_croak
_no_modify(aTHX
);
}
if (PL_encoding) {
}
if (PL_encoding) {
@@
-1191,8
+1191,7
@@
Perl_do_chomp(pTHX_ register SV *sv)
}
nope:
}
nope:
- if (svrecode)
- SvREFCNT_dec(svrecode);
+ SvREFCNT_dec(svrecode);
Safefree(temp_buffer);
return count;
Safefree(temp_buffer);
return count;
@@
-1467,8
+1466,7
@@
Perl_do_kv(pTHX)
}
LvTYPE(TARG) = 'k';
if (LvTARG(TARG) != (const SV *)keys) {
}
LvTYPE(TARG) = 'k';
if (LvTARG(TARG) != (const SV *)keys) {
- if (LvTARG(TARG))
- SvREFCNT_dec(LvTARG(TARG));
+ SvREFCNT_dec(LvTARG(TARG));
LvTARG(TARG) = SvREFCNT_inc_simple(keys);
}
PUSHs(TARG);
LvTARG(TARG) = SvREFCNT_inc_simple(keys);
}
PUSHs(TARG);