Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
.config	[ DIR ]	drwxr-xr-x	2016-10-10 17:32
Cross	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
NetWare	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Porting	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
cpan	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
cygwin	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
dist	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
djgpp	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
ext	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
h2pl	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
haiku	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
hints	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
lib	[ DIR ]	drwxr-xr-x	2016-10-10 18:16
mad	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
os2	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
plan9	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
pod	[ DIR ]	drwxr-xr-x	2016-10-10 18:13
qnx	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
regen	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
symbian	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
t	[ DIR ]	drwxr-xr-x	2016-10-10 19:00
utils	[ DIR ]	drwxr-xr-x	2016-10-10 17:41
vms	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
vos	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
win32	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
x2p	[ DIR ]	drwxr-xr-x	2016-10-10 17:41
AUTHORS	44.95 KB	-r--r--r--	2015-01-28 21:08
Artistic	6.17 KB	-r--r--r--	2014-12-27 11:48
Changes	3.09 KB	-r--r--r--	2014-12-27 11:48
Configure	539.85 KB	-r-xr-xr-x	2015-01-10 12:06
Copying	12.34 KB	-r--r--r--	2014-12-27 11:48
DynaLoader.o	9.58 KB	-rw-r--r--	2016-10-10 17:38
EXTERN.h	2.04 KB	-r--r--r--	2014-12-27 11:48
INSTALL	104.05 KB	-r--r--r--	2015-01-31 15:32
INTERN.h	1.47 KB	-r--r--r--	2014-12-27 11:49
MANIFEST	300.93 KB	-r--r--r--	2015-01-28 21:08
META.json	3.58 KB	-r--r--r--	2015-02-01 03:22
META.yml	2.83 KB	-r--r--r--	2015-01-28 21:08
Makefile	34.77 KB	-rw-r--r--	2016-10-10 17:34
Makefile.SH	48.39 KB	-r-xr-xr-x	2014-12-27 11:49
Makefile.micro	5.13 KB	-r--r--r--	2014-12-27 11:48
Policy.sh	5.33 KB	-rw-r--r--	2016-10-10 17:34
Policy_sh.SH	7.94 KB	-r-xr-xr-x	2014-12-27 11:48
README	5.53 KB	-r--r--r--	2015-01-28 21:11
README.aix	19.15 KB	-r--r--r--	2014-12-27 11:49
README.amiga	6.87 KB	-r--r--r--	2014-12-27 11:48
README.android	7.61 KB	-r--r--r--	2014-12-27 11:48
README.bs2000	7.73 KB	-r--r--r--	2014-12-27 11:48
README.ce	14.27 KB	-r--r--r--	2014-12-27 11:48
README.cn	4.58 KB	-r--r--r--	2014-12-27 11:48
README.cygwin	26.67 KB	-r--r--r--	2014-12-27 11:49
README.dos	10.28 KB	-r--r--r--	2014-12-27 11:48
README.freebsd	1.55 KB	-r--r--r--	2014-12-27 11:48
README.haiku	1.47 KB	-r--r--r--	2015-01-28 21:08
README.hpux	28.68 KB	-r--r--r--	2014-12-27 11:49
README.hurd	1.94 KB	-r--r--r--	2014-12-27 11:48
README.irix	4.29 KB	-r--r--r--	2014-12-27 11:48
README.jp	7.34 KB	-r--r--r--	2014-12-27 11:48
README.ko	11.97 KB	-r--r--r--	2014-12-27 11:48
README.linux	1.45 KB	-r--r--r--	2014-12-27 11:48
README.macos	1001 B	-r--r--r--	2014-12-27 11:48
README.macosx	11.72 KB	-r--r--r--	2015-01-28 21:08
README.micro	1.81 KB	-r--r--r--	2014-12-27 11:48
README.netware	6.32 KB	-r--r--r--	2014-12-27 11:48
README.openbsd	1.18 KB	-r--r--r--	2014-12-27 11:48
README.os2	90.54 KB	-r--r--r--	2015-01-28 21:08
README.os390	15.19 KB	-r--r--r--	2014-12-27 11:48
README.os400	4.51 KB	-r--r--r--	2014-12-27 11:48
README.plan9	5 KB	-r--r--r--	2014-12-27 11:48
README.qnx	6.52 KB	-r--r--r--	2014-12-27 11:48
README.riscos	1.49 KB	-r--r--r--	2014-12-27 11:48
README.solaris	29.11 KB	-r--r--r--	2014-12-27 11:48
README.symbian	15.44 KB	-r--r--r--	2014-12-27 11:48
README.synology	6.88 KB	-r--r--r--	2014-12-27 11:48
README.tru64	7.56 KB	-r--r--r--	2014-12-27 11:49
README.tw	4.5 KB	-r--r--r--	2014-12-27 11:48
README.vms	23.45 KB	-r--r--r--	2015-01-28 21:08
README.vos	3.75 KB	-r--r--r--	2014-12-27 11:48
README.win32	37.59 KB	-r--r--r--	2015-01-15 22:12
TestInit.pm	2.95 KB	-r--r--r--	2014-12-27 11:49
XSUB.h	21.18 KB	-r--r--r--	2014-12-27 11:49
autodoc.pl	13.88 KB	-r--r--r--	2014-12-27 11:49
av.c	23.23 KB	-r--r--r--	2014-12-27 11:49
av.h	3.15 KB	-r--r--r--	2014-12-27 11:49
av.o	17.22 KB	-rw-r--r--	2016-10-10 17:36
bitcount.h	850 B	-rw-r--r--	2016-10-10 17:36
caretx.c	4.14 KB	-r--r--r--	2014-12-27 11:49
caretx.o	2.1 KB	-rw-r--r--	2016-10-10 17:36
cflags	3.79 KB	-rwxr-xr-x	2016-10-10 17:34
cflags.SH	10.3 KB	-r-xr-xr-x	2014-12-27 11:49
charclass_invlists.h	86.63 KB	-r--r--r--	2014-12-27 11:49
config.h	144.21 KB	-rw-r--r--	2016-10-10 17:34
config.sh	33.79 KB	-rw-r--r--	2016-10-10 17:34
config_h.SH	147.66 KB	-r-xr-xr-x	2014-12-27 11:49
configpm	31.32 KB	-r-xr-xr-x	2014-12-27 11:49
configure.com	211.66 KB	-r--r--r--	2014-12-27 11:49
configure.gnu	2.5 KB	-r-xr-xr-x	2014-12-27 11:48
cop.h	40.55 KB	-r--r--r--	2014-12-27 11:49
cv.h	10.25 KB	-r--r--r--	2014-12-27 11:49
deb.c	7.48 KB	-r--r--r--	2014-12-27 11:49
deb.o	2.15 KB	-rw-r--r--	2016-10-10 17:36
doio.c	64.64 KB	-r--r--r--	2014-12-27 11:49
doio.o	54.52 KB	-rw-r--r--	2016-10-10 17:36
doop.c	29.36 KB	-r--r--r--	2014-12-27 11:49
doop.o	23.63 KB	-rw-r--r--	2016-10-10 17:36
dosish.h	5.41 KB	-r--r--r--	2014-12-27 11:48
dquote_static.c	10.92 KB	-r--r--r--	2014-12-27 11:49
dump.c	99.94 KB	-r--r--r--	2015-01-12 22:02
dump.o	75.78 KB	-rw-r--r--	2016-10-10 17:36
embed.fnc	114 KB	-r--r--r--	2014-12-27 11:49
embed.h	88.24 KB	-rw-r--r--	2014-12-27 11:49
embedvar.h	17.51 KB	-rw-r--r--	2014-12-27 11:49
ext.libs	0 B	-rw-r--r--	2016-10-10 17:38
extra.pods	585 B	-rw-r--r--	2016-10-10 17:36
fakesdio.h	3.24 KB	-r--r--r--	2014-12-27 11:48
feature.h	4.26 KB	-rw-r--r--	2014-12-27 11:49
form.h	1.43 KB	-r--r--r--	2014-12-27 11:48
generate_uudmap	14.41 KB	-rwxr-xr-x	2016-10-10 17:36
generate_uudmap.c	3.73 KB	-r--r--r--	2014-12-27 11:49
generate_uudmap.o	10.16 KB	-rw-r--r--	2016-10-10 17:36
git_version.h	357 B	-rw-r--r--	2016-10-10 17:36
globals.c	1.28 KB	-r--r--r--	2014-12-27 11:48
globals.o	96.84 KB	-rw-r--r--	2016-10-10 17:36
globvar.sym	994 B	-r--r--r--	2014-12-27 11:49
gv.c	99.2 KB	-r--r--r--	2014-12-27 12:19
gv.h	10.54 KB	-r--r--r--	2014-12-27 11:49
gv.o	82.3 KB	-rw-r--r--	2016-10-10 17:35
handy.h	90.96 KB	-r--r--r--	2014-12-27 11:49
hv.c	102.94 KB	-r--r--r--	2014-12-27 11:49
hv.h	23.9 KB	-r--r--r--	2014-12-27 11:48
hv.o	43.42 KB	-rw-r--r--	2016-10-10 17:36
hv_func.h	17.45 KB	-r--r--r--	2014-12-27 11:49
inline.h	9.29 KB	-r--r--r--	2014-12-27 11:49
inline_invlist.c	1.91 KB	-r--r--r--	2014-12-27 11:49
install_lib.pl	3.9 KB	-r--r--r--	2014-12-27 11:49
installhtml	17.04 KB	-r--r--r--	2014-12-27 11:48
installman	5.62 KB	-r-xr-xr-x	2014-12-27 11:48
installperl	27.46 KB	-r-xr-xr-x	2015-01-10 12:06
intrpvar.h	26.99 KB	-r--r--r--	2015-01-28 21:08
iperlsys.h	47.63 KB	-r--r--r--	2014-12-27 11:49
keywords.c	88.86 KB	-rw-r--r--	2014-12-27 11:49
keywords.h	6.43 KB	-rw-r--r--	2014-12-27 11:49
keywords.o	30.68 KB	-rw-r--r--	2016-10-10 17:36
l1_char_class_tab.h	38.25 KB	-r--r--r--	2014-12-27 11:49
libperl.a	2.75 MB	-rw-r--r--	2016-10-10 17:38
locale.c	45.02 KB	-r--r--r--	2014-12-27 11:49
locale.o	15.68 KB	-rw-r--r--	2016-10-10 17:36
madly.c	704 B	-r--r--r--	2014-12-27 11:49
make_ext.pl	24.34 KB	-r--r--r--	2015-01-10 12:06
make_patchnum.pl	6.65 KB	-r--r--r--	2014-12-27 11:49
makedef.pl	33.97 KB	-r--r--r--	2015-01-12 20:14
makedepend	7.07 KB	-rwxr-xr-x	2016-10-10 17:34
makedepend.SH	7.82 KB	-r-xr-xr-x	2014-12-27 11:49
makefile	303.73 KB	-rw-r--r--	2016-10-10 17:34
makefile.old	34.77 KB	-rw-r--r--	2016-10-10 17:34
malloc.c	70.51 KB	-r--r--r--	2014-12-27 11:49
malloc_ctl.h	1.48 KB	-r--r--r--	2014-12-27 11:48
mathoms.c	30.41 KB	-r--r--r--	2014-12-27 11:49
mathoms.o	30.02 KB	-rw-r--r--	2016-10-10 17:36
metaconfig.SH	1.18 KB	-r-xr-xr-x	2014-12-27 11:48
metaconfig.h	981 B	-r--r--r--	2014-12-27 11:49
mg.c	84.07 KB	-r--r--r--	2014-12-27 12:31
mg.h	2.9 KB	-r--r--r--	2014-12-27 11:49
mg.o	72.97 KB	-rw-r--r--	2016-10-10 17:36
mg_data.h	4.7 KB	-rw-r--r--	2016-10-10 17:36
mg_names.c	2.05 KB	-r--r--r--	2014-12-27 11:49
mg_raw.h	4.02 KB	-r--r--r--	2014-12-27 11:49
mg_vtable.h	8.73 KB	-rw-r--r--	2014-12-27 11:49
miniperl	1.53 MB	-rwxr-xr-x	2016-10-10 17:36
miniperlmain.c	5.11 KB	-r--r--r--	2014-12-27 11:49
miniperlmain.o	2.95 KB	-rw-r--r--	2016-10-10 17:35
mkppport	4.26 KB	-r--r--r--	2014-12-27 11:48
mkppport.lst	257 B	-r--r--r--	2014-12-27 11:48
mro.c	42.78 KB	-r--r--r--	2014-12-27 11:49
mro.o	24.22 KB	-rw-r--r--	2016-10-10 17:36
myconfig	2 KB	-rwxr-xr-x	2016-10-10 17:34
myconfig.SH	2.45 KB	-r-xr-xr-x	2014-12-27 11:49
mydtrace.h	2.83 KB	-r--r--r--	2014-12-27 11:48
nostdio.h	3.37 KB	-r--r--r--	2014-12-27 11:49
numeric.c	33.86 KB	-r--r--r--	2014-12-27 11:49
numeric.o	14.3 KB	-rw-r--r--	2016-10-10 17:36
op.c	339.8 KB	-r--r--r--	2015-01-12 22:02
op.h	37.45 KB	-r--r--r--	2014-12-27 12:38
op.o	218.2 KB	-rw-r--r--	2016-10-10 17:38
op_reg_common.h	5.08 KB	-r--r--r--	2014-12-27 11:49
opcode.h	46.78 KB	-rw-r--r--	2014-12-27 11:49
opmini.c	339.8 KB	-r--r--r--	2015-01-12 22:02
opmini.o	217.94 KB	-rw-r--r--	2016-10-10 17:35
opnames.h	8.17 KB	-rw-r--r--	2014-12-27 11:49
overload.c	3.32 KB	-rw-r--r--	2014-12-27 11:48
overload.h	2.95 KB	-rw-r--r--	2014-12-27 11:48
packsizetables.c	5.94 KB	-r--r--r--	2014-12-27 11:48
pad.c	71.56 KB	-r--r--r--	2015-01-15 22:12
pad.h	15.99 KB	-r--r--r--	2015-01-15 22:12
pad.o	31.54 KB	-rw-r--r--	2016-10-10 17:36
parser.h	6.52 KB	-r--r--r--	2014-12-27 11:49
patchlevel.h	5.19 KB	-r--r--r--	2015-02-01 03:22
perl	1.63 MB	-rwxr-xr-x	2016-10-10 19:19
perl.c	131.72 KB	-r--r--r--	2015-01-28 21:12
perl.h	177.1 KB	-r--r--r--	2015-01-12 20:14
perl.o	175.37 KB	-rw-r--r--	2016-10-10 17:38
perlapi.c	1.69 KB	-rw-r--r--	2014-12-27 11:48
perlapi.h	5.49 KB	-rw-r--r--	2014-12-27 11:48
perlapi.o	939 B	-rw-r--r--	2016-10-10 17:36
perldtrace.d	563 B	-r--r--r--	2014-12-27 11:48
perlio.c	117.77 KB	-r--r--r--	2014-12-27 11:49
perlio.h	10.22 KB	-r--r--r--	2014-12-27 11:48
perlio.o	72.05 KB	-rw-r--r--	2016-10-10 17:36
perlio.sym	446 B	-r--r--r--	2014-12-27 11:48
perliol.h	13.32 KB	-r--r--r--	2014-12-27 11:49
perlmain.c	5.09 KB	-rw-r--r--	2016-10-10 19:19
perlmain.o	3.38 KB	-rw-r--r--	2016-10-10 19:19
perlmini.c	131.72 KB	-r--r--r--	2015-01-28 21:12
perlmini.o	173.31 KB	-rw-r--r--	2016-10-10 17:35
perlsdio.h	4.92 KB	-r--r--r--	2014-12-27 11:48
perlvars.h	8.76 KB	-r--r--r--	2014-12-27 11:48
perly.act	55.04 KB	-r--r--r--	2014-12-27 11:49
perly.c	16.1 KB	-r--r--r--	2014-12-27 11:49
perly.h	6.08 KB	-r--r--r--	2014-12-27 11:49
perly.o	51.13 KB	-rw-r--r--	2016-10-10 17:36
perly.tab	74.01 KB	-r--r--r--	2014-12-27 11:49
perly.y	38.93 KB	-r--r--r--	2014-12-27 11:49
pp.c	147.83 KB	-r--r--r--	2014-12-27 11:49
pp.h	19.83 KB	-r--r--r--	2014-12-27 11:49
pp.o	150.74 KB	-rw-r--r--	2016-10-10 17:36
pp_ctl.c	142.43 KB	-r--r--r--	2015-01-24 15:03
pp_ctl.o	143.59 KB	-rw-r--r--	2016-10-10 17:36
pp_hot.c	82.79 KB	-r--r--r--	2014-12-27 11:49
pp_hot.o	76.93 KB	-rw-r--r--	2016-10-10 17:36
pp_pack.c	81.07 KB	-r--r--r--	2014-12-27 11:49
pp_pack.o	78.95 KB	-rw-r--r--	2016-10-10 17:36
pp_proto.h	10.81 KB	-rw-r--r--	2014-12-27 11:49
pp_sort.c	64.99 KB	-r--r--r--	2014-12-27 11:49
pp_sort.o	25.86 KB	-rw-r--r--	2016-10-10 17:36
pp_sys.c	128.85 KB	-r--r--r--	2015-01-11 14:03
pp_sys.o	145.77 KB	-rw-r--r--	2016-10-10 17:36
proto.h	275.69 KB	-rw-r--r--	2014-12-27 11:49
realclean.sh	46.47 KB	-rw-r--r--	2016-10-10 19:19
reentr.c	15.59 KB	-rw-r--r--	2014-12-27 11:49
reentr.h	76.44 KB	-rw-r--r--	2014-12-27 11:49
reentr.o	1.52 KB	-rw-r--r--	2016-10-10 17:36
regcharclass.h	52.42 KB	-rw-r--r--	2014-12-27 11:49
regcomp.c	610.17 KB	-r--r--r--	2015-01-10 13:15
regcomp.h	37.6 KB	-r--r--r--	2014-12-27 11:49
regcomp.o	220.61 KB	-rw-r--r--	2016-10-10 17:36
regcomp.sym	11.89 KB	-r--r--r--	2014-12-27 11:49
regen.pl	862 B	-r--r--r--	2014-12-27 11:49
regen_perly.pl	9 KB	-r--r--r--	2014-12-27 11:49
regexec.c	291.97 KB	-r--r--r--	2014-12-27 11:49
regexec.o	109.56 KB	-rw-r--r--	2016-10-10 17:36
regexp.h	31.38 KB	-r--r--r--	2014-12-27 11:49
regnodes.h	34.54 KB	-rw-r--r--	2014-12-27 11:49
run.c	1.53 KB	-r--r--r--	2014-12-27 11:49
run.o	1.59 KB	-rw-r--r--	2016-10-10 17:36
runtests	1.09 KB	-rwxr-xr-x	2016-10-10 17:34
runtests.SH	1.79 KB	-r-xr-xr-x	2014-12-27 11:49
scope.c	36.35 KB	-r--r--r--	2014-12-27 11:49
scope.h	11.64 KB	-r--r--r--	2014-12-27 11:49
scope.o	29.58 KB	-rw-r--r--	2016-10-10 17:36
sv.c	408.23 KB	-r--r--r--	2015-01-15 22:12
sv.h	80.16 KB	-r--r--r--	2015-01-15 22:12
sv.o	166.73 KB	-rw-r--r--	2016-10-10 17:36
taint.c	4.91 KB	-r--r--r--	2014-12-27 11:49
taint.o	5.8 KB	-rw-r--r--	2016-10-10 17:36
thread.h	11.53 KB	-r--r--r--	2014-12-27 11:49
time64.c	15.29 KB	-r--r--r--	2014-12-27 11:49
time64.h	1.57 KB	-r--r--r--	2014-12-27 11:49
time64_config.h	1.98 KB	-r--r--r--	2014-12-27 11:49
toke.c	350.24 KB	-r--r--r--	2015-01-24 15:03
toke.o	274.02 KB	-rw-r--r--	2016-10-10 17:36
uconfig.h	144.22 KB	-rw-r--r--	2014-12-27 11:49
uconfig.sh	15.69 KB	-r--r--r--	2014-12-27 11:49
uconfig64.sh	15.73 KB	-r--r--r--	2014-12-27 11:49
unicode_constants.h	2.12 KB	-r--r--r--	2014-12-27 11:49
universal.c	24.91 KB	-r--r--r--	2014-12-27 11:49
universal.o	45.73 KB	-rw-r--r--	2016-10-10 17:36
unixish.h	4.48 KB	-r--r--r--	2014-12-27 11:49
utf8.c	135.85 KB	-r--r--r--	2014-12-27 12:10
utf8.h	29.3 KB	-r--r--r--	2014-12-27 11:49
utf8.o	77.52 KB	-rw-r--r--	2016-10-10 17:36
utfebcdic.h	45.12 KB	-r--r--r--	2014-12-27 11:49
util.c	138.18 KB	-r--r--r--	2014-12-27 12:20
util.h	2.53 KB	-r--r--r--	2014-12-27 11:49
util.o	70.16 KB	-rw-r--r--	2016-10-10 17:36
utils.lst	623 B	-r--r--r--	2014-12-27 11:49
uudmap.h	904 B	-rw-r--r--	2016-10-10 17:36
veryclean.sh	46.47 KB	-rw-r--r--	2016-10-10 19:19
vutil.c	25.44 KB	-r--r--r--	2014-12-27 11:49
vutil.h	7.06 KB	-r--r--r--	2014-12-27 11:49
vxs.inc	10.91 KB	-r--r--r--	2014-12-27 11:49
warnings.h	4.94 KB	-rw-r--r--	2014-12-27 11:49
write_buildcustomize.pl	3.01 KB	-r--r--r--	2014-12-27 11:49

