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:
d28ce8b
)
Revert part of 2efab60d9
author
Father Chrysostomos
<sprout@cpan.org>
Fri, 29 Nov 2013 00:05:30 +0000
(16:05 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Fri, 29 Nov 2013 00:05:42 +0000
(16:05 -0800)
As Karl Williamson pointed out in <
5296C04E
.10103@khwilliamson.com>,
sv_setpv will do SvOK_off if Strerror returns null, so this SvOK check
is not redundant.
mg.c
patch
|
blob
|
history
diff --git
a/mg.c
b/mg.c
index
3f6eb2c
..
4b1deaf
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 (strNE(SvPVX(sv), "")) {
+ if (
SvOK(sv) &&
strNE(SvPVX(sv), "")) {
fixup_errno_string(sv);
}
# elif defined(WIN32)