diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-09-10 22:11:30 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-01-04 05:10:02 -0800 |
commit | b42aaea1b729bf79774dbdd25e531addcd6a6501 (patch) | |
tree | 989f5e1ccb5a33d112e9bd40e7598573bd1a607d /vxs.inc | |
parent | d4e59e6254ff1d23c1f1d03bd4c8447f98b277c9 (diff) | |
download | perl-b42aaea1b729bf79774dbdd25e531addcd6a6501.tar.gz |
vxs.inc: Don’t hard-code class name
This is part of bringing perl and CPAN into synch.
Diffstat (limited to 'vxs.inc')
-rw-r--r-- | vxs.inc | 70 |
1 files changed, 42 insertions, 28 deletions
@@ -1,36 +1,50 @@ /* This file is part of the "version" CPAN distribution. Please avoid editing it in the perl core. */ +#ifdef PERL_CORE +# define VXS_CLASS "version" +#else +# define VXS_CLASS "version::vxs" +#endif + #ifdef VXS_XSUB_DETAILS +# ifdef PERL_CORE {"UNIVERSAL::VERSION", XS_UNIVERSAL_VERSION, NULL}, - {"version::()", XS_version_noop, NULL}, - {"version::new", XS_version_new, NULL}, - {"version::parse", XS_version_new, NULL}, - {"version::(\"\"", XS_version_stringify, NULL}, - {"version::stringify", XS_version_stringify, NULL}, - {"version::(0+", XS_version_numify, NULL}, - {"version::numify", XS_version_numify, NULL}, - {"version::normal", XS_version_normal, NULL}, - {"version::(cmp", XS_version_vcmp, NULL}, - {"version::(<=>", XS_version_vcmp, NULL}, - {"version::vcmp", XS_version_vcmp, NULL}, - {"version::(bool", XS_version_boolean, NULL}, - {"version::boolean", XS_version_boolean, NULL}, - {"version::(+", XS_version_noop, NULL}, - {"version::(-", XS_version_noop, NULL}, - {"version::(*", XS_version_noop, NULL}, - {"version::(/", XS_version_noop, NULL}, - {"version::(+=", XS_version_noop, NULL}, - {"version::(-=", XS_version_noop, NULL}, - {"version::(*=", XS_version_noop, NULL}, - {"version::(/=", XS_version_noop, NULL}, - {"version::(abs", XS_version_noop, NULL}, - {"version::(nomethod", XS_version_noop, NULL}, - {"version::noop", XS_version_noop, NULL}, - {"version::is_alpha", XS_version_is_alpha, NULL}, - {"version::qv", XS_version_qv, NULL}, - {"version::declare", XS_version_qv, NULL}, - {"version::is_qv", XS_version_is_qv, NULL}, +# else + {VXS_CLASS "::_VERSION", XS_UNIVERSAL_VERSION, NULL}, +# endif + {VXS_CLASS "::()", XS_version_noop, NULL}, + {VXS_CLASS "::new", XS_version_new, NULL}, + {VXS_CLASS "::parse", XS_version_new, NULL}, + {VXS_CLASS "::(\"\"", XS_version_stringify, NULL}, + {VXS_CLASS "::stringify", XS_version_stringify, NULL}, + {VXS_CLASS "::(0+", XS_version_numify, NULL}, + {VXS_CLASS "::numify", XS_version_numify, NULL}, + {VXS_CLASS "::normal", XS_version_normal, NULL}, + {VXS_CLASS "::(cmp", XS_version_vcmp, NULL}, + {VXS_CLASS "::(<=>", XS_version_vcmp, NULL}, +# ifdef PERL_CORE + {VXS_CLASS "::vcmp", XS_version_vcmp, NULL}, +# else + {VXS_CLASS "::VCMP", XS_version_vcmp, NULL}, +# endif + {VXS_CLASS "::(bool", XS_version_boolean, NULL}, + {VXS_CLASS "::boolean", XS_version_boolean, NULL}, + {VXS_CLASS "::(+", XS_version_noop, NULL}, + {VXS_CLASS "::(-", XS_version_noop, NULL}, + {VXS_CLASS "::(*", XS_version_noop, NULL}, + {VXS_CLASS "::(/", XS_version_noop, NULL}, + {VXS_CLASS "::(+=", XS_version_noop, NULL}, + {VXS_CLASS "::(-=", XS_version_noop, NULL}, + {VXS_CLASS "::(*=", XS_version_noop, NULL}, + {VXS_CLASS "::(/=", XS_version_noop, NULL}, + {VXS_CLASS "::(abs", XS_version_noop, NULL}, + {VXS_CLASS "::(nomethod", XS_version_noop, NULL}, + {VXS_CLASS "::noop", XS_version_noop, NULL}, + {VXS_CLASS "::is_alpha", XS_version_is_alpha, NULL}, + {VXS_CLASS "::qv", XS_version_qv, NULL}, + {VXS_CLASS "::declare", XS_version_qv, NULL}, + {VXS_CLASS "::is_qv", XS_version_is_qv, NULL}, #else XS(XS_UNIVERSAL_VERSION) |