Rename

/* This file is part of the "version" CPAN distribution.  Please avoid
   editing it in the perl core. */

#ifdef PERL_CORE
#  define VXS_CLASS "version"
#  define VXSp(name) XS_##name
/* VXSXSDP = XSUB Details Proto */
#  define VXSXSDP(x) x
#else
#  define VXS_CLASS "version::vxs"
#  define VXSp(name) VXS_##name
/* proto member is unused in version, it is used in CORE by non version xsubs */
#  define VXSXSDP(x)
#endif
#define VXS(name) XS(VXSp(name)); XS(VXSp(name))

/* uses PUSHs, so SP must be at start, PUSHs sv on Perl stack, then returns from
   xsub; this is a little more machine code/tailcall friendly than mPUSHs(foo);
   PUTBACK; return; */

#define VXS_RETURN_M_SV(sv) \
    STMT_START {							\
	SV * sv_vtc = sv;						\
	PUSHs(sv_vtc);							\
	PUTBACK;							\
	sv_2mortal(sv_vtc);						\
	return;								\
    } STMT_END

#ifdef VXS_XSUB_DETAILS
#  ifdef PERL_CORE
    {"UNIVERSAL::VERSION", VXSp(universal_version), VXSXSDP(NULL)},
#  endif
    {VXS_CLASS "::_VERSION", VXSp(universal_version), VXSXSDP(NULL)},
    {VXS_CLASS "::()", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::new", VXSp(version_new), VXSXSDP(NULL)},
    {VXS_CLASS "::parse", VXSp(version_new), VXSXSDP(NULL)},
    {VXS_CLASS "::(\"\"", VXSp(version_stringify), VXSXSDP(NULL)},
    {VXS_CLASS "::stringify", VXSp(version_stringify), VXSXSDP(NULL)},
    {VXS_CLASS "::(0+", VXSp(version_numify), VXSXSDP(NULL)},
    {VXS_CLASS "::numify", VXSp(version_numify), VXSXSDP(NULL)},
    {VXS_CLASS "::normal", VXSp(version_normal), VXSXSDP(NULL)},
    {VXS_CLASS "::(cmp", VXSp(version_vcmp), VXSXSDP(NULL)},
    {VXS_CLASS "::(<=>", VXSp(version_vcmp), VXSXSDP(NULL)},
#  ifdef PERL_CORE
    {VXS_CLASS "::vcmp", XS_version_vcmp, VXSXSDP(NULL)},
#  else
    {VXS_CLASS "::VCMP", VXS_version_vcmp, VXSXSDP(NULL)},
#  endif
    {VXS_CLASS "::(bool", VXSp(version_boolean), VXSXSDP(NULL)},
    {VXS_CLASS "::boolean", VXSp(version_boolean), VXSXSDP(NULL)},
    {VXS_CLASS "::(+", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(-", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(*", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(/", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(+=", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(-=", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(*=", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(/=", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(abs", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::(nomethod", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::noop", VXSp(version_noop), VXSXSDP(NULL)},
    {VXS_CLASS "::is_alpha", VXSp(version_is_alpha), VXSXSDP(NULL)},
    {VXS_CLASS "::qv", VXSp(version_qv), VXSXSDP(NULL)},
    {VXS_CLASS "::declare", VXSp(version_qv), VXSXSDP(NULL)},
    {VXS_CLASS "::is_qv", VXSp(version_is_qv), VXSXSDP(NULL)},
#else

#ifndef dVAR
#  define dVAR
#endif

#ifdef HvNAME_HEK
typedef HEK HVNAME;
#  ifndef HEKf
#    define HEKfARG(arg)	((void*)(sv_2mortal(newSVhek(arg))))
#    define HEKf		SVf
#  endif
#else
typedef char HVNAME;
#  define HvNAME_HEK	HvNAME_get
#  define HEKfARG(arg)	arg
#  define HEKf		"s"
#endif

VXS(universal_version)
{
    dVAR;
    dXSARGS;
    HV *pkg;
    GV **gvp;
    GV *gv;
    SV *sv;
    const char *undef;
    PERL_UNUSED_ARG(cv);

if (items < 1)
       Perl_croak(aTHX_ "Usage: UNIVERSAL::VERSION(sv, ...)");

sv = ST(0);

if (SvROK(sv)) {
        sv = (SV*)SvRV(sv);
        if (!SvOBJECT(sv))
            Perl_croak(aTHX_ "Cannot find version of an unblessed reference");
        pkg = SvSTASH(sv);
    }
    else {
        pkg = gv_stashsv(sv, FALSE);
    }

gvp = pkg ? (GV**)hv_fetchs(pkg,"VERSION",FALSE) : (GV**)NULL;

if (gvp && isGV(gv = *gvp) && (sv = GvSV(gv)) && SvOK(sv)) {
        sv = sv_mortalcopy(sv);
	if ( ! ISA_VERSION_OBJ(sv) )
	    UPG_VERSION(sv, FALSE);
        undef = NULL;
    }
    else {
        sv = &PL_sv_undef;
        undef = "(undef)";
    }

if (items > 1) {
	SV *req = ST(1);

if (undef) {
	    if (pkg) {
		const HVNAME* const name = HvNAME_HEK(pkg);
#if PERL_VERSION == 5
		Perl_croak(aTHX_ "%s version %s required--this is only version ",
			    name, SvPVx_nolen_const(req));
#else
		Perl_croak(aTHX_
			   "%"HEKf" does not define $%"HEKf
			   "::VERSION--version check failed",
			   HEKfARG(name), HEKfARG(name));
#endif
	    }
	    else {
#if PERL_VERSION >= 8
		Perl_croak(aTHX_
			     "%"SVf" defines neither package nor VERSION--version check failed",
			     (void*)(ST(0)) );
#else
		Perl_croak(aTHX_ "%s does not define $%s::VERSION--version check failed",
			   SvPVx_nolen_const(ST(0)),
			   SvPVx_nolen_const(ST(0)) );
#endif
	    }
	}

if ( ! ISA_VERSION_OBJ(req) ) {
	    /* req may very well be R/O, so create a new object */
	    req = sv_2mortal( NEW_VERSION(req) );
	}

if ( VCMP( req, sv ) > 0 ) {
	    if ( hv_exists(MUTABLE_HV(SvRV(req)), "qv", 2 ) ) {
		req = VNORMAL(req);
		sv  = VNORMAL(sv);
	    }
	    else {
		req = VSTRINGIFY(req);
		sv  = VSTRINGIFY(sv);
	    }
	    Perl_croak(aTHX_ "%"HEKf" version %"SVf" required--"
		"this is only version %"SVf"", HEKfARG(HvNAME_HEK(pkg)),
		SVfARG(sv_2mortal(req)),
		SVfARG(sv_2mortal(sv)));
	}
    }

/* if the package's $VERSION is not undef, it is upgraded to be a version object */
    if (ISA_VERSION_OBJ(sv)) {
	ST(0) = sv_2mortal(VSTRINGIFY(sv));
    } else {
	ST(0) = sv;
    }

XSRETURN(1);
}

VXS(version_new)
{
    dVAR;
    dXSARGS;
    SV *vs;
    SV *rv;
    const char * classname = "";
    STRLEN len;
    U32 flags = 0;
    SV * svarg0 = NULL;
    PERL_UNUSED_VAR(cv);

SP -= items;

switch((U32)items) {
    case 3: {
        SV * svarg2;
        vs = sv_newmortal();
        svarg2 = ST(2);
#if PERL_VERSION == 5
        sv_setpvf(vs,"v%s",SvPV_nolen_const(svarg2));
#else
        Perl_sv_setpvf(aTHX_ vs,"v%s",SvPV_nolen_const(svarg2));
#endif
        break;
    }
    case 2:
        vs = ST(1);
    /* Just in case this is something like a tied hash */
        SvGETMAGIC(vs);
        if(SvOK(vs))
            break;
        /* drop through */
    case 1:
        /* no param or explicit undef */
        /* create empty object */
        vs = sv_newmortal();
        sv_setpvs(vs,"undef");
        break;
    default:
    case 0:
        Perl_croak_nocontext("Usage: version::new(class, version)");
        break;
    }

svarg0 = ST(0);
    if ( sv_isobject(svarg0) ) {
	/* get the class if called as an object method */
	const HV * stash = SvSTASH(SvRV(svarg0));
	classname = HvNAME_get(stash);
	len	  = HvNAMELEN_get(stash);
#ifdef HvNAMEUTF8
	flags	  = HvNAMEUTF8(stash) ? SVf_UTF8 : 0;
#endif
    }
    else {
	classname = SvPV_nomg(svarg0, len);
	flags     = SvUTF8(svarg0);
    }

rv = NEW_VERSION(vs);
    if ( len != sizeof(VXS_CLASS)-1
      || strcmp(classname,VXS_CLASS) != 0 ) /* inherited new() */
#if PERL_VERSION == 5
        sv_bless(rv, gv_stashpv((char *)classname, GV_ADD));
#else
        sv_bless(rv, gv_stashpvn(classname, len, GV_ADD | flags));
#endif

VXS_RETURN_M_SV(rv);
}

#define VTYPECHECK(var, val, varname) \
    STMT_START {							\
	SV * sv_vtc = val;						\
	if (ISA_VERSION_OBJ(sv_vtc)) {				\
	    (var) = SvRV(sv_vtc);						\
	}								\
	else								\
	    Perl_croak_nocontext(varname " is not of type version");	\
    } STMT_END

VXS(version_stringify)
{
     dVAR;
     dXSARGS;
     if (items < 1)
	 croak_xs_usage(cv, "lobj, ...");
     SP -= items;
     {
	  SV *	lobj;
	  VTYPECHECK(lobj, ST(0), "lobj");

VXS_RETURN_M_SV(VSTRINGIFY(lobj));
     }
}

VXS(version_numify)
{
     dVAR;
     dXSARGS;
     if (items < 1)
	 croak_xs_usage(cv, "lobj, ...");
     SP -= items;
     {
	  SV *	lobj;
	  VTYPECHECK(lobj, ST(0), "lobj");
	  VXS_RETURN_M_SV(VNUMIFY(lobj));
     }
}

VXS(version_normal)
{
     dVAR;
     dXSARGS;
     if (items != 1)
	 croak_xs_usage(cv, "ver");
     SP -= items;
     {
	  SV *	ver;
	  VTYPECHECK(ver, ST(0), "ver");

VXS_RETURN_M_SV(VNORMAL(ver));
     }
}

VXS(version_vcmp)
{
     dVAR;
     dXSARGS;
     if (items < 1)
	 croak_xs_usage(cv, "lobj, ...");
     SP -= items;
     {
	  SV *	lobj;
	  VTYPECHECK(lobj, ST(0), "lobj");
	  {
	       SV	*rs;
	       SV	*rvs;
	       SV * robj = ST(1);
	       const IV	 swap = (IV)SvIV(ST(2));

if ( !ISA_VERSION_OBJ(robj) )
	       {
		    robj = sv_2mortal(NEW_VERSION(SvOK(robj) ? robj : newSVpvs_flags("0", SVs_TEMP)));
	       }
	       rvs = SvRV(robj);

if ( swap )
	       {
		    rs = newSViv(VCMP(rvs,lobj));
	       }
	       else
	       {
		    rs = newSViv(VCMP(lobj,rvs));
	       }

VXS_RETURN_M_SV(rs);
	  }
     }
}

VXS(version_boolean)
{
    dVAR;
    dXSARGS;
    SV *lobj;
    if (items < 1)
	croak_xs_usage(cv, "lobj, ...");
    SP -= items;
    VTYPECHECK(lobj, ST(0), "lobj");
    {
	SV * const rs =
	    newSViv( VCMP(lobj,
			  sv_2mortal(NEW_VERSION(
					sv_2mortal(newSVpvs("0"))
				    ))
			 )
		   );
	VXS_RETURN_M_SV(rs);
    }
}

VXS(version_noop)
{
    dVAR;
    dXSARGS;
    if (items < 1)
	croak_xs_usage(cv, "lobj, ...");
    if (ISA_VERSION_OBJ(ST(0)))
	Perl_croak(aTHX_ "operation not supported with version object");
    else
	Perl_croak(aTHX_ "lobj is not of type version");
    XSRETURN_EMPTY;
}

static
void
S_version_check_key(pTHX_ CV * cv, const char * key, int keylen)
{
    dVAR;
    dXSARGS;
    if (items != 1)
	croak_xs_usage(cv, "lobj");
    {
	SV *lobj = POPs;
	SV *ret;
	VTYPECHECK(lobj, lobj, "lobj");
	if ( hv_exists(MUTABLE_HV(lobj), key, keylen ) )
	    ret = &PL_sv_yes;
	else
	    ret = &PL_sv_no;
	PUSHs(ret);
	PUTBACK;
	return;
    }
}

VXS(version_is_alpha)
{
    S_version_check_key(aTHX_ cv, "alpha", 5);
}

VXS(version_qv)
{
    dVAR;
    dXSARGS;
    PERL_UNUSED_ARG(cv);
    SP -= items;
    {
	SV * ver = ST(0);
	SV * sv0 = ver;
	SV * rv;
        STRLEN len = 0;
        const char * classname = "";
        U32 flags = 0;
        if ( items == 2 ) {
	    SV * sv1 = ST(1);
	    SvGETMAGIC(sv1);
	    if (SvOK(sv1)) {
		ver = sv1;
	    }
	    else {
		Perl_croak(aTHX_ "Invalid version format (version required)");
	    }
            if ( sv_isobject(sv0) ) { /* class called as an object method */
                const HV * stash = SvSTASH(SvRV(sv0));
                classname = HvNAME_get(stash);
                len       = HvNAMELEN_get(stash);
#ifdef HvNAMEUTF8
                flags     = HvNAMEUTF8(stash) ? SVf_UTF8 : 0;
#endif
            }
            else {
	       classname = SvPV(sv0, len);
                flags     = SvUTF8(sv0);
            }
	}
	if ( !SvVOK(ver) ) { /* not already a v-string */
	    rv = sv_newmortal();
	    SvSetSV_nosteal(rv,ver); /* make a duplicate */
	    UPG_VERSION(rv, TRUE);
	} else {
	    rv = sv_2mortal(NEW_VERSION(ver));
	}
	if ( items == 2 && (len != 7
                || strcmp(classname,"version")) ) { /* inherited new() */
#if PERL_VERSION == 5
	    sv_bless(rv, gv_stashpv((char *)classname, GV_ADD));
#else
	    sv_bless(rv, gv_stashpvn(classname, len, GV_ADD | flags));
#endif
        }
	PUSHs(rv);
    }
    PUTBACK;
    return;
}

VXS(version_is_qv)
{
    S_version_check_key(aTHX_ cv, "qv", 2);
}

#endif