diff options
| author | John Peacock <jpeacock@rowman.com> | 2005-07-13 10:24:06 -0400 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-07-13 19:43:40 +0000 |
| commit | 0008872a8961cdd40a28b04aebc8346bdfb7bf39 (patch) | |
| tree | 62f591179c918b735da8e1469d662431e3be1804 /universal.c | |
| parent | da4b9520f5674bda37e255992f40bda369d504df (diff) | |
| download | perl-0008872a8961cdd40a28b04aebc8346bdfb7bf39.tar.gz | |
was Re: perldoc segfaulting in XS_UNIVERSAL_VERSION
Message-ID: <42D55C46.5030905@rowman.com>
Date: Wed, 13 Jul 2005 14:24:06 -0400
p4raw-id: //depot/perl@25141
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 507ab14e3e..4506f77b6f 100644 --- a/universal.c +++ b/universal.c @@ -338,7 +338,7 @@ XS(XS_UNIVERSAL_VERSION) gvp = pkg ? (GV**)hv_fetch(pkg,"VERSION",7,FALSE) : Null(GV**); - if (gvp && isGV(gv = *gvp) && SvOK(sv = GvSV(gv))) { + if (gvp && isGV(gv = *gvp) && (sv = GvSV(gv)) && SvOK(sv)) { SV *nsv = sv_newmortal(); sv_setsv(nsv, sv); sv = nsv; |