diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 1999-08-29 15:04:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-30 02:54:20 +0000 |
| commit | d4bea2fb9d94a2ce4ff340ae9eab604f38ab2d31 (patch) | |
| tree | d49ded245c08704ae1343ab280d150fdd9fa1828 /universal.c | |
| parent | d6a66728474fdd676e356515043a404d3990d3de (diff) | |
| download | perl-d4bea2fb9d94a2ce4ff340ae9eab604f38ab2d31.tar.gz | |
[ID 19990829.004] Autoloaded &VERSION and UNIVERSAL::VERSION
To: perl5-porters@perl.org
don't mix
Message-Id: <199908292304.TAA13738@Orb.Nashua.NH.US>
p4raw-id: //depot/cfgperl@4051
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 032a536e55..f7d794218f 100644 --- 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; |