projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
94b6d16
)
mg.c: Remove redundant SvOK checks
author
Father Chrysostomos
<sprout@cpan.org>
Wed, 27 Nov 2013 15:18:59 +0000
(07:18 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Thu, 28 Nov 2013 00:58:15 +0000
(16:58 -0800)
mg.c
patch
|
blob
|
history
diff --git
a/mg.c
b/mg.c
index
a4a5eec
..
3f6eb2c
100644
(file)
--- a/
mg.c
+++ b/
mg.c
@@
-849,7
+849,7
@@
Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
sv_setnv(sv, (NV)Perl_rc);
sv_setpv(sv, os2error(Perl_rc));
}
- if (
SvOK(sv) &&
strNE(SvPVX(sv), "")) {
+ if (strNE(SvPVX(sv), "")) {
fixup_errno_string(sv);
}
# elif defined(WIN32)
@@
-858,9
+858,7
@@
Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
sv_setnv(sv, (NV)dwErr);
if (dwErr) {
PerlProc_GetOSError(sv, dwErr);
- if (SvOK(sv)) {
- fixup_errno_string(sv);
- }
+ fixup_errno_string(sv);
}
else
sv_setpvs(sv, "");