diff options
| author | John Peacock <jpeacock@rowman.com> | 2004-04-13 16:51:31 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-14 07:26:04 +0000 |
| commit | 13f8f3987335c6eed94bd796ae4e7be8f788fdbf (patch) | |
| tree | 36257ab1ba4d78ddee06f5aafdecdccc2eb24c25 /universal.c | |
| parent | 1928965c335b0bc2a3df245c2070b6e4b7bfad99 (diff) | |
| download | perl-13f8f3987335c6eed94bd796ae4e7be8f788fdbf.tar.gz | |
's to bring bleadperl up to version-0.39
Message-ID: <407C8B13.9020104@rowman.com>
p4raw-id: //depot/perl@22692
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 78d30cb516..6b2214d249 100644 --- a/universal.c +++ b/universal.c @@ -374,10 +374,10 @@ XS(XS_UNIVERSAL_VERSION) vnumify(req),vnormal(req),vnumify(sv),vnormal(sv)); } - if (sv == (SV*)&PL_sv_undef) { - ST(0) = sv; - } else { + if ( sv_derived_from(sv, "version") ) { ST(0) = vnumify(sv); + } else { + ST(0) = sv; } XSRETURN(1); |