diff options
| author | John Peacock <jpeacock@cpan.org> | 2013-12-29 13:47:11 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-01-04 05:10:04 -0800 |
| commit | 98079c483a238cb7ae83e3cd15c53cf7f1236457 (patch) | |
| tree | a4296448a5ac4da590b52cfe398714d8553d69f9 /vxs.inc | |
| parent | 0a24517e59bfbc9209da93efe7938f8cc619b5af (diff) | |
| download | perl-98079c483a238cb7ae83e3cd15c53cf7f1236457.tar.gz | |
Ensure that version::_VERSION is always exported
Now that version.pm doesn't mess with the symbol table, we need
to make sure that version::_VERSION exists at all times. Also
change the name of the method that implements UNIVERSAL::VERSION
so that it is visually distinct and matches the other version.pm
derived methods.
Diffstat (limited to 'vxs.inc')
| -rw-r--r-- | vxs.inc | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -12,10 +12,9 @@ #ifdef VXS_XSUB_DETAILS # ifdef PERL_CORE - {"UNIVERSAL::VERSION", XS_UNIVERSAL_VERSION, NULL}, -# else - {VXS_CLASS "::_VERSION", VXS_UNIVERSAL_VERSION, NULL}, + {"UNIVERSAL::VERSION", VXSp(universal_version), NULL}, # endif + {VXS_CLASS "::_VERSION", VXSp(universal_version), NULL}, {VXS_CLASS "::()", VXSp(version_noop), NULL}, {VXS_CLASS "::new", VXSp(version_new), NULL}, {VXS_CLASS "::parse", VXSp(version_new), NULL}, @@ -67,7 +66,7 @@ typedef char HVNAME; # define HEKf "s" #endif -VXS(UNIVERSAL_VERSION) +VXS(universal_version) { dVAR; dXSARGS; |