projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
OS X: could not -Doptimize=-g.
[p5sagit/p5-mst-13.2.git]
/
pp_sys.c
diff --git
a/pp_sys.c
b/pp_sys.c
index
3f1e0b7
..
be1675c
100644
(file)
--- a/
pp_sys.c
+++ b/
pp_sys.c
@@
-423,7
+423,7
@@
PP(pp_warn)
tmpsv = TOPs;
}
tmps = SvPV(tmpsv, len);
- if (!tmps || !len) {
+ if ((!tmps || !len) && PL_errgv) {
SV *error = ERRSV;
(void)SvUPGRADE(error, SVt_PV);
if (SvPOK(error) && SvCUR(error))