projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
avoid infinite recursive exec()s of perl.exe when shebang
[p5sagit/p5-mst-13.2.git]
/
universal.c
diff --git
a/universal.c
b/universal.c
index
032a536
..
f7d7942
100644
(file)
--- a/
universal.c
+++ b/
universal.c
@@
-197,7
+197,7
@@
XS(XS_UNIVERSAL_VERSION)
gvp = pkg ? (GV**)hv_fetch(pkg,"VERSION",7,FALSE) : Null(GV**);
- if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (sv = GvSV(gv))) {
+ if (gvp && isGV(gv = *gvp) && SvOK(sv = GvSV(gv))) {
SV *nsv = sv_newmortal();
sv_setsv(nsv, sv);
sv = nsv;