FM / bin

/usr/bin

Name	Size	Mode	Actions
2to3	95	0755	edit dl rm
ab	83416	0755	edit dl rm
aclocal	36376	0755	edit dl rm
aclocal-1.16	36376	0755	edit dl rm
acyclic	15664	0755	edit dl rm
addr2line	28408	0755	edit dl rm
alias	33	0755	edit dl rm
animate	15456	0755	edit dl rm
appstream-compose	32224	0755	edit dl rm
appstream-util	119368	0755	edit dl rm
apropos	49688	0755	edit dl rm
apropos.man-db	49688	0755	edit dl rm
ar	57328	0755	edit dl rm
arch	32224	0755	edit dl rm
arpaname	15472	0755	edit dl rm
arping	27904	0755	edit dl rm
as	727360	0755	edit dl rm
aserver	40416	0755	edit dl rm
aspell	154744	0755	edit dl rm
at	56824	4755	edit dl rm
atq	56824	4755	edit dl rm
atrm	56824	4755	edit dl rm
attr	15496	0755	edit dl rm
audit2allow	15064	0755	edit dl rm
audit2why	15064	0755	edit dl rm
aulast	19664	0755	edit dl rm
aulastlog	15488	0755	edit dl rm
ausyscall	15480	0755	edit dl rm
authselect	44728	0755	edit dl rm
autoconf	14771	0755	edit dl rm
autoheader	8534	0755	edit dl rm
autom4te	32181	0755	edit dl rm
automake	257981	0755	edit dl rm
automake-1.16	257981	0755	edit dl rm
autopoint	26997	0755	edit dl rm
autoreconf	21066	0755	edit dl rm
autoscan	17124	0755	edit dl rm
autoupdate	33872	0755	edit dl rm
auvirt	36152	0755	edit dl rm
avinfo	23928	0755	edit dl rm
awk	714928	0755	edit dl rm
b2sum	52832	0755	edit dl rm
base32	36344	0755	edit dl rm
base64	36344	0755	edit dl rm
basename	32240	0755	edit dl rm
basenc	48976	0755	edit dl rm
bash	1389024	0755	edit dl rm
bashbug	7079	0755	edit dl rm
bashbug-64	7079	0755	edit dl rm
batch	140	0755	edit dl rm
bcomps	23928	0755	edit dl rm
bg	30	0755	edit dl rm
bison	506632	0755	edit dl rm
bluemoon	44808	0755	edit dl rm
bluetoothctl	649456	0755	edit dl rm
bond2team	23293	0755	edit dl rm
bootconfig	31016	0755	edit dl rm
bootctl	102952	0755	edit dl rm
brotli	771376	0755	edit dl rm
bsqldb	36136	0755	edit dl rm
bsqlodbc	31936	0755	edit dl rm
btattach	32272	0755	edit dl rm
btmgmt	198904	0755	edit dl rm
btmon	1243624	0755	edit dl rm
bunzip2	40392	0755	edit dl rm
busctl	102560	0755	edit dl rm
bwrap	73952	0755	edit dl rm
bzcat	40392	0755	edit dl rm
bzcmp	2144	0755	edit dl rm
bzdiff	2144	0755	edit dl rm
bzegrep	2058	0755	edit dl rm
bzfgrep	2058	0755	edit dl rm
bzgrep	2058	0755	edit dl rm
bzip2	40392	0755	edit dl rm
bzip2recover	15592	0755	edit dl rm
bzless	1263	0755	edit dl rm
bzmore	1263	0755	edit dl rm
c++	1097224	0755	edit dl rm
c++filt	27840	0755	edit dl rm
c89	228	0755	edit dl rm
c99	219	0755	edit dl rm
ca-legacy	1648	0755	edit dl rm
cal	53064	0755	edit dl rm
canberra-boot	19528	0755	edit dl rm
canberra-gtk-play	19640	0755	edit dl rm
captoinfo	89896	0755	edit dl rm
cat	36312	0755	edit dl rm
catchsegv	3289	0755	edit dl rm
catman	36720	0755	edit dl rm
cc	1093128	0755	edit dl rm
ccomps	28128	0755	edit dl rm
cd	30	0755	edit dl rm
centrino-decode	14464	0755	edit dl rm
certutil	176736	0755	edit dl rm
chacl	19608	0755	edit dl rm
chage	73704	4755	edit dl rm
chattr	15552	0755	edit dl rm
chcat	13957	0755	edit dl rm
chcon	61488	0755	edit dl rm
checkmodule	461704	0755	edit dl rm
checkpolicy	540184	0755	edit dl rm
chfn	32032	4711	edit dl rm
chgrp	57320	0755	edit dl rm
chmem	36248	0755	edit dl rm
chmod	57304	0755	edit dl rm
choom	23856	0755	edit dl rm
chown	61432	0755	edit dl rm
chronyc	107256	0755	edit dl rm
chrt	27960	0755	edit dl rm
chsh	23784	0711	edit dl rm
chvt	15544	0755	edit dl rm
cifsiostat	23920	0755	edit dl rm
circo	15600	0755	edit dl rm
cksum	32136	0755	edit dl rm
cl-linksafe-apply-group	558	0755	edit dl rm
cl-linksafe-reconfigure	4947	0755	edit dl rm
clear	15512	0755	edit dl rm
clockdiff	23752	0755	edit dl rm
cluster	48840	0755	edit dl rm
cmp	41096	0755	edit dl rm
cmsutil	48496	0755	edit dl rm
col	23792	0755	edit dl rm
colcrt	15552	0755	edit dl rm
colrm	15528	0755	edit dl rm
column	36184	0755	edit dl rm
comm	36408	0755	edit dl rm
command	35	0755	edit dl rm
compare	15456	0755	edit dl rm
compile_et	1346	0755	edit dl rm
composite	15456	0755	edit dl rm
config_data	7138	0755	edit dl rm
conjure	15464	0755	edit dl rm
convert	15464	0755	edit dl rm
coredumpctl	61280	0755	edit dl rm
corelist	15279	0755	edit dl rm
cp	144400	0755	edit dl rm
cpan	8571	0755	edit dl rm
cpan-mirrors	4288	0755	edit dl rm
cpansign	2032	0755	edit dl rm
cpapi1	3478112	0755	edit dl rm
cpapi2	3478112	0755	edit dl rm
cpapi3	3478112	0755	edit dl rm
cpio	149016	0755	edit dl rm
cpp	1097224	0755	edit dl rm
cpupower	81936	0755	edit dl rm
crb	2654	0744	edit dl rm
crc32	1043	0755	edit dl rm
crlutil	94200	0755	edit dl rm
cronnext	40704	0755	edit dl rm
crontab	57112	4755	edit dl rm
csplit	111272	0755	edit dl rm
curl	254448	0755	edit dl rm
cut	44656	0755	edit dl rm
cvtsudoers	360680	0755	edit dl rm
cxpm	28072	0755	edit dl rm
cyrusbdb2current	1651824	0755	edit dl rm
datacopy	31992	0755	edit dl rm
date	106336	0755	edit dl rm
dbus-broker	236368	0755	edit dl rm
dbus-broker-launch	131904	0755	edit dl rm
dbus-monitor	27920	0755	edit dl rm
dbus-send	27872	0755	edit dl rm
dbus-update-activation-environment	15536	0755	edit dl rm
dbus-uuidgen	15504	0755	edit dl rm
dbxtool	23896	0755	edit dl rm
dconf	66264	0755	edit dl rm
dd	69576	0755	edit dl rm
deallocvt	15552	0755	edit dl rm
debuginfo-install	3690	0755	edit dl rm
debuginfod-find	19736	0755	edit dl rm
defncopy	32016	0755	edit dl rm
delv	46472	0755	edit dl rm
df	82464	0755	edit dl rm
diff	199368	0755	edit dl rm
diff3	53560	0755	edit dl rm
diffimg	15624	0755	edit dl rm
dig	139872	0755	edit dl rm
dijkstra	19904	0755	edit dl rm
dir	140752	0755	edit dl rm
dircolors	40568	0755	edit dl rm
dirmngr	450528	0755	edit dl rm
dirmngr-client	57472	0755	edit dl rm
dirname	27952	0755	edit dl rm
display	15456	0755	edit dl rm
distro	953	0755	edit dl rm
dltest	15464	0755	edit dl rm
dmesg	73496	0755	edit dl rm
dnf	2094	0755	edit dl rm
dnf-3	2094	0755	edit dl rm
dnf4	2094	0755	edit dl rm
dnsdomainname	24408	0755	edit dl rm
dnstap-read	23744	0755	edit dl rm
domainname	24408	0755	edit dl rm
dot	15600	0755	edit dl rm
dot2gxl	40888	0755	edit dl rm
dotty	2089	0755	edit dl rm
doveadm	840464	0755	edit dl rm
doveconf	384248	0755	edit dl rm
dovecot-sysreport	6431	0755	edit dl rm
dpkg	328216	0755	edit dl rm
dpkg-deb	157400	0755	edit dl rm
dpkg-divert	132888	0755	edit dl rm
dpkg-maintscript-helper	21128	0755	edit dl rm
dpkg-query	149672	0755	edit dl rm
dpkg-realpath	36488	0755	edit dl rm
dpkg-split	107272	0755	edit dl rm
dpkg-statoverride	57400	0755	edit dl rm
dpkg-trigger	49232	0755	edit dl rm
dracut	100917	0755	edit dl rm
dtrace	17796	0755	edit dl rm
du	152848	0755	edit dl rm
dumpkeys	167800	0755	edit dl rm
dwp	872032	0755	edit dl rm
dwz	233464	0755	edit dl rm
ea-php81	11321664	0755	edit dl rm
ea-php81-pear	383	0755	edit dl rm
ea-php81-pecl	299	0755	edit dl rm
ea-php82	11409936	0755	edit dl rm
ea-php82-pear	383	0755	edit dl rm
ea-php82-pecl	299	0755	edit dl rm
ea-wappspector	104	0755	edit dl rm
echo	27944	0755	edit dl rm
ed	53768	0755	edit dl rm
edgepaint	2580304	0755	edit dl rm
egrep	32	0755	edit dl rm
eject	44656	0755	edit dl rm
elfedit	36696	0755	edit dl rm
enc2xs	41663	0755	edit dl rm
encguess	2989	0755	edit dl rm
env	45088	0755	edit dl rm
envml	4205	0755	edit dl rm
envsubst	36240	0755	edit dl rm
eps2eps	643	0755	edit dl rm
eqn	194064	0755	edit dl rm
event_rpcgen.py	54936	0755	edit dl rm
evmctl	71264	0755	edit dl rm
ex	1452256	0755	edit dl rm
exempi	28856	0755	edit dl rm
exiv2	204616	0755	edit dl rm
expand	40488	0755	edit dl rm
expr	111040	0755	edit dl rm
factor	73592	0755	edit dl rm
fallocate	23760	0755	edit dl rm
false	27936	0755	edit dl rm
fc	30	0755	edit dl rm
fc-cache	139	0755	edit dl rm
fc-cache-64	23728	0755	edit dl rm
fc-cat	19616	0755	edit dl rm
fc-conflist	15496	0755	edit dl rm
fc-list	15496	0755	edit dl rm
fc-match	15496	0755	edit dl rm
fc-pattern	15504	0755	edit dl rm
fc-query	15496	0755	edit dl rm
fc-scan	15504	0755	edit dl rm
fc-validate	15504	0755	edit dl rm
fdp	15600	0755	edit dl rm
fg	30	0755	edit dl rm
fgconsole	15536	0755	edit dl rm
fgrep	32	0755	edit dl rm
filan	48776	0755	edit dl rm
file	28288	0755	edit dl rm
fincore	23856	0755	edit dl rm
find	291792	0755	edit dl rm
find-repos-of-install	3690	0755	edit dl rm
findmnt	66304	0755	edit dl rm
fips-finish-install	1764	0755	edit dl rm
fips-mode-setup	8213	0755	edit dl rm
firewall-cmd	143608	0755	edit dl rm
firewall-offline-cmd	123952	0755	edit dl rm
fisql	36136	0755	edit dl rm
flatpak	1858560	0755	edit dl rm
flatpak-bisect	7844	0755	edit dl rm
flatpak-coredumpctl	3433	0755	edit dl rm
flex	422544	0755	edit dl rm
flex++	422544	0755	edit dl rm
flock	23928	0755	edit dl rm
fmt	40528	0755	edit dl rm
fold	40456	0755	edit dl rm
free	23920	0755	edit dl rm
freebcp	23744	0755	edit dl rm
freetype-config	4423	0755	edit dl rm
fribidi	29272	0755	edit dl rm
ftp	103072	0755	edit dl rm
funzip	32000	0755	edit dl rm
fuse2fs	74424	0755	edit dl rm
fusermount	36368	4755	edit dl rm
fusermount3	36400	4755	edit dl rm
fwupdmgr	160784	0755	edit dl rm
fwupdtool	181456	0755	edit dl rm
g++	1097224	0755	edit dl rm
g13	112936	0755	edit dl rm
gapplication	23768	0755	edit dl rm
gawk	714928	0755	edit dl rm
gc	19856	0755	edit dl rm
gcc	1093128	0755	edit dl rm
gcc-ar	28336	0755	edit dl rm
gcc-nm	28312	0755	edit dl rm
gcc-ranlib	28336	0755	edit dl rm
gcov	488576	0755	edit dl rm
gcov-dump	298768	0755	edit dl rm
gcov-tool	328160	0755	edit dl rm
gdbmtool	152840	0755	edit dl rm
gdbm_dump	28896	0755	edit dl rm
gdbm_load	37352	0755	edit dl rm
gdbus	52736	0755	edit dl rm
gdbus-codegen	2038	0755	edit dl rm
gdk-pixbuf-query-loaders-64	15528	0755	edit dl rm
gdk-pixbuf-thumbnailer	19608	0755	edit dl rm
gencat	28104	0755	edit dl rm
genl-ctrl-list	15848	0755	edit dl rm
gen_grub_cfgstub	660	0700	edit dl rm
geqn	194064	0755	edit dl rm
GET	16200	0755	edit dl rm
getconf	36080	0755	edit dl rm
getent	36720	0755	edit dl rm
getfacl	32032	0755	edit dl rm
getfattr	27920	0755	edit dl rm
getkeycodes	15528	0755	edit dl rm
getopt	23824	0755	edit dl rm
getopts	35	0755	edit dl rm
gettext	36200	0755	edit dl rm
gettext.sh	5191	0755	edit dl rm
gettextize	42236	0755	edit dl rm
ghostscript	15488	0755	edit dl rm
gio	94024	0755	edit dl rm
gio-querymodules-64	15496	0755	edit dl rm
git	23377520	0755	edit dl rm
git-receive-pack	23377520	0755	edit dl rm
git-shell	6562984	0755	edit dl rm
git-upload-archive	23377520	0755	edit dl rm
git-upload-pack	23377520	0755	edit dl rm
glib-compile-resources	44384	0755	edit dl rm
glib-compile-schemas	52704	0755	edit dl rm
glib-genmarshal	41105	0755	edit dl rm
glib-gettextize	5390	0755	edit dl rm
glib-mkenums	30797	0755	edit dl rm
gmake	255792	0755	edit dl rm
gml2gv	48928	0755	edit dl rm
gneqn	916	0755	edit dl rm
gnroff	3285	0755	edit dl rm
gobject-query	15528	0755	edit dl rm
gpasswd	78016	4755	edit dl rm
gpg	1123624	0755	edit dl rm
gpg-agent	350488	0755	edit dl rm
gpg-card	174216	0755	edit dl rm
gpg-connect-agent	86784	0755	edit dl rm
gpg-error	36968	0755	edit dl rm
gpg-error-config	2024	0755	edit dl rm
gpg-wks-client	132656	0755	edit dl rm
gpg-wks-server	116048	0755	edit dl rm
gpg2	1123624	0755	edit dl rm
gpgconf	103408	0755	edit dl rm
gpgme-json	86656	0755	edit dl rm
gpgparsemail	36176	0755	edit dl rm
gpgrt-config	13450	0755	edit dl rm
gpgsplit	28160	0755	edit dl rm
gpgtar	66424	0755	edit dl rm
gpgv	302520	0755	edit dl rm
gpgv2	302520	0755	edit dl rm
gpic	206560	0755	edit dl rm
gpio-event-mon	18560	0755	edit dl rm
gpio-hammer	14456	0755	edit dl rm
gpio-watch	14456	0755	edit dl rm
gprof	103920	0755	edit dl rm
gr2fonttest	28672	0755	edit dl rm
graphml2gv	24112	0755	edit dl rm
grep	158200	0755	edit dl rm
gresource	23840	0755	edit dl rm
groff	99088	0755	edit dl rm
grops	171272	0755	edit dl rm
grotty	125128	0755	edit dl rm
groups	36328	0755	edit dl rm
grub2-editenv	498416	0755	edit dl rm
grub2-file	1163304	0755	edit dl rm
grub2-fstest	1750592	0755	edit dl rm
grub2-glue-efi	308576	0755	edit dl rm
grub2-kbdcomp	1672	0755	edit dl rm
grub2-menulst2cfg	291344	0755	edit dl rm
grub2-mkfont	342040	0755	edit dl rm
grub2-mkimage	476816	0755	edit dl rm
grub2-mklayout	318920	0755	edit dl rm
grub2-mknetdir	545376	0755	edit dl rm
grub2-mkpasswd-pbkdf2	321544	0755	edit dl rm
grub2-mkrelpath	308392	0755	edit dl rm
grub2-mkrescue	1408168	0755	edit dl rm
grub2-mkstandalone	652248	0755	edit dl rm
grub2-mount	1073800	0755	edit dl rm
grub2-render-label	1168240	0755	edit dl rm
grub2-script-check	341960	0755	edit dl rm
grub2-syslinux2cfg	1094992	0755	edit dl rm
gs	15488	0755	edit dl rm
gsbj	354	0755	edit dl rm
gsdj	356	0755	edit dl rm
gsdj500	356	0755	edit dl rm
gsettings	32136	0755	edit dl rm
gsf-office-thumbnailer	20552	0755	edit dl rm
gslj	357	0755	edit dl rm
gslp	354	0755	edit dl rm
gsnd	281	0755	edit dl rm
gsoelim	32952	0755	edit dl rm
gst-inspect-1.0	73472	0755	edit dl rm
gst-launch-1.0	40424	0755	edit dl rm
gst-stats-1.0	36496	0755	edit dl rm
gst-typefind-1.0	19800	0755	edit dl rm
gtar	534824	0755	edit dl rm
gtbl	134000	0755	edit dl rm
gtester	32040	0755	edit dl rm
gtester-report	19090	0755	edit dl rm
gtk-launch	19744	0755	edit dl rm
gtk-query-immodules-2.0-64	19632	0755	edit dl rm
gtk-query-immodules-3.0-64	23832	0755	edit dl rm
gtk-update-icon-cache	40784	0755	edit dl rm
gtroff	749640	0755	edit dl rm
gunzip	2350	0755	edit dl rm
gv2gml	23968	0755	edit dl rm
gv2gxl	40888	0755	edit dl rm
gvcolor	50776	0755	edit dl rm
gvgen	23976	0755	edit dl rm
gvmap	2881096	0755	edit dl rm
gvmap.sh	2194	0755	edit dl rm
gvpack	407696	0755	edit dl rm
gvpr	15568	0755	edit dl rm
gxl2dot	40888	0755	edit dl rm
gxl2gv	40888	0755	edit dl rm
gzexe	6484	0755	edit dl rm
gzip	91088	0755	edit dl rm
h2ph	29382	0755	edit dl rm
h2xs	60931	0755	edit dl rm
hardlink	36280	0755	edit dl rm
hash	32	0755	edit dl rm
hb-ot-shape-closure	44704	0755	edit dl rm
hb-shape	49056	0755	edit dl rm
hb-subset	40608	0755	edit dl rm
hb-view	65544	0755	edit dl rm
HEAD	16200	0755	edit dl rm
head	40560	0755	edit dl rm
hex2hcd	19536	0755	edit dl rm
hexdump	52640	0755	edit dl rm
host	111176	0755	edit dl rm
hostid	32224	0755	edit dl rm
hostname	24408	0755	edit dl rm
hostnamectl	32248	0755	edit dl rm
htdbm	39456	0755	edit dl rm
htdigest	26328	0755	edit dl rm
html2text	980	0755	edit dl rm
htpasswd	39584	0755	edit dl rm
httxt2dbm	25320	0755	edit dl rm
hunspell	105136	0755	edit dl rm
i386	28136	0755	edit dl rm
ibd2sdi	333976	0755	edit dl rm
iconv	65624	0755	edit dl rm
icu-config	205	0755	edit dl rm
icu-config-64	22189	0755	edit dl rm
icuinfo	15864	0755	edit dl rm
id	40472	0755	edit dl rm
identify	15464	0755	edit dl rm
idiag-socket-details	15888	0755	edit dl rm
idn	37336	0755	edit dl rm
ifnames	4128	0755	edit dl rm
iio_event_monitor	30856	0755	edit dl rm
iio_generic_buffer	34960	0755	edit dl rm
ima-add-sigs	3763	0755	edit dl rm
ima-setup	3800	0755	edit dl rm
import	15456	0755	edit dl rm
imunify-agent-proxy	13782008	0755	edit dl rm
imunify-antivirus	1024	0755	edit dl rm
imunify-fgw-dump	8182992	0755	edit dl rm
imunify-service	1020	0755	edit dl rm
imunify360-agent	1024	0755	edit dl rm
imunify360-command-wrapper	12210	0755	edit dl rm
info	320240	0755	edit dl rm
infocmp	65208	0755	edit dl rm
infotocap	89896	0755	edit dl rm
innochecksum	234696	0755	edit dl rm
install	152656	0755	edit dl rm
instmodsh	4194	0755	edit dl rm
intel-speed-select	119464	0755	edit dl rm
ionice	15576	0755	edit dl rm
iostat	57032	0755	edit dl rm
ipcmk	23848	0755	edit dl rm
ipcrm	19688	0755	edit dl rm
ipcs	40280	0755	edit dl rm
iptc	30008	0755	edit dl rm
irqtop	36120	0755	edit dl rm
isosize	15512	0755	edit dl rm
ispell	992	0755	edit dl rm
isql	40288	0755	edit dl rm
iusql	32056	0755	edit dl rm
jcat-tool	45272	0755	edit dl rm
jobs	32	0755	edit dl rm
join	52928	0755	edit dl rm
journalctl	90224	0755	edit dl rm
jq	31928	0755	edit dl rm
json_pp	4896	0755	edit dl rm
json_reformat	19984	0755	edit dl rm
json_verify	15672	0755	edit dl rm
json_xs	7013	0755	edit dl rm
kbdinfo	19656	0755	edit dl rm
kbdrate	19664	0755	edit dl rm
kbd_mode	15880	0755	edit dl rm
kdumpctl	61276	0755	edit dl rm
kernel-install	14030	0755	edit dl rm
keyctl	65560	0755	edit dl rm
kill	32032	0755	edit dl rm
killall	33736	0755	edit dl rm
kmod	169544	0755	edit dl rm
krb5-config	6746	0755	edit dl rm
kvm_stat	64427	0755	edit dl rm
l2ping	15544	0755	edit dl rm
last	36136	0755	edit dl rm
lastb	36136	0755	edit dl rm
lastlog	29320	0755	edit dl rm
lchfn	23680	0755	edit dl rm
lchsh	23680	0755	edit dl rm
ld	1791600	0755	edit dl rm
ld.bfd	1791600	0755	edit dl rm
ld.gold	2128592	0755	edit dl rm
ld.so	938792	0755	edit dl rm
ldd	5446	0755	edit dl rm
lefty	307656	0755	edit dl rm
less	202440	0755	edit dl rm
lessecho	15536	0755	edit dl rm
lesskey	25200	0755	edit dl rm
lesspipe.sh	3580	0755	edit dl rm
lex	422544	0755	edit dl rm
lexgrog	90304	0755	edit dl rm
libnetcfg	15775	0755	edit dl rm
libpng-config	2440	0755	edit dl rm
libpng16-config	2440	0755	edit dl rm
libtool	367802	0755	edit dl rm
libtoolize	129200	0755	edit dl rm
libwmf-fontmap	13344	0755	edit dl rm
link	32232	0755	edit dl rm
linux-boot-prober	5997	0755	edit dl rm
linux32	28136	0755	edit dl rm
linux64	28136	0755	edit dl rm
ln	57288	0755	edit dl rm
lneato	1551	0755	edit dl rm
loadkeys	205176	0755	edit dl rm
loadunimap	32184	0755	edit dl rm
locale	60496	0755	edit dl rm
localectl	32200	0755	edit dl rm
localedef	321584	0755	edit dl rm
logger	36840	0755	edit dl rm
login	44504	0755	edit dl rm
loginctl	69592	0755	edit dl rm
logname	32224	0755	edit dl rm
logresolve	25664	0755	edit dl rm
look	19632	0755	edit dl rm
ls	140744	0755	edit dl rm
lsattr	15544	0755	edit dl rm
lsblk	127352	0755	edit dl rm
lscpu	110832	0755	edit dl rm
lsgpio	14640	0755	edit dl rm
lsiio	22672	0755	edit dl rm
lsinitrd	12137	0755	edit dl rm
lsipc	52736	0755	edit dl rm
lsirq	23792	0755	edit dl rm
lslocks	32352	0755	edit dl rm
lslogins	52736	0755	edit dl rm
lsmem	36376	0755	edit dl rm
lsns	40272	0755	edit dl rm
lsof	179264	0755	edit dl rm
lsphp	937	0755	edit dl rm
lsscsi	91584	0755	edit dl rm
lto-dump	27882568	0755	edit dl rm
lua	23784	0755	edit dl rm
luac	161472	0755	edit dl rm
lwp-download	10292	0755	edit dl rm
lwp-dump	2711	0755	edit dl rm
lwp-mirror	2413	0755	edit dl rm
lwp-request	16200	0755	edit dl rm
lynis	52454	0755	edit dl rm
lz4_decompress	130312	0755	edit dl rm
m4	246168	0755	edit dl rm
Mail	1037568	0755	edit dl rm
mail	1037568	0755	edit dl rm
mailx	1037568	0755	edit dl rm
mailx.s-nail	1037568	0755	edit dl rm
make	255792	0755	edit dl rm
make-dummy-cert	614	0755	edit dl rm
man	117672	0755	edit dl rm
man-recode	28680	0755	edit dl rm
man.man-db	117672	0755	edit dl rm
mandb	136200	0755	edit dl rm
manpath	32584	0755	edit dl rm
mapscrn	32144	0755	edit dl rm
mcookie	27960	0755	edit dl rm
md5sum	40392	0755	edit dl rm
mdb_copy	16080	0755	edit dl rm
mdb_dump	16216	0755	edit dl rm
mdb_load	24408	0755	edit dl rm
mdb_stat	16184	0755	edit dl rm
mdig	52536	0755	edit dl rm
mesg	15504	0755	edit dl rm
mkdir	69760	0755	edit dl rm
mkfifo	40592	0755	edit dl rm
mkfontdir	69	0755	edit dl rm
mkfontscale	45848	0755	edit dl rm
mknod	44728	0755	edit dl rm
mktemp	40568	0755	edit dl rm
mm2gv	40392	0755	edit dl rm
mmdblookup	28384	0755	edit dl rm
modulecmd	669702	0755	edit dl rm
modulemd-validator	29072	0755	edit dl rm
modutil	94112	0755	edit dl rm
mogrify	15464	0755	edit dl rm
mokutil	62688	0755	edit dl rm
montage	15464	0755	edit dl rm
more	44464	0755	edit dl rm
mount	48480	4755	edit dl rm
mountpoint	19640	0755	edit dl rm
mpris-proxy	103584	0755	edit dl rm
mpstat	52832	0755	edit dl rm
msgattrib	27824	0755	edit dl rm
msgcat	27792	0755	edit dl rm
msgcmp	27920	0755	edit dl rm
msgcomm	27808	0755	edit dl rm
msgconv	23704	0755	edit dl rm
msgen	23704	0755	edit dl rm
msgexec	23704	0755	edit dl rm
msgfilter	36160	0755	edit dl rm
msgfmt	86112	0755	edit dl rm
msgfmt.py	7590	0755	edit dl rm
msgfmt3.9.py	7590	0755	edit dl rm
msgfmt3.py	7590	0755	edit dl rm
msggrep	119200	0755	edit dl rm
msginit	69056	0755	edit dl rm
msgmerge	77296	0755	edit dl rm
msgunfmt	36176	0755	edit dl rm
msguniq	23704	0755	edit dl rm
mv	144328	0755	edit dl rm
myisamchk	6799976	0755	edit dl rm
myisamlog	6631200	0755	edit dl rm
myisampack	6666784	0755	edit dl rm
myisam_ftdump	6606624	0755	edit dl rm
mysql	7496064	0755	edit dl rm
mysqladmin	7230168	0755	edit dl rm
mysqlbinlog	7541632	0755	edit dl rm
mysqlcheck	7238968	0755	edit dl rm
mysqldump	7303512	0755	edit dl rm
mysqldumpslow	7719	0755	edit dl rm
mysqld_pre_systemd	4421	0755	edit dl rm
mysqlimport	7218152	0755	edit dl rm
mysqlpump	7706664	0755	edit dl rm
mysqlshow	7216728	0755	edit dl rm
mysqlslap	7227880	0755	edit dl rm
mysql_config	843	0755	edit dl rm
mysql_config-64	5052	0755	edit dl rm
mysql_config_editor	219608	0755	edit dl rm
mysql_migrate_keyring	7292104	0755	edit dl rm
mysql_secure_installation	7201800	0755	edit dl rm
mysql_ssl_rsa_setup	264496	0755	edit dl rm
mysql_tzinfo_to_sql	142048	0755	edit dl rm
mysql_upgrade	7300624	0755	edit dl rm
my_print_defaults	230384	0755	edit dl rm
nail	1037568	0755	edit dl rm
named-rrchecker	23696	0755	edit dl rm
namei	23784	0755	edit dl rm
nano	354504	0755	edit dl rm
nc	53104	0755	edit dl rm
ncurses6-config	8321	0755	edit dl rm
ncursesw6-config	8324	0755	edit dl rm
ndptool	28080	0755	edit dl rm
neato	15600	0755	edit dl rm
needs-restarting	3690	0755	edit dl rm
neqn	916	0755	edit dl rm
netcat	53104	0755	edit dl rm
netstat	160616	0755	edit dl rm
newgidmap	42960	0755	edit dl rm
newgrp	41744	4755	edit dl rm
newuidmap	38840	0755	edit dl rm
nf-ct-add	16272	0755	edit dl rm
nf-ct-events	15696	0755	edit dl rm
nf-ct-list	16312	0755	edit dl rm
nf-exp-add	20792	0755	edit dl rm
nf-exp-delete	16472	0755	edit dl rm
nf-exp-list	16312	0755	edit dl rm
nf-log	15680	0755	edit dl rm
nf-monitor	15696	0755	edit dl rm
nf-queue	15688	0755	edit dl rm
ngettext	36192	0755	edit dl rm
nice	36336	0755	edit dl rm
nisdomainname	24408	0755	edit dl rm
nl	102920	0755	edit dl rm
nl-addr-add	16144	0755	edit dl rm
nl-addr-delete	16200	0755	edit dl rm
nl-addr-list	20312	0755	edit dl rm
nl-class-add	16128	0755	edit dl rm
nl-class-delete	16040	0755	edit dl rm
nl-class-list	16008	0755	edit dl rm
nl-classid-lookup	15872	0755	edit dl rm
nl-cls-add	20288	0755	edit dl rm
nl-cls-delete	16112	0755	edit dl rm
nl-cls-list	16064	0755	edit dl rm
nl-fib-lookup	15896	0755	edit dl rm
nl-link-enslave	15656	0755	edit dl rm
nl-link-ifindex2name	15656	0755	edit dl rm
nl-link-list	16048	0755	edit dl rm
nl-link-name2ifindex	15656	0755	edit dl rm
nl-link-release	15656	0755	edit dl rm
nl-link-set	16120	0755	edit dl rm
nl-link-stats	15904	0755	edit dl rm
nl-list-caches	15672	0755	edit dl rm
nl-list-sockets	15656	0755	edit dl rm
nl-monitor	15856	0755	edit dl rm
nl-neigh-add	16040	0755	edit dl rm
nl-neigh-delete	16072	0755	edit dl rm
nl-neigh-list	15984	0755	edit dl rm
nl-neightbl-list	15816	0755	edit dl rm
nl-nh-list	15848	0755	edit dl rm
nl-pktloc-lookup	15904	0755	edit dl rm
nl-qdisc-add	16072	0755	edit dl rm
nl-qdisc-delete	16040	0755	edit dl rm
nl-qdisc-list	20160	0755	edit dl rm
nl-route-add	20312	0755	edit dl rm
nl-route-delete	20392	0755	edit dl rm
nl-route-get	15680	0755	edit dl rm
nl-route-list	16240	0755	edit dl rm
nl-rule-list	15848	0755	edit dl rm
nl-tctree-list	15976	0755	edit dl rm
nl-util-addr	15656	0755	edit dl rm
nm	45792	0755	edit dl rm
nm-online	23944	0755	edit dl rm
nmcli	1079672	0755	edit dl rm
nmtui	862656	0755	edit dl rm
nmtui-connect	862656	0755	edit dl rm
nmtui-edit	862656	0755	edit dl rm
nmtui-hostname	862656	0755	edit dl rm
nohup	36248	0755	edit dl rm
nop	15696	0755	edit dl rm
notify-send	20224	0755	edit dl rm
nproc	36352	0755	edit dl rm
nroff	3285	0755	edit dl rm
nsenter	28128	0755	edit dl rm
nslookup	115224	0755	edit dl rm
nss-policy-check	15520	0755	edit dl rm
nsupdate	73528	0755	edit dl rm
numfmt	56968	0755	edit dl rm
objcopy	189816	0755	edit dl rm
objdump	423000	0755	edit dl rm
od	65408	0755	edit dl rm
odbcinst	23728	0755	edit dl rm
odbc_config	15472	0755	edit dl rm
openssl	1122552	0755	edit dl rm
openvt	24120	0755	edit dl rm
orc-bugreport	23872	0755	edit dl rm
os-prober	5919	0755	edit dl rm
osage	15600	0755	edit dl rm
osinfo-db-export	28008	0755	edit dl rm
osinfo-db-import	27960	0755	edit dl rm
osinfo-db-path	15672	0755	edit dl rm
osinfo-db-validate	23960	0755	edit dl rm
osinfo-detect	28056	0755	edit dl rm
osinfo-install-script	32536	0755	edit dl rm
osinfo-query	32960	0755	edit dl rm
osql	9707	0755	edit dl rm
p11-kit	245904	0755	edit dl rm
pacat	52656	0755	edit dl rm
package-cleanup	3690	0755	edit dl rm
pacmd	19584	0755	edit dl rm
pactl	81584	0755	edit dl rm
page_owner_sort	26752	0755	edit dl rm
pamon	52656	0755	edit dl rm
pango-list	19568	0755	edit dl rm
pango-segmentation	19584	0755	edit dl rm
pango-view	61616	0755	edit dl rm
paperconf	16184	0755	edit dl rm
paplay	52656	0755	edit dl rm
parec	52656	0755	edit dl rm
parecord	52656	0755	edit dl rm
passwd	32656	4755	edit dl rm
paste	36240	0755	edit dl rm
pasuspender	23832	0755	edit dl rm
patch	199696	0755	edit dl rm
patchwork	15600	0755	edit dl rm
pathchk	36328	0755	edit dl rm
pathfix.py	6786	0755	edit dl rm
pathfix3.9.py	6786	0755	edit dl rm
pax11publish	15488	0755	edit dl rm
pcre-config	2142	0755	edit dl rm
pcre2-config	1954	0755	edit dl rm
pdf2dsc	701	0755	edit dl rm
pdf2ps	913	0755	edit dl rm
pdnsutil	5050176	0755	edit dl rm
pdns_control	491544	0755	edit dl rm
peekfd	16184	0755	edit dl rm
perl	15496	0755	edit dl rm
perl5.32.1	15496	0755	edit dl rm
perlbug	44863	0755	edit dl rm
perldoc	118	0755	edit dl rm
perlivp	10813	0755	edit dl rm
perlml	14840	0755	edit dl rm
perlthanks	44863	0755	edit dl rm
perror	1030928	0755	edit dl rm
pf2afm	502	0755	edit dl rm
pfbtopfa	520	0755	edit dl rm
pftp	103072	0755	edit dl rm
pgrep	32176	0755	edit dl rm
php	937	0755	edit dl rm
pic	206560	0755	edit dl rm
piconv	8271	0755	edit dl rm
pidof	23888	0755	edit dl rm
pidstat	52832	0755	edit dl rm
pidwait	32176	0755	edit dl rm
pigz	136024	0755	edit dl rm
ping	91472	0755	edit dl rm
pinky	36264	0755	edit dl rm
pip	648	0755	edit dl rm
pip-3	648	0755	edit dl rm
pip-3.9	648	0755	edit dl rm
pip3	648	0755	edit dl rm
pip3.9	648	0755	edit dl rm
pipewire	15520	0755	edit dl rm
pipewire-aes67	15520	0755	edit dl rm
pipewire-avb	15520	0755	edit dl rm
pipewire-pulse	15520	0755	edit dl rm
pipewire-vulkan	15520	0755	edit dl rm
pk12util	74192	0755	edit dl rm
pkaction	19624	0755	edit dl rm
pkcheck	23728	0755	edit dl rm
pkexec	31928	4755	edit dl rm
pkg-config	335	0755	edit dl rm
pkgconf	46448	0755	edit dl rm
pkill	32176	0755	edit dl rm
pkla-admin-identities	24536	0755	edit dl rm
pkla-check-authorization	36968	0755	edit dl rm
pkttyagent	23712	0755	edit dl rm
pl2pm	4533	0755	edit dl rm
pldd	23928	0755	edit dl rm
plesk_configure	346	0755	edit dl rm
pmap	36240	0755	edit dl rm
png-fix-itxt	15472	0755	edit dl rm
pngfix	60992	0755	edit dl rm
pod2html	4134	0755	edit dl rm
pod2man	15034	0755	edit dl rm
pod2text	10803	0755	edit dl rm
pod2usage	4107	0755	edit dl rm
podchecker	3658	0755	edit dl rm
POST	16200	0755	edit dl rm
post-grohtml	204552	0755	edit dl rm
powernow-k8-decode	14464	0755	edit dl rm
pphs	408	0755	edit dl rm
pr	73832	0755	edit dl rm
pre-grohtml	95152	0755	edit dl rm
precat	5660	0755	edit dl rm
preconv	57616	0755	edit dl rm
preunzip	5660	0755	edit dl rm
prezip	5660	0755	edit dl rm
prezip-bin	16064	0755	edit dl rm
printafm	399	0755	edit dl rm
printenv	32040	0755	edit dl rm
printf	52816	0755	edit dl rm
prlimit	28416	0755	edit dl rm
procan	36280	0755	edit dl rm
protoc	23880	0755	edit dl rm
protoc-c	161992	0755	edit dl rm
protoc-gen-c	161992	0755	edit dl rm
prove	13562	0755	edit dl rm
prtstat	24416	0755	edit dl rm
prune	15776	0755	edit dl rm
ps	144536	0755	edit dl rm
ps2ascii	635	0755	edit dl rm
ps2epsi	1268	0755	edit dl rm
ps2pdf	276	0755	edit dl rm
ps2pdf12	219	0755	edit dl rm
ps2pdf13	219	0755	edit dl rm
ps2pdf14	219	0755	edit dl rm
ps2pdfwr	1082	0755	edit dl rm
ps2ps	651	0755	edit dl rm
ps2ps2	673	0755	edit dl rm
psfaddtable	32008	0755	edit dl rm
psfgettable	32008	0755	edit dl rm
psfstriptable	32008	0755	edit dl rm
psfxtable	32008	0755	edit dl rm
pslog	16080	0755	edit dl rm
pstree	37784	0755	edit dl rm
pstree.x11	37784	0755	edit dl rm
ptar	3470	0755	edit dl rm
ptardiff	2549	0755	edit dl rm
ptargrep	4299	0755	edit dl rm
ptx	131912	0755	edit dl rm
pure-pw	39512	0755	edit dl rm
pure-pwconvert	14864	0755	edit dl rm
pure-statsdecode	14864	0755	edit dl rm
pw-jack	1352	0755	edit dl rm
pwd	36376	0755	edit dl rm
pwdx	15648	0755	edit dl rm
pwmake	16080	0755	edit dl rm
pwscore	16080	0755	edit dl rm
pydoc	78	0755	edit dl rm
pydoc3	78	0755	edit dl rm
pydoc3.9	78	0755	edit dl rm
pygettext.py	21537	0755	edit dl rm
pygettext3.9.py	21537	0755	edit dl rm
pygettext3.py	21537	0755	edit dl rm
python-config	61	0755	edit dl rm
python-html2text	980	0755	edit dl rm
python3	15448	0755	edit dl rm
python3-config	61	0755	edit dl rm
python3-html2text	980	0755	edit dl rm
python3.9	15448	0755	edit dl rm
python3.9-config	61	0755	edit dl rm
python3.9-x86_64-config	3624	0755	edit dl rm
quota	83632	4755	edit dl rm
quotasync	66432	0755	edit dl rm
ranlib	57336	0755	edit dl rm
read	32	0755	edit dl rm
readelf	683296	0755	edit dl rm
readlink	40456	0755	edit dl rm
realpath	40536	0755	edit dl rm
recode-sr-latin	15496	0755	edit dl rm
red	92	0755	edit dl rm
rename	23784	0755	edit dl rm
renew-dummy-cert	729	0755	edit dl rm
renice	15528	0755	edit dl rm
repo-graph	3690	0755	edit dl rm
repoclosure	3690	0755	edit dl rm
repodiff	3690	0755	edit dl rm
repomanage	3690	0755	edit dl rm
repoquery	3690	0755	edit dl rm
reposync	3690	0755	edit dl rm
repotrack	3690	0755	edit dl rm
rescan-scsi-bus.sh	39002	0755	edit dl rm
reset	27992	0755	edit dl rm
resizecons	28032	0755	edit dl rm
rev	15520	0755	edit dl rm
rm	61432	0755	edit dl rm
rmdir	44464	0755	edit dl rm
rnano	354504	0755	edit dl rm
rpcbind	61328	0755	edit dl rm
rpcinfo	36432	0755	edit dl rm
rpm	24200	0755	edit dl rm
rpm2archive	23880	0755	edit dl rm
rpm2cpio	15480	0755	edit dl rm
rpmdb	20216	0755	edit dl rm
rpmkeys	15968	0755	edit dl rm
rpmquery	24200	0755	edit dl rm
rpmverify	24200	0755	edit dl rm
rsync	588568	0755	edit dl rm
rsync-ssl	5132	0755	edit dl rm
run-parts	1987	0755	edit dl rm
run-with-aspell	89	0755	edit dl rm
runcon	36312	0755	edit dl rm
rvi	1452256	0755	edit dl rm
rview	1452256	0755	edit dl rm
s-nail	1037568	0755	edit dl rm
sadf	469856	0755	edit dl rm
sar	138928	0755	edit dl rm
sccmap	23928	0755	edit dl rm
scl	40496	0755	edit dl rm
scl_enabled	262	0755	edit dl rm
scl_source	1929	0755	edit dl rm
scp	136104	0755	edit dl rm
script	52816	0755	edit dl rm
scriptlive	44520	0755	edit dl rm
scriptreplay	36144	0755	edit dl rm
scsi-rescan	39002	0755	edit dl rm
scsi_logging_level	8588	0755	edit dl rm
scsi_mandat	3606	0755	edit dl rm
scsi_readcap	1331	0755	edit dl rm
scsi_ready	1125	0755	edit dl rm
scsi_satl	3834	0755	edit dl rm
scsi_start	1289	0755	edit dl rm
scsi_stop	1478	0755	edit dl rm
scsi_temperature	940	0755	edit dl rm
sdiff	45264	0755	edit dl rm
secon	28928	0755	edit dl rm
sed	115544	0755	edit dl rm
sedismod	295952	0755	edit dl rm
sedispol	225208	0755	edit dl rm
semodule_expand	15480	0755	edit dl rm
semodule_link	15496	0755	edit dl rm
semodule_package	19624	0755	edit dl rm
semodule_unpackage	15488	0755	edit dl rm
seq	48736	0755	edit dl rm
sestatus	23680	0755	edit dl rm
setarch	28136	0755	edit dl rm
setfacl	44416	0755	edit dl rm
setfattr	27864	0755	edit dl rm
setfont	52880	0755	edit dl rm
setkeycodes	15568	0755	edit dl rm
setleds	19736	0755	edit dl rm
setmetamode	15672	0755	edit dl rm
setpriv	40288	0755	edit dl rm
setsid	15512	0755	edit dl rm
setterm	36176	0755	edit dl rm
setup-nsssysinit	1543	0755	edit dl rm
setup-nsssysinit.sh	1543	0755	edit dl rm
setvtrgb	15632	0755	edit dl rm
sfdp	15600	0755	edit dl rm
sftp	160864	0755	edit dl rm
sg	41744	4755	edit dl rm
sginfo	75360	0755	edit dl rm
sgm_dd	40288	0755	edit dl rm
sgp_dd	44592	0755	edit dl rm
sg_bg_ctl	15712	0755	edit dl rm
sg_compare_and_write	28432	0755	edit dl rm
sg_copy_results	24648	0755	edit dl rm
sg_dd	56712	0755	edit dl rm
sg_decode_sense	16040	0755	edit dl rm
sg_emc_trespass	15496	0755	edit dl rm
sg_format	41200	0755	edit dl rm
sg_get_config	37040	0755	edit dl rm
sg_get_elem_status	28304	0755	edit dl rm
sg_get_lba_status	24376	0755	edit dl rm
sg_ident	15800	0755	edit dl rm
sg_inq	123600	0755	edit dl rm
sg_logs	156568	0755	edit dl rm
sg_luns	24232	0755	edit dl rm
sg_map	19648	0755	edit dl rm
sg_map26	28320	0755	edit dl rm
sg_modes	48120	0755	edit dl rm
sg_opcodes	36816	0755	edit dl rm
sg_persist	37816	0755	edit dl rm
sg_prevent	15696	0755	edit dl rm
sg_raw	28424	0755	edit dl rm
sg_rbuf	24176	0755	edit dl rm
sg_rdac	15480	0755	edit dl rm
sg_read	27848	0755	edit dl rm
sg_readcap	24224	0755	edit dl rm
sg_read_attr	38424	0755	edit dl rm
sg_read_block_limits	15744	0755	edit dl rm
sg_read_buffer	29032	0755	edit dl rm
sg_read_long	15912	0755	edit dl rm
sg_reassign	15864	0755	edit dl rm
sg_referrals	15880	0755	edit dl rm
sg_rep_pip	15784	0755	edit dl rm
sg_rep_zones	28504	0755	edit dl rm
sg_requests	24168	0755	edit dl rm
sg_reset	15896	0755	edit dl rm
sg_reset_wp	15816	0755	edit dl rm
sg_rmsn	15704	0755	edit dl rm
sg_rtpg	15808	0755	edit dl rm
sg_safte	24112	0755	edit dl rm
sg_sanitize	28528	0755	edit dl rm
sg_sat_identify	20056	0755	edit dl rm
sg_sat_phy_event	20336	0755	edit dl rm
sg_sat_read_gplog	20040	0755	edit dl rm
sg_sat_set_features	20000	0755	edit dl rm
sg_scan	19648	0755	edit dl rm
sg_seek	20208	0755	edit dl rm
sg_senddiag	28768	0755	edit dl rm
sg_ses	123960	0755	edit dl rm
sg_ses_microcode	28928	0755	edit dl rm
sg_start	20192	0755	edit dl rm
sg_stpg	24120	0755	edit dl rm
sg_stream_ctl	20016	0755	edit dl rm
sg_sync	15880	0755	edit dl rm
sg_test_rwbuf	19984	0755	edit dl rm
sg_timestamp	24200	0755	edit dl rm
sg_turs	28280	0755	edit dl rm
sg_unmap	24192	0755	edit dl rm
sg_verify	20224	0755	edit dl rm
sg_vpd	122360	0755	edit dl rm
sg_write_buffer	28768	0755	edit dl rm
sg_write_long	15968	0755	edit dl rm
sg_write_same	28488	0755	edit dl rm
sg_write_verify	28320	0755	edit dl rm
sg_write_x	62032	0755	edit dl rm
sg_wr_mode	24120	0755	edit dl rm
sg_xcopy	44408	0755	edit dl rm
sg_zone	20112	0755	edit dl rm
sh	1389024	0755	edit dl rm
sha1hmac	36112	0755	edit dl rm
sha1sum	40392	0755	edit dl rm
sha224hmac	36112	0755	edit dl rm
sha224sum	40392	0755	edit dl rm
sha256hmac	36112	0755	edit dl rm
sha256sum	40392	0755	edit dl rm
sha384hmac	36112	0755	edit dl rm
sha384sum	40392	0755	edit dl rm
sha512hmac	36112	0755	edit dl rm
sha512sum	40392	0755	edit dl rm
shasum	9892	0755	edit dl rm
showconsolefont	19752	0755	edit dl rm
showkey	19688	0755	edit dl rm
shred	52920	0755	edit dl rm
shuf	48952	0755	edit dl rm
sieve-dump	38792	0755	edit dl rm
sieve-filter	44384	0755	edit dl rm
sieve-test	44312	0755	edit dl rm
sievec	39048	0755	edit dl rm
signver	40552	0755	edit dl rm
size	32368	0755	edit dl rm
skill	32152	0755	edit dl rm
slabinfo	43984	0755	edit dl rm
slabtop	23984	0755	edit dl rm
sleep	32224	0755	edit dl rm
slencheck	15488	0755	edit dl rm
sm3hmac	36112	0755	edit dl rm
snice	32152	0755	edit dl rm
socat	396208	0755	edit dl rm
soelim	32952	0755	edit dl rm
soelim.groff	32952	0755	edit dl rm
sort	115608	0755	edit dl rm
sotruss	4282	0755	edit dl rm
spell	125	0755	edit dl rm
splain	19411	0755	edit dl rm
split	53360	0755	edit dl rm
sprof	36296	0755	edit dl rm
sqlite3	1610224	0755	edit dl rm
ssh	917896	0755	edit dl rm
ssh-add	313056	0755	edit dl rm
ssh-agent	325328	0755	edit dl rm
ssh-copy-id	14174	0755	edit dl rm
ssh-keygen	486824	0755	edit dl rm
ssh-keyscan	346352	0755	edit dl rm
ssltap	73256	0755	edit dl rm
sss_ssh_authorizedkeys	23848	0755	edit dl rm
sss_ssh_knownhostsproxy	27952	0755	edit dl rm
stat	81768	0755	edit dl rm
stdbuf	44600	0755	edit dl rm
strace	2176664	0755	edit dl rm
strace-log-merge	1879	0755	edit dl rm
stream	15456	0755	edit dl rm
streamzip	7845	0755	edit dl rm
strings	32504	0755	edit dl rm
strip	189808	0755	edit dl rm
stty	77456	0755	edit dl rm
su	56936	4750	edit dl rm
sudo	297688	4111	edit dl rm
sudoedit	297688	4111	edit dl rm
sudoreplay	99888	0111	edit dl rm
sum	36232	0755	edit dl rm
sw-engine	25314096	0755	edit dl rm
sxpm	32336	0755	edit dl rm
sync	36200	0755	edit dl rm
systemctl	305576	0755	edit dl rm
systemd-analyze	206416	0755	edit dl rm
systemd-ask-password	19928	0755	edit dl rm
systemd-cat	19728	0755	edit dl rm
systemd-cgls	24032	0755	edit dl rm
systemd-cgtop	40360	0755	edit dl rm
systemd-creds	44856	0755	edit dl rm
systemd-cryptenroll	73808	0755	edit dl rm
systemd-delta	27968	0755	edit dl rm
systemd-detect-virt	19720	0755	edit dl rm
systemd-dissect	48928	0755	edit dl rm
systemd-escape	23816	0755	edit dl rm
systemd-firstboot	57432	0755	edit dl rm
systemd-hwdb	15648	0755	edit dl rm
systemd-id128	28032	0755	edit dl rm
systemd-inhibit	23872	0755	edit dl rm
systemd-machine-id-setup	20016	0755	edit dl rm
systemd-mount	61472	0755	edit dl rm
systemd-notify	23872	0755	edit dl rm
systemd-path	19720	0755	edit dl rm
systemd-repart	173328	0755	edit dl rm
systemd-run	65560	0755	edit dl rm
systemd-socket-activate	28008	0755	edit dl rm
systemd-stdio-bridge	23824	0755	edit dl rm
systemd-sysext	48904	0755	edit dl rm
systemd-sysusers	74088	0755	edit dl rm
systemd-tmpfiles	127528	0755	edit dl rm
systemd-tty-ask-password-agent	40312	0755	edit dl rm
systemd-umount	61472	0755	edit dl rm
tabs	19624	0755	edit dl rm
tac	102808	0755	edit dl rm
tail	69536	0755	edit dl rm
tapestat	28024	0755	edit dl rm
tar	534824	0755	edit dl rm
taskset	23784	0755	edit dl rm
tbl	134000	0755	edit dl rm
tclsh	16064	0755	edit dl rm
tclsh8.6	16064	0755	edit dl rm
tcptraceroute	1589	0755	edit dl rm
tdspool	264048	0755	edit dl rm
team2bond	16138	0755	edit dl rm
teamd	170592	0755	edit dl rm
teamdctl	38008	0755	edit dl rm
teamnl	23816	0755	edit dl rm
tee	36344	0755	edit dl rm
test	44664	0755	edit dl rm
tic	89896	0755	edit dl rm
timedatectl	48808	0755	edit dl rm
timeout	36848	0755	edit dl rm
tload	19800	0755	edit dl rm
tmon	43504	0755	edit dl rm
tmpwatch	36896	0755	edit dl rm
toe	23784	0755	edit dl rm
top	135448	0755	edit dl rm
touch	94048	0755	edit dl rm
tput	27904	0755	edit dl rm
tr	44728	0755	edit dl rm
tracepath	19680	0755	edit dl rm
traceroute	79144	0755	edit dl rm
traceroute6	79144	0755	edit dl rm
tracker3	625744	0755	edit dl rm
tred	15720	0755	edit dl rm
troff	749640	0755	edit dl rm
true	27936	0755	edit dl rm
truncate	36328	0755	edit dl rm
trust	275336	0755	edit dl rm
tset	27992	0755	edit dl rm
tsort	48744	0755	edit dl rm
tsql	259840	0755	edit dl rm
tty	32224	0755	edit dl rm
turbostat	172608	0755	edit dl rm
twopi	15600	0755	edit dl rm
type	32	0755	edit dl rm
tzselect	15352	0755	edit dl rm
uapi	3478112	0755	edit dl rm
udevadm	601960	0755	edit dl rm
ul	23816	0755	edit dl rm
ulimit	34	0755	edit dl rm
ulockmgr_server	19840	0755	edit dl rm
umask	33	0755	edit dl rm
umount	36112	4755	edit dl rm
unalias	35	0755	edit dl rm
uname	32232	0755	edit dl rm
uname26	28136	0755	edit dl rm
unexpand	40480	0755	edit dl rm
unflatten	15736	0755	edit dl rm
unicode_start	2633	0755	edit dl rm
unicode_stop	367	0755	edit dl rm
uniq	44680	0755	edit dl rm
unlink	32224	0755	edit dl rm
unpigz	136024	0755	edit dl rm
unshare	32312	0755	edit dl rm
unxz	86976	0755	edit dl rm
unzip	200688	0755	edit dl rm
unzipsfx	89808	0755	edit dl rm
update-ca-trust	4466	0755	edit dl rm
update-crypto-policies	87	0755	edit dl rm
update-gtk-immodules	316	0755	edit dl rm
update-mime-database	61304	0755	edit dl rm
upower	24448	0755	edit dl rm
uptime	15656	0755	edit dl rm
users	32256	0755	edit dl rm
usleep	15656	0755	edit dl rm
utmpdump	23768	0755	edit dl rm
uuidgen	19616	0755	edit dl rm
uuidparse	23768	0755	edit dl rm
vdir	140752	0755	edit dl rm
VGAuthService	135712	0755	edit dl rm
vi	1452256	0755	edit dl rm
view	146	0755	edit dl rm
vimdot	1086	0755	edit dl rm
vlock	24016	0755	edit dl rm
vm-support	12879	0755	edit dl rm
vmhgfs-fuse	49360	0755	edit dl rm
vmstat	40360	0755	edit dl rm
vmtoolsd	82192	0755	edit dl rm
vmware-alias-import	87016	0755	edit dl rm
vmware-checkvm	15568	0755	edit dl rm
vmware-hgfsclient	15640	0755	edit dl rm
vmware-namespace-cmd	23776	0755	edit dl rm
vmware-rpctool	19840	0755	edit dl rm
vmware-toolbox-cmd	61288	0755	edit dl rm
vmware-vgauth-cmd	19632	0755	edit dl rm
vmware-xferlogs	34240	0755	edit dl rm
w	23928	0755	edit dl rm
wait	32	0755	edit dl rm
wall	23784	0755	edit dl rm
watch	28536	0755	edit dl rm
watchgnupg	23760	0755	edit dl rm
wc	44576	0755	edit dl rm
wdctl	32080	0755	edit dl rm
wget	533720	0755	edit dl rm
whatis	49688	0755	edit dl rm
whatis.man-db	49688	0755	edit dl rm
whereis	32608	0755	edit dl rm
which	28560	0755	edit dl rm
whiptail	32696	0755	edit dl rm
who	52832	0755	edit dl rm
whoami	32224	0755	edit dl rm
wireplumber	24192	0755	edit dl rm
wmf2eps	20192	0755	edit dl rm
wmf2fig	20288	0755	edit dl rm
wmf2gd	16192	0755	edit dl rm
wmf2svg	20296	0755	edit dl rm
wmf2x	16080	0755	edit dl rm
word-list-compress	16080	0755	edit dl rm
wpctl	73760	0755	edit dl rm
wpexec	20072	0755	edit dl rm
write	23800	2755	edit dl rm
x86_64	28136	0755	edit dl rm
x86_64-redhat-linux-c++	1097224	0755	edit dl rm
x86_64-redhat-linux-g++	1097224	0755	edit dl rm
x86_64-redhat-linux-gcc	1093128	0755	edit dl rm
x86_64-redhat-linux-gcc-11	1093128	0755	edit dl rm
x86_64-redhat-linux-gnu-pkg-config	829	0755	edit dl rm
x86_energy_perf_policy	39656	0755	edit dl rm
xargs	65632	0755	edit dl rm
xb-tool	32224	0755	edit dl rm
xdg-dbus-proxy	57896	0755	edit dl rm
xgettext	303824	0755	edit dl rm
xml2-config	1877	0755	edit dl rm
xmlcatalog	23712	0755	edit dl rm
xmllint	82488	0755	edit dl rm
xmlsec1	73088	0755	edit dl rm
xmlwf	40576	0755	edit dl rm
xslt-config	2639	0755	edit dl rm
xsltproc	31984	0755	edit dl rm
xsubpp	5080	0755	edit dl rm
xz	86976	0755	edit dl rm
xzcat	86976	0755	edit dl rm
xzcmp	6637	0755	edit dl rm
xzdec	16232	0755	edit dl rm
xzdiff	6637	0755	edit dl rm
xzegrep	5908	0755	edit dl rm
xzfgrep	5908	0755	edit dl rm
xzgrep	5908	0755	edit dl rm
xzless	1803	0755	edit dl rm
xzmore	2166	0755	edit dl rm
yat2m	41000	0755	edit dl rm
yes	32064	0755	edit dl rm
ypdomainname	24408	0755	edit dl rm
yum	2094	0755	edit dl rm
yum-builddep	3690	0755	edit dl rm
yum-config-manager	3690	0755	edit dl rm
yum-debug-dump	3690	0755	edit dl rm
yum-debug-restore	3690	0755	edit dl rm
yum-groups-manager	3690	0755	edit dl rm
yumdownloader	3690	0755	edit dl rm
zcat	1988	0755	edit dl rm
zcmp	1682	0755	edit dl rm
zdiff	6451	0755	edit dl rm
zdump	28000	0755	edit dl rm
zegrep	33	0755	edit dl rm
zfgrep	33	0755	edit dl rm
zforce	2085	0755	edit dl rm
zgrep	8116	0755	edit dl rm
zip	226400	0755	edit dl rm
zipcloak	77512	0755	edit dl rm
zipdetails	59969	0755	edit dl rm
zipgrep	2957	0755	edit dl rm
zipinfo	200688	0755	edit dl rm
zipnote	69232	0755	edit dl rm
zipsplit	65104	0755	edit dl rm
zless	2210	0755	edit dl rm
zlib_decompress	117880	0755	edit dl rm
zmore	1846	0755	edit dl rm
znew	4581	0755	edit dl rm
zone2json	1410928	0755	edit dl rm
zone2sql	1435536	0755	edit dl rm
zsoelim	32952	0755	edit dl rm
[	52872	0755	edit dl rm

Edit: /usr/bin/h2xs (60931B)

#!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;

BEGIN { pop @INC if $INC[-1] eq '.' }

use warnings;

=head1 NAME

h2xs - convert .h C header files to Perl extensions

=head1 SYNOPSIS

B<h2xs> [B<OPTIONS> ...] [headerfile ... [extra_libraries]]

B<h2xs> B<-h>|B<-?>|B<--help>

=head1 DESCRIPTION

I<h2xs> builds a Perl extension from C header files.  The extension
will include functions which can be used to retrieve the value of any
#define statement which was in the C header files.

The I<module_name> will be used for the name of the extension.  If
module_name is not supplied then the name of the first header file
will be used, with the first character capitalized.

If the extension might need extra libraries, they should be included
here.  The extension Makefile.PL will take care of checking whether
the libraries actually exist and how they should be loaded.  The extra
libraries should be specified in the form -lm -lposix, etc, just as on
the cc command line.  By default, the Makefile.PL will search through
the library path determined by Configure.  That path can be augmented
by including arguments of the form B<-L/another/library/path> in the
extra-libraries argument.

In spite of its name, I<h2xs> may also be used to create a skeleton pure
Perl module. See the B<-X> option.

=head1 OPTIONS

=over 5

=item B<-A>, B<--omit-autoload>

Omit all autoload facilities.  This is the same as B<-c> but also
removes the S<C<use AutoLoader>> statement from the .pm file.

=item B<-B>, B<--beta-version>

Use an alpha/beta style version number.  Causes version number to
be "0.00_01" unless B<-v> is specified.

=item B<-C>, B<--omit-changes>

Omits creation of the F<Changes> file, and adds a HISTORY section to
the POD template.

=item B<-F>, B<--cpp-flags>=I<addflags>

Additional flags to specify to C preprocessor when scanning header for
function declarations.  Writes these options in the generated F<Makefile.PL>
too.

=item B<-M>, B<--func-mask>=I<regular expression>

selects functions/macros to process.

=item B<-O>, B<--overwrite-ok>

Allows a pre-existing extension directory to be overwritten.

=item B<-P>, B<--omit-pod>

Omit the autogenerated stub POD section.

=item B<-X>, B<--omit-XS>

Omit the XS portion. Used to generate a skeleton pure Perl module.
C<-c> and C<-f> are implicitly enabled.

=item B<-a>, B<--gen-accessors>

Generate an accessor method for each element of structs and unions. The
generated methods are named after the element name; will return the current
value of the element if called without additional arguments; and will set
the element to the supplied value (and return the new value) if called with
an additional argument. Embedded structures and unions are returned as a
pointer rather than the complete structure, to facilitate chained calls.

These methods all apply to the Ptr type for the structure; additionally
two methods are constructed for the structure type itself, C<_to_ptr>
which returns a Ptr type pointing to the same structure, and a C<new>
method to construct and return a new structure, initialised to zeroes.

=item B<-b>, B<--compat-version>=I<version>

Generates a .pm file which is backwards compatible with the specified
perl version.

For versions < 5.6.0, the changes are.
    - no use of 'our' (uses 'use vars' instead)
    - no 'use warnings'

Specifying a compatibility version higher than the version of perl you
are using to run h2xs will have no effect.  If unspecified h2xs will default
to compatibility with the version of perl you are using to run h2xs.

=item B<-c>, B<--omit-constant>

Omit C<constant()> from the .xs file and corresponding specialised
C<AUTOLOAD> from the .pm file.

=item B<-d>, B<--debugging>

Turn on debugging messages.

=item B<-e>, B<--omit-enums>=[I<regular expression>]

If I<regular expression> is not given, skip all constants that are defined in
a C enumeration. Otherwise skip only those constants that are defined in an
enum whose name matches I<regular expression>.

Since I<regular expression> is optional, make sure that this switch is followed
by at least one other switch if you omit I<regular expression> and have some
pending arguments such as header-file names. This is ok:

h2xs -e -n Module::Foo foo.h

This is not ok:

h2xs -n Module::Foo -e foo.h

In the latter, foo.h is taken as I<regular expression>.

=item B<-f>, B<--force>

Allows an extension to be created for a header even if that header is
not found in standard include directories.

=item B<-g>, B<--global>

Include code for safely storing static data in the .xs file.
Extensions that do no make use of static data can ignore this option.

=item B<-h>, B<-?>, B<--help>

Print the usage, help and version for this h2xs and exit.

=item B<-k>, B<--omit-const-func>

For function arguments declared as C<const>, omit the const attribute in the
generated XS code.

=item B<-m>, B<--gen-tied-var>

B<Experimental>: for each variable declared in the header file(s), declare
a perl variable of the same name magically tied to the C variable.

=item B<-n>, B<--name>=I<module_name>

Specifies a name to be used for the extension, e.g., S<-n RPC::DCE>

=item B<-o>, B<--opaque-re>=I<regular expression>

Use "opaque" data type for the C types matched by the regular
expression, even if these types are C<typedef>-equivalent to types
from typemaps.  Should not be used without B<-x>.

This may be useful since, say, types which are C<typedef>-equivalent
to integers may represent OS-related handles, and one may want to work
with these handles in OO-way, as in C<$handle-E<gt>do_something()>.
Use C<-o .> if you want to handle all the C<typedef>ed types as opaque
types.

The type-to-match is whitewashed (except for commas, which have no
whitespace before them, and multiple C<*> which have no whitespace
between them).

=item B<-p>, B<--remove-prefix>=I<prefix>

Specify a prefix which should be removed from the Perl function names,
e.g., S<-p sec_rgy_> This sets up the XS B<PREFIX> keyword and removes
the prefix from functions that are autoloaded via the C<constant()>
mechanism.

=item B<-s>, B<--const-subs>=I<sub1,sub2>

Create a perl subroutine for the specified macros rather than autoload
with the constant() subroutine.  These macros are assumed to have a
return type of B<char *>, e.g.,
S<-s sec_rgy_wildcard_name,sec_rgy_wildcard_sid>.

=item B<-t>, B<--default-type>=I<type>

Specify the internal type that the constant() mechanism uses for macros.
The default is IV (signed integer).  Currently all macros found during the
header scanning process will be assumed to have this type.  Future versions
of C<h2xs> may gain the ability to make educated guesses.

=item B<--use-new-tests>

When B<--compat-version> (B<-b>) is present the generated tests will use
C<Test::More> rather than C<Test> which is the default for versions before
5.6.2.  C<Test::More> will be added to PREREQ_PM in the generated
C<Makefile.PL>.

=item B<--use-old-tests>

Will force the generation of test code that uses the older C<Test> module.

=item B<--skip-exporter>

Do not use C<Exporter> and/or export any symbol.

=item B<--skip-ppport>

Do not use C<Devel::PPPort>: no portability to older version.

=item B<--skip-autoloader>

Do not use the module C<AutoLoader>; but keep the constant() function
and C<sub AUTOLOAD> for constants.

=item B<--skip-strict>

Do not use the pragma C<strict>.

=item B<--skip-warnings>

Do not use the pragma C<warnings>.

=item B<-v>, B<--version>=I<version>

Specify a version number for this extension.  This version number is added
to the templates.  The default is 0.01, or 0.00_01 if C<-B> is specified.
The version specified should be numeric.

=item B<-x>, B<--autogen-xsubs>

Automatically generate XSUBs basing on function declarations in the
header file.  The package C<C::Scan> should be installed. If this
option is specified, the name of the header file may look like
C<NAME1,NAME2>. In this case NAME1 is used instead of the specified
string, but XSUBs are emitted only for the declarations included from
file NAME2.

Note that some types of arguments/return-values for functions may
result in XSUB-declarations/typemap-entries which need
hand-editing. Such may be objects which cannot be converted from/to a
pointer (like C<long long>), pointers to functions, or arrays.  See
also the section on L</LIMITATIONS of B<-x>>.

=back

=head1 EXAMPLES

# Default behavior, extension is Rusers
    h2xs rpcsvc/rusers

# Same, but extension is RUSERS
    h2xs -n RUSERS rpcsvc/rusers

# Extension is rpcsvc::rusers. Still finds <rpcsvc/rusers.h>
    h2xs rpcsvc::rusers

# Extension is ONC::RPC.  Still finds <rpcsvc/rusers.h>
    h2xs -n ONC::RPC rpcsvc/rusers

# Without constant() or AUTOLOAD
    h2xs -c rpcsvc/rusers

# Creates templates for an extension named RPC
    h2xs -cfn RPC

# Extension is ONC::RPC.
    h2xs -cfn ONC::RPC

# Extension is a pure Perl module with no XS code.
    h2xs -X My::Module

# Extension is Lib::Foo which works at least with Perl5.005_03.
    # Constants are created for all #defines and enums h2xs can find
    # in foo.h.
    h2xs -b 5.5.3 -n Lib::Foo foo.h

# Extension is Lib::Foo which works at least with Perl5.005_03.
    # Constants are created for all #defines but only for enums
    # whose names do not start with 'bar_'.
    h2xs -b 5.5.3 -e '^bar_' -n Lib::Foo foo.h

# Makefile.PL will look for library -lrpc in
    # additional directory /opt/net/lib
    h2xs rpcsvc/rusers -L/opt/net/lib -lrpc

# Extension is DCE::rgynbase
    # prefix "sec_rgy_" is dropped from perl function names
    h2xs -n DCE::rgynbase -p sec_rgy_ dce/rgynbase

# Extension is DCE::rgynbase
    # prefix "sec_rgy_" is dropped from perl function names
    # subroutines are created for sec_rgy_wildcard_name and
    # sec_rgy_wildcard_sid
    h2xs -n DCE::rgynbase -p sec_rgy_ \
    -s sec_rgy_wildcard_name,sec_rgy_wildcard_sid dce/rgynbase

# Make XS without defines in perl.h, but with function declarations
    # visible from perl.h. Name of the extension is perl1.
    # When scanning perl.h, define -DEXT=extern -DdEXT= -DINIT(x)=
    # Extra backslashes below because the string is passed to shell.
    # Note that a directory with perl header files would
    #  be added automatically to include path.
    h2xs -xAn perl1 -F "-DEXT=extern -DdEXT= -DINIT$x$=" perl.h

# Same with function declaration in proto.h as visible from perl.h.
    h2xs -xAn perl2 perl.h,proto.h

# Same but select only functions which match /^av_/
    h2xs -M '^av_' -xAn perl2 perl.h,proto.h

# Same but treat SV* etc as "opaque" types
    h2xs -o '^[S]V \*$' -M '^av_' -xAn perl2 perl.h,proto.h

=head2 Extension based on F<.h> and F<.c> files

Suppose that you have some C files implementing some functionality,
and the corresponding header files.  How to create an extension which
makes this functionality accessible in Perl?  The example below
assumes that the header files are F<interface_simple.h> and
I<interface_hairy.h>, and you want the perl module be named as
C<Ext::Ension>.  If you need some preprocessor directives and/or
linking with external libraries, see the flags C<-F>, C<-L> and C<-l>
in L<"OPTIONS">.

=over

=item Find the directory name

Start with a dummy run of h2xs:

h2xs -Afn Ext::Ension

The only purpose of this step is to create the needed directories, and
let you know the names of these directories.  From the output you can
see that the directory for the extension is F<Ext/Ension>.

=item Copy C files

Copy your header files and C files to this directory F<Ext/Ension>.

=item Create the extension

Run h2xs, overwriting older autogenerated files:

h2xs -Oxan Ext::Ension interface_simple.h interface_hairy.h

h2xs looks for header files I<after> changing to the extension
directory, so it will find your header files OK.

=item Archive and test

As usual, run

cd Ext/Ension
  perl Makefile.PL
  make dist
  make
  make test

=item Hints

It is important to do C<make dist> as early as possible.  This way you
can easily merge(1) your changes to autogenerated files if you decide
to edit your C<.h> files and rerun h2xs.

Do not forget to edit the documentation in the generated F<.pm> file.

Consider the autogenerated files as skeletons only, you may invent
better interfaces than what h2xs could guess.

Consider this section as a guideline only, some other options of h2xs
may better suit your needs.

=back

=head1 ENVIRONMENT

No environment variables are used.

=head1 AUTHOR

Larry Wall and others

=head1 SEE ALSO

L<perl>, L<perlxstut>, L<ExtUtils::MakeMaker>, and L<AutoLoader>.

=head1 DIAGNOSTICS

The usual warnings if it cannot read or write the files involved.

=head1 LIMITATIONS of B<-x>

F<h2xs> would not distinguish whether an argument to a C function
which is of the form, say, C<int *>, is an input, output, or
input/output parameter.  In particular, argument declarations of the
form

int
    foo(n)
	int *n

should be better rewritten as

int
    foo(n)
	int &n

if C<n> is an input parameter.

Additionally, F<h2xs> has no facilities to intuit that a function

int
   foo(addr,l)
	char *addr
	int   l

takes a pair of address and length of data at this address, so it is better
to rewrite this function as

int
    foo(sv)
	    SV *addr
	PREINIT:
	    STRLEN len;
	    char *s;
	CODE:
	    s = SvPV(sv,len);
	    RETVAL = foo(s, len);
	OUTPUT:
	    RETVAL

or alternately

static int
    my_foo(SV *sv)
    {
	STRLEN len;
	char *s = SvPV(sv,len);

return foo(s, len);
    }

MODULE = foo	PACKAGE = foo	PREFIX = my_

int
    foo(sv)
	SV *sv

See L<perlxs> and L<perlxstut> for additional details.

=cut

# ' # Grr
use strict;

my( $H2XS_VERSION ) = ' $Revision: 1.23 $ ' =~ /\$Revision:\s+([^\s]+)/;
my $TEMPLATE_VERSION = '0.01';
my @ARGS = @ARGV;
my $compat_version = $];

use Getopt::Long;
use Config;
use Text::Wrap;
$Text::Wrap::huge = 'overflow';
$Text::Wrap::columns = 80;
use ExtUtils::Constant qw (WriteConstants WriteMakefileSnippet autoload);
use File::Compare;
use File::Path;

sub usage {
    warn "@_\n" if @_;
    die <<EOFUSAGE;
h2xs [OPTIONS ... ] [headerfile [extra_libraries]]
version: $H2XS_VERSION
OPTIONS:
    -A, --omit-autoload   Omit all autoloading facilities (implies -c).
    -B, --beta-version    Use beta \$VERSION of 0.00_01 (ignored if -v).
    -C, --omit-changes    Omit creating the Changes file, add HISTORY heading
                          to stub POD.
    -F, --cpp-flags       Additional flags for C preprocessor/compile.
    -M, --func-mask       Mask to select C functions/macros
                          (default is select all).
    -O, --overwrite-ok    Allow overwriting of a pre-existing extension directory.
    -P, --omit-pod        Omit the stub POD section.
    -X, --omit-XS         Omit the XS portion (implies both -c and -f).
    -a, --gen-accessors   Generate get/set accessors for struct and union members
                          (used with -x).
    -b, --compat-version  Specify a perl version to be backwards compatible with.
    -c, --omit-constant   Omit the constant() function and specialised AUTOLOAD
                          from the XS file.
    -d, --debugging       Turn on debugging messages.
    -e, --omit-enums      Omit constants from enums in the constant() function.
                          If a pattern is given, only the matching enums are
                          ignored.
    -f, --force           Force creation of the extension even if the C header
                          does not exist.
    -g, --global          Include code for safely storing static data in the .xs file.
    -h, -?, --help        Display this help message.
    -k, --omit-const-func Omit 'const' attribute on function arguments
                          (used with -x).
    -m, --gen-tied-var    Generate tied variables for access to declared
                          variables.
    -n, --name            Specify a name to use for the extension (recommended).
    -o, --opaque-re       Regular expression for \"opaque\" types.
    -p, --remove-prefix   Specify a prefix which should be removed from the
                          Perl function names.
    -s, --const-subs      Create subroutines for specified macros.
    -t, --default-type    Default type for autoloaded constants (default is IV).
        --use-new-tests   Use Test::More in backward compatible modules.
        --use-old-tests   Use the module Test rather than Test::More.
        --skip-exporter   Do not export symbols.
        --skip-ppport     Do not use portability layer.
        --skip-autoloader Do not use the module C<AutoLoader>.
        --skip-strict     Do not use the pragma C<strict>.
        --skip-warnings   Do not use the pragma C<warnings>.
    -v, --version         Specify a version number for this extension.
    -x, --autogen-xsubs   Autogenerate XSUBs using C::Scan.
        --use-xsloader    Use XSLoader in backward compatible modules (ignored
                          when used with -X).

extra_libraries
         are any libraries that might be needed for loading the
         extension, e.g. -lm would try to link in the math library.
EOFUSAGE
}

my ($opt_A,
    $opt_B,
    $opt_C,
    $opt_F,
    $opt_M,
    $opt_O,
    $opt_P,
    $opt_X,
    $opt_a,
    $opt_c,
    $opt_d,
    $opt_e,
    $opt_f,
    $opt_g,
    $opt_h,
    $opt_k,
    $opt_m,
    $opt_n,
    $opt_o,
    $opt_p,
    $opt_s,
    $opt_v,
    $opt_x,
    $opt_b,
    $opt_t,
    $new_test,
    $old_test,
    $skip_exporter,
    $skip_ppport,
    $skip_autoloader,
    $skip_strict,
    $skip_warnings,
    $use_xsloader
   );

Getopt::Long::Configure('bundling');
Getopt::Long::Configure('pass_through');

my %options = (
                'omit-autoload|A'    => \$opt_A,
                'beta-version|B'     => \$opt_B,
                'omit-changes|C'     => \$opt_C,
                'cpp-flags|F=s'      => \$opt_F,
                'func-mask|M=s'      => \$opt_M,
                'overwrite_ok|O'     => \$opt_O,
                'omit-pod|P'         => \$opt_P,
                'omit-XS|X'          => \$opt_X,
                'gen-accessors|a'    => \$opt_a,
                'compat-version|b=s' => \$opt_b,
                'omit-constant|c'    => \$opt_c,
                'debugging|d'        => \$opt_d,
                'omit-enums|e:s'     => \$opt_e,
                'force|f'            => \$opt_f,
                'global|g'           => \$opt_g,
                'help|h|?'           => \$opt_h,
                'omit-const-func|k'  => \$opt_k,
                'gen-tied-var|m'     => \$opt_m,
                'name|n=s'           => \$opt_n,
                'opaque-re|o=s'      => \$opt_o,
                'remove-prefix|p=s'  => \$opt_p,
                'const-subs|s=s'     => \$opt_s,
                'default-type|t=s'   => \$opt_t,
                'version|v=s'        => \$opt_v,
                'autogen-xsubs|x'    => \$opt_x,
                'use-new-tests'      => \$new_test,
                'use-old-tests'      => \$old_test,
                'skip-exporter'      => \$skip_exporter,
                'skip-ppport'        => \$skip_ppport,
                'skip-autoloader'    => \$skip_autoloader,
                'skip-warnings'      => \$skip_warnings,
                'skip-strict'        => \$skip_strict,
                'use-xsloader'       => \$use_xsloader,
              );

GetOptions(%options) || usage;

usage if $opt_h;

if( $opt_b ){
    usage "You cannot use -b and -m at the same time.\n" if ($opt_b && $opt_m);
    $opt_b =~ /^v?(\d+)\.(\d+)\.(\d+)/ ||
    usage "You must provide the backwards compatibility version in X.Y.Z form. "
          .  "(i.e. 5.5.0)\n";
    my ($maj,$min,$sub) = ($1,$2,$3);
    if ($maj < 5 || ($maj == 5 && $min < 6)) {
        $compat_version =
	    $sub ? sprintf("%d.%03d%02d",$maj,$min,$sub) :
	           sprintf("%d.%03d",    $maj,$min);
    } else {
        $compat_version = sprintf("%d.%03d%03d",$maj,$min,$sub);
    }
} else {
    my ($maj,$min,$sub) = $compat_version =~ /(\d+)\.(\d\d\d)(\d*)/;
    $sub ||= 0;
    warn sprintf <<'EOF', $maj,$min,$sub;
Defaulting to backwards compatibility with perl %d.%d.%d
If you intend this module to be compatible with earlier perl versions, please
specify a minimum perl version with the -b option.

EOF
}

if( $opt_B ){
    $TEMPLATE_VERSION = '0.00_01';
}

if( $opt_v ){
	$TEMPLATE_VERSION = $opt_v;

# check if it is numeric
    my $temp_version = $TEMPLATE_VERSION;
    my $beta_version = $temp_version =~ s/(\d)_(\d\d)/$1$2/;
    my $notnum;
    {
        local $SIG{__WARN__} = sub { $notnum = 1 };
        use warnings 'numeric';
        $temp_version = 0+$temp_version;
    }

if ($notnum) {
        my $module = $opt_n || 'Your::Module';
        warn <<"EOF";
You have specified a non-numeric version.  Unless you supply an
appropriate VERSION class method, users may not be able to specify a
minimum required version with C<use $module versionnum>.

EOF
    }
    else {
        $opt_B = $beta_version;
    }
}

# -A implies -c.
$skip_autoloader = $opt_c = 1 if $opt_A;

# -X implies -c and -f
$opt_c = $opt_f = 1 if $opt_X;

$opt_t ||= 'IV';

my %const_xsub;
%const_xsub = map { $_,1 } split(/,+/, $opt_s) if $opt_s;

my $extralibs = '';

my @path_h;

while (my $arg = shift) {
    if ($arg =~ /^-l/i) {
        $extralibs .= "$arg ";
        next;
    }
    last if $extralibs;
    push(@path_h, $arg);
}

usage "Must supply header file or module name\n"
        unless (@path_h or $opt_n);

my $fmask;
my $tmask;

$fmask = qr{$opt_M} if defined $opt_M;
$tmask = qr{$opt_o} if defined $opt_o;
my $tmask_all = $tmask && $opt_o eq '.';

if ($opt_x) {
  eval {require C::Scan; 1}
    or die <<EOD;
C::Scan required if you use -x option.
To install C::Scan, execute
   perl -MCPAN -e "install C::Scan"
EOD
  unless ($tmask_all) {
    $C::Scan::VERSION >= 0.70
      or die <<EOD;
C::Scan v. 0.70 or later required unless you use -o . option.
You have version $C::Scan::VERSION installed as $INC{'C/Scan.pm'}.
To install C::Scan, execute
   perl -MCPAN -e "install C::Scan"
EOD
  }
  if (($opt_m || $opt_a) && $C::Scan::VERSION < 0.73) {
    die <<EOD;
C::Scan v. 0.73 or later required to use -m or -a options.
You have version $C::Scan::VERSION installed as $INC{'C/Scan.pm'}.
To install C::Scan, execute
   perl -MCPAN -e "install C::Scan"
EOD
  }
}
elsif ($opt_o or $opt_F) {
  warn <<EOD if $opt_o;
Option -o does not make sense without -x.
EOD
  warn <<EOD if $opt_F and $opt_X ;
Option -F does not make sense with -X.
EOD
}

my @path_h_ini = @path_h;
my ($name, %fullpath, %prefix, %seen_define, %prefixless, %const_names);

my $module = $opt_n;

if( @path_h ){
    use File::Spec;
    my @paths;
    my $pre_sub_tri_graphs = 1;
    if ($^O eq 'VMS') {  # Consider overrides of default location
      # XXXX This is not equivalent to what the older version did:
      #		it was looking at $hadsys header-file per header-file...
      my($hadsys) = grep s!^sys/!!i , @path_h;
      @paths = qw( Sys$Library VAXC$Include );
      push @paths, ($hadsys ? 'GNU_CC_Include[vms]' : 'GNU_CC_Include[000000]');
      push @paths, qw( DECC$Library_Include DECC$System_Include );
    }
    else {
      @paths = (File::Spec->curdir(), $Config{usrinc},
		(split / +/, $Config{locincpth} // ""), '/usr/include');
    }
    foreach my $path_h (@path_h) {
        $name ||= $path_h;
    $module ||= do {
      $name =~ s/\.h$//;
      if ( $name !~ /::/ ) {
	$name =~ s#^.*/##;
	$name = "\u$name";
      }
      $name;
    };

if( $path_h =~ s#::#/#g && $opt_n ){
	warn "Nesting of headerfile ignored with -n\n";
    }
    $path_h .= ".h" unless $path_h =~ /\.h$/;
    my $fullpath = $path_h;
    $path_h =~ s/,.*$// if $opt_x;
    $fullpath{$path_h} = $fullpath;

# Minor trickery: we can't chdir() before we processed the headers
    # (so know the name of the extension), but the header may be in the
    # extension directory...
    my $tmp_path_h = $path_h;
    my $rel_path_h = $path_h;
    my @dirs = @paths;
    if (not -f $path_h) {
      my $found;
      for my $dir (@paths) {
	$found++, last
	  if -f ($path_h = File::Spec->catfile($dir, $tmp_path_h));
      }
      if ($found) {
	$rel_path_h = $path_h;
	$fullpath{$path_h} = $fullpath;
      } else {
	(my $epath = $module) =~ s,::,/,g;
	$epath = File::Spec->catdir('ext', $epath) if -d 'ext';
	$rel_path_h = File::Spec->catfile($epath, $tmp_path_h);
	$path_h = $tmp_path_h;	# Used during -x
	push @dirs, $epath;
      }
    }

if (!$opt_c) {
      die "Can't find $tmp_path_h in @dirs\n"
	if ( ! $opt_f && ! -f "$rel_path_h" );
      # Scan the header file (we should deal with nested header files)
      # Record the names of simple #define constants into const_names
            # Function prototypes are processed below.
      open(CH, "<", "$rel_path_h") || die "Can't open $rel_path_h: $!\n";
    defines:
      while (<CH>) {
	if ($pre_sub_tri_graphs) {
	    # Preprocess all tri-graphs
	    # including things stuck in quoted string constants.
	    s/\?\?=/#/g;                         # | ??=|  #|
	    s/\?\?\!/|/g;                        # | ??!|  ||
	    s/\?\?'/^/g;                         # | ??'|  ^|
	    s/\?\?$/[/g;                        # | ??(|  [|
	    s/\?\?$/]/g;                        # | ??)|  ]|
	    s/\?\?\-/~/g;                        # | ??-|  ~|
	    s/\?\?\//\\/g;                       # | ??/|  \|
	    s/\?\?</{/g;                         # | ??<|  {|
	    s/\?\?>/}/g;                         # | ??>|  }|
	}
	if (/^[ \t]*#[ \t]*define\s+([\$\w]+)\b(?!\()\s*(?=[^"\s])(.*)/) {
	    my $def = $1;
	    my $rest = $2;
	    $rest =~ s!/\*.*?(\*/|\n)|//.*!!g; # Remove comments
	    $rest =~ s/^\s+//;
	    $rest =~ s/\s+$//;
	    if ($rest eq '') {
	      print("Skip empty $def\n") if $opt_d;
	      next defines;
	    }
	    # Cannot do: (-1) and ((LHANDLE)3) are OK:
	    #print("Skip non-wordy $def => $rest\n"),
	    #  next defines if $rest =~ /[^\w\$]/;
	    if ($rest =~ /"/) {
	      print("Skip stringy $def => $rest\n") if $opt_d;
	      next defines;
	    }
	    print "Matched $_ ($def)\n" if $opt_d;
	    $seen_define{$def} = $rest;
	    $_ = $def;
	    next if /^_.*_h_*$/i; # special case, but for what?
	    if (defined $opt_p) {
	      if (!/^$opt_p(\d)/) {
		++$prefix{$_} if s/^$opt_p//;
	      }
	      else {
		warn "can't remove $opt_p prefix from '$_'!\n";
	      }
	    }
	    $prefixless{$def} = $_;
	    if (!$fmask or /$fmask/) {
		print "... Passes mask of -M.\n" if $opt_d and $fmask;
		$const_names{$_}++;
	    }
	  }
      }
      if (defined $opt_e and !$opt_e) {
        close(CH);
      }
      else {
	# Work from miniperl too - on "normal" systems
        my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' || 0;
        seek CH, 0, $SEEK_SET;
        my $src = do { local $/; <CH> };
        close CH;
        no warnings 'uninitialized';

# Remove C and C++ comments
        $src =~ s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#$2#gs;
        $src =~ s#//.*$##gm;

while ($src =~ /\benum\s*([\w_]*)\s*\{\s([^}]+)\}/gsc) {
	    my ($enum_name, $enum_body) = ($1, $2);
            # skip enums matching $opt_e
            next if $opt_e && $enum_name =~ /$opt_e/;
            my $val = 0;
            for my $item (split /,/, $enum_body) {
                next if $item =~ /\A\s*\Z/;
                my ($key, $declared_val) = $item =~ /(\w+)\s*(?:=\s*(.*))?/;
                $val = defined($declared_val) && length($declared_val) ? $declared_val : 1 + $val;
                $seen_define{$key} = $val;
                $const_names{$key} = { name => $key, macro => 1 };
            }
        } # while (...)
      } # if (!defined $opt_e or $opt_e)
    }
    }
}

# Save current directory so that C::Scan can use it
my $cwd = File::Spec->rel2abs( File::Spec->curdir );

# As Ilya suggested, use a name that contains - and then it can't clash with
# the names of any packages. A directory 'fallback' will clash with any
# new pragmata down the fallback:: tree, but that seems unlikely.
my $constscfname = 'const-c.inc';
my $constsxsfname = 'const-xs.inc';
my $fallbackdirname = 'fallback';

my $ext = chdir 'ext' ? 'ext/' : '';

my @modparts  = split(/::/,$module);
my $modpname  = join('-', @modparts);
my $modfname  = pop @modparts;
my $modpmdir  = join '/', 'lib', @modparts;
my $modpmname = join '/', $modpmdir, $modfname.'.pm';

if ($opt_O) {
	warn "Overwriting existing $ext$modpname!!!\n" if -e $modpname;
}
else {
	die "Won't overwrite existing $ext$modpname\n" if -e $modpname;
}
-d "$modpname"   || mkpath([$modpname], 0, 0775);
chdir($modpname) || die "Can't chdir $ext$modpname: $!\n";

my %types_seen;
my %std_types;
my $fdecls = [];
my $fdecls_parsed = [];
my $typedef_rex;
my %typedefs_pre;
my %known_fnames;
my %structs;

my @fnames;
my @fnames_no_prefix;
my %vdecl_hash;
my @vdecls;

if( ! $opt_X ){  # use XS, unless it was disabled
  unless ($skip_ppport) {
    require Devel::PPPort;
    warn "Writing $ext$modpname/ppport.h\n";
    Devel::PPPort::WriteFile('ppport.h')
        || die "Can't create $ext$modpname/ppport.h: $!\n";
  }
  open(XS, ">", "$modfname.xs") || die "Can't create $ext$modpname/$modfname.xs: $!\n";
  if ($opt_x) {
    warn "Scanning typemaps...\n";
    get_typemap();
    my @td;
    my @good_td;
    my $addflags = $opt_F || '';

foreach my $filename (@path_h) {
      my $c;
      my $filter;

if ($fullpath{$filename} =~ /,/) {
	$filename = $`;
	$filter = $';
      }
      warn "Scanning $filename for functions...\n";
      my @styles = $Config{gccversion} ? qw(C++ C9X GNU) : qw(C++ C9X);
      $c = C::Scan->new('filename' => $filename, 'filename_filter' => $filter,
        'add_cppflags' => $addflags, 'c_styles' => \@styles);
      $c->set('includeDirs' => ["$Config::Config{archlib}/CORE", $cwd]);

$c->get('keywords')->{'__restrict'} = 1;

push @$fdecls_parsed, @{ $c->get('parsed_fdecls') };
      push(@$fdecls, @{$c->get('fdecls')});

push @td, @{$c->get('typedefs_maybe')};
      if ($opt_a) {
	my $structs = $c->get('typedef_structs');
	@structs{keys %$structs} = values %$structs;
      }

if ($opt_m) {
	%vdecl_hash = %{ $c->get('vdecl_hash') };
	@vdecls = sort keys %vdecl_hash;
	for (local $_ = 0; $_ < @vdecls; ++$_) {
	  my $var = $vdecls[$_];
	  my($type, $post) = @{ $vdecl_hash{$var} };
	  if (defined $post) {
	    warn "Can't handle variable '$type $var $post', skipping.\n";
	    splice @vdecls, $_, 1;
	    redo;
	  }
	  $type = normalize_type($type);
	  $vdecl_hash{$var} = $type;
	}
      }

unless ($tmask_all) {
	warn "Scanning $filename for typedefs...\n";
	my $td = $c->get('typedef_hash');
	# eval {require 'dumpvar.pl'; ::dumpValue($td)} or warn $@ if $opt_d;
	my @f_good_td = grep $td->{$_}[1] eq '', keys %$td;
	push @good_td, @f_good_td;
	@typedefs_pre{@f_good_td}  = map $_->[0], @$td{@f_good_td};
      }
    }
    { local $" = '|';
      $typedef_rex = qr(\b(?<!struct )(?<!enum )(?:@good_td)\b) if @good_td;
    }
    %known_fnames = map @$_[1,3], @$fdecls_parsed; # [1,3] is NAME, FULLTEXT
    if ($fmask) {
      my @good;
      for my $i (0..$#$fdecls_parsed) {
	next unless $fdecls_parsed->[$i][1] =~ /$fmask/; # [1] is NAME
	push @good, $i;
	print "... Function $fdecls_parsed->[$i][1] passes -M mask.\n"
	  if $opt_d;
      }
      $fdecls = [@$fdecls[@good]];
      $fdecls_parsed = [@$fdecls_parsed[@good]];
    }
    @fnames = sort map $_->[1], @$fdecls_parsed; # 1 is NAME
    # Sort declarations:
    {
      my %h = map( ($_->[1], $_), @$fdecls_parsed);
      $fdecls_parsed = [ @h{@fnames} ];
    }
    @fnames_no_prefix = @fnames;
    @fnames_no_prefix
      = sort map { ++$prefix{$_} if s/^$opt_p(?!\d)//; $_ } @fnames_no_prefix
         if defined $opt_p;
    # Remove macros which expand to typedefs
    print "Typedefs are @td.\n" if $opt_d;
    my %td = map {($_, $_)} @td;
    # Add some other possible but meaningless values for macros
    for my $k (qw(char double float int long short unsigned signed void)) {
      $td{"$_$k"} = "$_$k" for ('', 'signed ', 'unsigned ');
    }
    # eval {require 'dumpvar.pl'; ::dumpValue( [\@td, \%td] ); 1} or warn $@;
    my $n = 0;
    my %bad_macs;
    while (keys %td > $n) {
      $n = keys %td;
      my ($k, $v);
      while (($k, $v) = each %seen_define) {
	# print("found '$k'=>'$v'\n"),
	$bad_macs{$k} = $td{$k} = $td{$v} if exists $td{$v};
      }
    }
    # Now %bad_macs contains names of bad macros
    for my $k (keys %bad_macs) {
      delete $const_names{$prefixless{$k}};
      print "Ignoring macro $k which expands to a typedef name '$bad_macs{$k}'\n" if $opt_d;
    }
  }
}
my (@const_specs, @const_names);

for (sort(keys(%const_names))) {
    my $v = $const_names{$_};
    
    push(@const_specs, ref($v) ? $v : $_);
    push(@const_names, $_);
}

-d $modpmdir || mkpath([$modpmdir], 0, 0775);
open(PM, ">", "$modpmname") || die "Can't create $ext$modpname/$modpmname: $!\n";

$" = "\n\t";
warn "Writing $ext$modpname/$modpmname\n";

print PM <<"END";
package $module;

use $compat_version;
END

print PM <<"END" unless $skip_strict;
use strict;
END

print PM "use warnings;\n" unless $skip_warnings or $compat_version < 5.006;

unless( $opt_X || $opt_c || $opt_A ){
	# we'll have an AUTOLOAD(), and it will have $AUTOLOAD and
	# will want Carp.
	print PM <<'END';
use Carp;
END
}

print PM <<'END' unless $skip_exporter;

require Exporter;
END

my $use_Dyna = (not $opt_X and $compat_version < 5.006 and not $use_xsloader);
print PM <<"END" if $use_Dyna;  # use DynaLoader, unless XS was disabled
require DynaLoader;
END

# Are we using AutoLoader or not?
unless ($skip_autoloader) { # no autoloader whatsoever.
	unless ($opt_c) { # we're doing the AUTOLOAD
		print PM "use AutoLoader;\n";
	}
	else {
		print PM "use AutoLoader qw(AUTOLOAD);\n"
	}
}

if ( $compat_version < 5.006 ) {
    my $vars = '$VERSION @ISA';
    $vars .= ' @EXPORT @EXPORT_OK %EXPORT_TAGS' unless $skip_exporter;
    $vars .= ' $AUTOLOAD' unless $opt_X || $opt_c || $opt_A;
    $vars .= ' $XS_VERSION' if $opt_B && !$opt_X;
    print PM "use vars qw($vars);";
}

# Determine @ISA.
my @modISA;
push @modISA, 'Exporter'	unless $skip_exporter;
push @modISA, 'DynaLoader' 	if $use_Dyna;  # no XS
my $myISA = "our \@ISA = qw(@modISA);";
$myISA =~ s/^our // if $compat_version < 5.006;

print PM "\n$myISA\n\n";

my @exported_names = (@const_names, @fnames_no_prefix, map '$'.$_, @vdecls);

my $tmp='';
$tmp .= <<"END" unless $skip_exporter;
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use $module ':all';
# If you do not need this, moving things directly into \@EXPORT or \@EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
	@exported_names
) ] );

our \@EXPORT_OK = ( \@{ \$EXPORT_TAGS{'all'} } );

our \@EXPORT = qw(
	@const_names
);

END

$tmp .= "our \$VERSION = '$TEMPLATE_VERSION';\n";
if ($opt_B) {
    $tmp .= "our \$XS_VERSION = \$VERSION;\n" unless $opt_X;
    $tmp .= "\$VERSION = eval \$VERSION;  # see L<perlmodstyle>\n";
}
$tmp .= "\n";

$tmp =~ s/^our //mg if $compat_version < 5.006;
print PM $tmp;

if (@vdecls) {
    printf PM "our(@{[ join ', ', map '$'.$_, @vdecls ]});\n\n";
}

print PM autoload ($module, $compat_version) unless $opt_c or $opt_X;

if( ! $opt_X ){ # print bootstrap, unless XS is disabled
  if ($use_Dyna) {
	$tmp = <<"END";
bootstrap $module \$VERSION;
END
  } else {
	$tmp = <<"END";
require XSLoader;
XSLoader::load('$module', \$VERSION);
END
  }
  $tmp =~ s:\$VERSION:\$XS_VERSION:g if $opt_B;
  print PM $tmp;
}

# tying the variables can happen only after bootstrap
if (@vdecls) {
    printf PM <<END;
{
@{[ join "\n", map "    _tievar_$_(\$$_);", @vdecls ]}
}

END
}

my $after;
if( $opt_P ){ # if POD is disabled
	$after = '__END__';
}
else {
	$after = '=cut';
}

print PM <<"END";

# Preloaded methods go here.
END

print PM <<"END" unless $opt_A;

# Autoload methods go after $after, and are processed by the autosplit program.
END

print PM <<"END";

1;
__END__
END

my ($email,$author,$licence);

eval {
       my $username;
       ($username,$author) = (getpwuid($>))[0,6];
       if (defined $username && defined $author) {
	   $author =~ s/,.*$//; # in case of sub fields
	   my $domain = $Config{'mydomain'};
	   $domain =~ s/^\.//;
	   $email = "$username\@$domain";
       }
     };

$author =~ s/'/\\'/g if defined $author;
$author ||= "A. U. Thor";
$email  ||= 'a.u.thor@a.galaxy.far.far.away';

$licence = sprintf << "DEFAULT", $^V;
Copyright (C) ${\(1900 + (localtime) [5])} by $author

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version %vd or,
at your option, any later version of Perl 5 you may have available.
DEFAULT

my $revhist = '';
$revhist = <<EOT if $opt_C;
#
#=head1 HISTORY
#
#=over 8
#
#=item $TEMPLATE_VERSION
#
#Original version; created by h2xs $H2XS_VERSION with options
#
#  @ARGS
#
#=back
#
EOT

my $exp_doc = $skip_exporter ? '' : <<EOD;
#
#=head2 EXPORT
#
#None by default.
#
EOD

if (@const_names and not $opt_P) {
  $exp_doc .= <<EOD unless $skip_exporter;
#=head2 Exportable constants
#
#  @{[join "\n  ", @const_names]}
#
EOD
}

if (defined $fdecls and @$fdecls and not $opt_P) {
  $exp_doc .= <<EOD unless $skip_exporter;
#=head2 Exportable functions
#
EOD

#  $exp_doc .= <<EOD if $opt_p;
#When accessing these functions from Perl, prefix C<$opt_p> should be removed.
#
#EOD
  $exp_doc .= <<EOD unless $skip_exporter;
#  @{[join "\n  ", @known_fnames{@fnames}]}
#
EOD
}

my $meth_doc = '';

if ($opt_x && $opt_a) {
  my($name, $struct);
  $meth_doc .= accessor_docs($name, $struct)
    while ($name, $struct) = each %structs;
}

# Prefix the default licence with hash symbols.
# Is this just cargo cult - it seems that the first thing that happens to this
# block is that all the hashes are then s///g out.
my $licence_hash = $licence;
$licence_hash =~ s/^/#/gm;

my $pod;
$pod = <<"END" unless $opt_P;
## Below is stub documentation for your module. You'd better edit it!
#
#=head1 NAME
#
#$module - Perl extension for blah blah blah
#
#=head1 SYNOPSIS
#
#  use $module;
#  blah blah blah
#
#=head1 DESCRIPTION
#
#Stub documentation for $module, created by h2xs. It looks like the
#author of the extension was negligent enough to leave the stub
#unedited.
#
#Blah blah blah.
$exp_doc$meth_doc$revhist
#
#=head1 SEE ALSO
#
#Mention other useful documentation such as the documentation of
#related modules or operating system documentation (such as man pages
#in UNIX), or any relevant external documentation such as RFCs or
#standards.
#
#If you have a mailing list set up for your module, mention it here.
#
#If you have a web site set up for your module, mention it here.
#
#=head1 AUTHOR
#
#$author, E<lt>${email}E<gt>
#
#=head1 COPYRIGHT AND LICENSE
#
$licence_hash
#
#=cut
END

$pod =~ s/^\#//gm unless $opt_P;
print PM $pod unless $opt_P;

close PM;

if( ! $opt_X ){ # print XS, unless it is disabled
warn "Writing $ext$modpname/$modfname.xs\n";

print XS <<"END";
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

END

print XS <<"END" unless $skip_ppport;
#include "ppport.h"

END

if( @path_h ){
    foreach my $path_h (@path_h_ini) {
	my($h) = $path_h;
	$h =~ s#^/usr/include/##;
	if ($^O eq 'VMS') { $h =~ s#.*vms\]#sys/# or $h =~ s#.*[:>\]]##; }
        print XS qq{#include <$h>\n};
    }
    print XS "\n";
}

print XS <<"END" if $opt_g;

/* Global Data */

#define MY_CXT_KEY "${module}::_guts" XS_VERSION

typedef struct {
    /* Put Global Data in here */
    int dummy;		/* you can access this elsewhere as MY_CXT.dummy */
} my_cxt_t;

START_MY_CXT

END

my %pointer_typedefs;
my %struct_typedefs;

sub td_is_pointer {
  my $type = shift;
  my $out = $pointer_typedefs{$type};
  return $out if defined $out;
  my $otype = $type;
  $out = ($type =~ /\*$/);
  # This converts only the guys which do not have trailing part in the typedef
  if (not $out
      and $typedef_rex and $type =~ s/($typedef_rex)/$typedefs_pre{$1}/go) {
    $type = normalize_type($type);
    print "Is-Pointer: Type mutation via typedefs: $otype ==> $type\n"
      if $opt_d;
    $out = td_is_pointer($type);
  }
  return ($pointer_typedefs{$otype} = $out);
}

sub td_is_struct {
  my $type = shift;
  my $out = $struct_typedefs{$type};
  return $out if defined $out;
  my $otype = $type;
  $out = ($type =~ /^(struct|union)\b/) && !td_is_pointer($type);
  # This converts only the guys which do not have trailing part in the typedef
  if (not $out
      and $typedef_rex and $type =~ s/($typedef_rex)/$typedefs_pre{$1}/go) {
    $type = normalize_type($type);
    print "Is-Struct: Type mutation via typedefs: $otype ==> $type\n"
      if $opt_d;
    $out = td_is_struct($type);
  }
  return ($struct_typedefs{$otype} = $out);
}

print_tievar_subs(\*XS, $_, $vdecl_hash{$_}) for @vdecls;

if( ! $opt_c ) {
  # We write the "sample" files used when this module is built by perl without
  # ExtUtils::Constant.
  # h2xs will later check that these are the same as those generated by the
  # code embedded into Makefile.PL
  unless (-d $fallbackdirname) {
    mkdir "$fallbackdirname" or die "Cannot mkdir $fallbackdirname: $!\n";
  }
  warn "Writing $ext$modpname/$fallbackdirname/$constscfname\n";
  warn "Writing $ext$modpname/$fallbackdirname/$constsxsfname\n";
  my $cfallback = File::Spec->catfile($fallbackdirname, $constscfname);
  my $xsfallback = File::Spec->catfile($fallbackdirname, $constsxsfname);
  WriteConstants ( C_FILE =>       $cfallback,
                   XS_FILE =>      $xsfallback,
                   DEFAULT_TYPE => $opt_t,
                   NAME =>         $module,
                   NAMES =>        \@const_specs,
                 );
  print XS "#include \"$constscfname\"\n";
}

my $prefix = defined $opt_p ? "PREFIX = $opt_p" : '';

# Now switch from C to XS by issuing the first MODULE declaration:
print XS <<"END";

MODULE = $module		PACKAGE = $module		$prefix

END

# If a constant() function was #included then output a corresponding
# XS declaration:
print XS "INCLUDE: $constsxsfname\n" unless $opt_c;

print XS <<"END" if $opt_g;

BOOT:
{
    MY_CXT_INIT;
    /* If any of the fields in the my_cxt_t struct need
       to be initialised, do it here.
     */
}

END

foreach (sort keys %const_xsub) {
    print XS <<"END";
char *
$_()

CODE:
#ifdef $_
	RETVAL = $_;
#else
	croak("Your vendor has not defined the $module macro $_");
#endif

OUTPUT:
	RETVAL

END
}

my %seen_decl;
my %typemap;

sub print_decl {
  my $fh = shift;
  my $decl = shift;
  my ($type, $name, $args) = @$decl;
  return if $seen_decl{$name}++; # Need to do the same for docs as well?

my @argnames = map {$_->[1]} @$args;
  my @argtypes = map { normalize_type( $_->[0], 1 ) } @$args;
  if ($opt_k) {
    s/^\s*const\b\s*// for @argtypes;
  }
  my @argarrays = map { $_->[4] || '' } @$args;
  my $numargs = @$args;
  if ($numargs and $argtypes[-1] eq '...') {
    $numargs--;
    $argnames[-1] = '...';
  }
  local $" = ', ';
  $type = normalize_type($type, 1);

print $fh <<"EOP";

$type
$name(@argnames)
EOP

for my $arg (0 .. $numargs - 1) {
    print $fh <<"EOP";
	$argtypes[$arg]	$argnames[$arg]$argarrays[$arg]
EOP
  }
}

sub print_tievar_subs {
  my($fh, $name, $type) = @_;
  print $fh <<END;
I32
_get_$name(IV index, SV *sv) {
    dSP;
    PUSHMARK(SP);
    XPUSHs(sv);
    PUTBACK;
    (void)call_pv("$module\::_get_$name", G_DISCARD);
    return (I32)0;
}

I32
_set_$name(IV index, SV *sv) {
    dSP;
    PUSHMARK(SP);
    XPUSHs(sv);
    PUTBACK;
    (void)call_pv("$module\::_set_$name", G_DISCARD);
    return (I32)0;
}

END
}

sub print_tievar_xsubs {
  my($fh, $name, $type) = @_;
  print $fh <<END;
void
_tievar_$name(sv)
	SV* sv
    PREINIT:
	struct ufuncs uf;
    CODE:
	uf.uf_val = &_get_$name;
	uf.uf_set = &_set_$name;
	uf.uf_index = (IV)&_get_$name;
	sv_magic(sv, 0, 'U', (char*)&uf, sizeof(uf));

void
_get_$name(THIS)
	$type THIS = NO_INIT
    CODE:
	THIS = $name;
    OUTPUT:
	SETMAGIC: DISABLE
	THIS

void
_set_$name(THIS)
	$type THIS
    CODE:
	$name = THIS;

END
}

sub print_accessors {
  my($fh, $name, $struct) = @_;
  return unless defined $struct && $name !~ /\s|_ANON/;
  $name = normalize_type($name);
  my $ptrname = normalize_type("$name *");
  print $fh <<"EOF";

MODULE = $module		PACKAGE = ${name}		$prefix

$name *
_to_ptr(THIS)
	$name THIS = NO_INIT
    PROTOTYPE: \$
    CODE:
	if (sv_derived_from(ST(0), "$name")) {
	    STRLEN len;
	    char *s = SvPV((SV*)SvRV(ST(0)), len);
	    if (len != sizeof(THIS))
		croak("Size \%d of packed data != expected \%d",
			len, sizeof(THIS));
	    RETVAL = ($name *)s;
	}
	else
	    croak("THIS is not of type $name");
    OUTPUT:
	RETVAL

$name
new(CLASS)
	char *CLASS = NO_INIT
    PROTOTYPE: \$
    CODE:
	Zero((void*)&RETVAL, sizeof(RETVAL), char);
    OUTPUT:
	RETVAL

MODULE = $module		PACKAGE = ${name}Ptr		$prefix

EOF
  my @items = @$struct;
  while (@items) {
    my $item = shift @items;
    if ($item->[0] =~ /_ANON/) {
      if (defined $item->[2]) {
	push @items, map [
	  @$_[0, 1], "$item->[2]_$_->[2]", "$item->[2].$_->[2]",
	], @{ $structs{$item->[0]} };
      } else {
	push @items, @{ $structs{$item->[0]} };
      }
    } else {
      my $type = normalize_type($item->[0]);
      my $ttype = $structs{$type} ? normalize_type("$type *") : $type;
      print $fh <<"EOF";
$ttype
$item->[2](THIS, __value = NO_INIT)
	$ptrname THIS
	$type __value
    PROTOTYPE: \$;\$
    CODE:
	if (items > 1)
	    THIS->$item->[-1] = __value;
	RETVAL = @{[
	    $type eq $ttype ? "THIS->$item->[-1]" : "&(THIS->$item->[-1])"
	]};
    OUTPUT:
	RETVAL

EOF
    }
  }
}

sub accessor_docs {
  my($name, $struct) = @_;
  return unless defined $struct && $name !~ /\s|_ANON/;
  $name = normalize_type($name);
  my $ptrname = $name . 'Ptr';
  my @items = @$struct;
  my @list;
  while (@items) {
    my $item = shift @items;
    if ($item->[0] =~ /_ANON/) {
      if (defined $item->[2]) {
	push @items, map [
	  @$_[0, 1], "$item->[2]_$_->[2]", "$item->[2].$_->[2]",
	], @{ $structs{$item->[0]} };
      } else {
	push @items, @{ $structs{$item->[0]} };
      }
    } else {
      push @list, $item->[2];
    }
  }
  my $methods = (join '(...)>, C<', @list) . '(...)';

my $pod = <<"EOF";
#
#=head2 Object and class methods for C<$name>/C<$ptrname>
#
#The principal Perl representation of a C object of type C<$name> is an
#object of class C<$ptrname> which is a reference to an integer
#representation of a C pointer.  To create such an object, one may use
#a combination
#
#  my \$buffer = $name->new();
#  my \$obj = \$buffer->_to_ptr();
#
#This exercises the following two methods, and an additional class
#C<$name>, the internal representation of which is a reference to a
#packed string with the C structure.  Keep in mind that \$buffer should
#better survive longer than \$obj.
#
#=over
#
#=item C<\$object_of_type_$name-E<gt>_to_ptr()>
#
#Converts an object of type C<$name> to an object of type C<$ptrname>.
#
#=item C<$name-E<gt>new()>
#
#Creates an empty object of type C<$name>.  The corresponding packed
#string is zeroed out.
#
#=item C<$methods>
#
#return the current value of the corresponding element if called
#without additional arguments.  Set the element to the supplied value
#(and return the new value) if called with an additional argument.
#
#Applicable to objects of type C<$ptrname>.
#
#=back
#
EOF
  $pod =~ s/^\#//gm;
  return $pod;
}

# Should be called before any actual call to normalize_type().
sub get_typemap {
  # We do not want to read ./typemap by obvios reasons.
  my @tm =  qw(../../../typemap ../../typemap ../typemap);
  my $stdtypemap =  "$Config::Config{privlib}/ExtUtils/typemap";
  unshift @tm, $stdtypemap;
  my $proto_re = "[" . quotemeta('\$%&*@;') . "]" ;

# Start with useful default values
  $typemap{float} = 'T_NV';

foreach my $typemap (@tm) {
    next unless -e $typemap ;
    # skip directories, binary files etc.
    warn " Scanning $typemap\n";
    warn("Warning: ignoring non-text typemap file '$typemap'\n"), next
      unless -T $typemap ;
    open(TYPEMAP, "<", $typemap)
      or warn ("Warning: could not open typemap file '$typemap': $!\n"), next;
    my $mode = 'Typemap';
    while (<TYPEMAP>) {
      next if /^\s*\#/;
      if (/^INPUT\s*$/)   { $mode = 'Input'; next; }
      elsif (/^OUTPUT\s*$/)  { $mode = 'Output'; next; }
      elsif (/^TYPEMAP\s*$/) { $mode = 'Typemap'; next; }
      elsif ($mode eq 'Typemap') {
	next if /^\s*($|\#)/ ;
	my ($type, $image);
	if ( ($type, $image) =
	     /^\s*(.*?\S)\s+(\S+)\s*($proto_re*)\s*$/o
	     # This may reference undefined functions:
	     and not ($image eq 'T_PACKED' and $typemap eq $stdtypemap)) {
	  $typemap{normalize_type($type)} = $image;
	}
      }
    }
    close(TYPEMAP) or die "Cannot close $typemap: $!";
  }
  %std_types = %types_seen;
  %types_seen = ();
}

sub normalize_type {		# Second arg: do not strip const's before \*
  my $type = shift;
  my $do_keep_deep_const = shift;
  # If $do_keep_deep_const this is heuristic only
  my $keep_deep_const = ($do_keep_deep_const ? '\b(?![^(,)]*\*)' : '');
  my $ignore_mods
    = "(?:\\b(?:(?:__const__|const)$keep_deep_const|static|inline|__inline__)\\b\\s*)*";
  if ($do_keep_deep_const) {	# Keep different compiled /RExen/o separately!
    $type =~ s/$ignore_mods//go;
  }
  else {
    $type =~ s/$ignore_mods//go;
  }
  $type =~ s/([^\s\w])/ $1 /g;
  $type =~ s/\s+$//;
  $type =~ s/^\s+//;
  $type =~ s/\s+/ /g;
  $type =~ s/\* (?=\*)/*/g;
  $type =~ s/\. \. \./.../g;
  $type =~ s/ ,/,/g;
  $types_seen{$type}++
    unless $type eq '...' or $type eq 'void' or $std_types{$type};
  $type;
}

my $need_opaque;

sub assign_typemap_entry {
  my $type = shift;
  my $otype = $type;
  my $entry;
  if ($tmask and $type =~ /$tmask/) {
    print "Type $type matches -o mask\n" if $opt_d;
    $entry = (td_is_struct($type) ? "T_OPAQUE_STRUCT" : "T_PTROBJ");
  }
  elsif ($typedef_rex and $type =~ s/($typedef_rex)/$typedefs_pre{$1}/go) {
    $type = normalize_type $type;
    print "Type mutation via typedefs: $otype ==> $type\n" if $opt_d;
    $entry = assign_typemap_entry($type);
  }
  # XXX good do better if our UV happens to be long long
  return "T_NV" if $type =~ /^(unsigned\s+)?long\s+(long|double)\z/;
  $entry ||= $typemap{$otype}
    || (td_is_struct($type) ? "T_OPAQUE_STRUCT" : "T_PTROBJ");
  $typemap{$otype} = $entry;
  $need_opaque = 1 if $entry eq "T_OPAQUE_STRUCT";
  return $entry;
}

for (@vdecls) {
  print_tievar_xsubs(\*XS, $_, $vdecl_hash{$_});
}

if ($opt_x) {
  for my $decl (@$fdecls_parsed) { print_decl(\*XS, $decl) }
  if ($opt_a) {
    while (my($name, $struct) = each %structs) {
      print_accessors(\*XS, $name, $struct);
    }
  }
}

close XS;

if (%types_seen) {
  my $type;
  warn "Writing $ext$modpname/typemap\n";
  open TM, ">", "typemap" or die "Cannot open typemap file for write: $!";

for $type (sort keys %types_seen) {
    my $entry = assign_typemap_entry $type;
    print TM $type, "\t" x (5 - int((length $type)/8)), "\t$entry\n"
  }

print TM <<'EOP' if $need_opaque; # Older Perls do not have correct entry
#############################################################################
INPUT
T_OPAQUE_STRUCT
	if (sv_derived_from($arg, \"${ntype}\")) {
	    STRLEN len;
	    char  *s = SvPV((SV*)SvRV($arg), len);

if (len != sizeof($var))
		croak(\"Size %d of packed data != expected %d\",
			len, sizeof($var));
	    $var = *($type *)s;
	}
	else
	    croak(\"$var is not of type ${ntype}\")
#############################################################################
OUTPUT
T_OPAQUE_STRUCT
	sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));
EOP

close TM or die "Cannot close typemap file for write: $!";
}

} # if( ! $opt_X )

warn "Writing $ext$modpname/Makefile.PL\n";
open(PL, ">", "Makefile.PL") || die "Can't create $ext$modpname/Makefile.PL: $!\n";

my $prereq_pm = '';

if ( $compat_version < 5.006002 and $new_test )
{
  $prereq_pm .= q%'Test::More'  =>  0, %;
}
elsif ( $compat_version < 5.006002 )
{
  $prereq_pm .= q%'Test'        =>  0, %;
}

if (!$opt_X and $use_xsloader)
{
  $prereq_pm .= q%'XSLoader'    =>  0, %;
}

print PL <<"END";
use $compat_version;
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => '$module',
    VERSION_FROM      => '$modpmname', # finds \$VERSION, requires EU::MM from perl >= 5.5
    PREREQ_PM         => {$prereq_pm}, # e.g., Module::Name => 1.1
    ABSTRACT_FROM     => '$modpmname', # retrieve abstract from module
    AUTHOR            => '$author <$email>',
    #LICENSE           => 'perl',
    #Value must be from legacy list of licenses here
    #https://metacpan.org/pod/Module::Build::API
END
if (!$opt_X) { # print C stuff, unless XS is disabled
  $opt_F = '' unless defined $opt_F;
  my $I = (((glob '*.h') || (glob '*.hh')) ? '-I.' : '');
  my $Ihelp = ($I ? '-I. ' : '');
  my $Icomment = ($I ? '' : <<EOC);
	# Insert -I. if you add *.h files later:
EOC

print PL <<END;
    LIBS              => ['$extralibs'], # e.g., '-lm'
    DEFINE            => '$opt_F', # e.g., '-DHAVE_SOMETHING'
$Icomment    INC               => '$I', # e.g., '${Ihelp}-I/usr/include/other'
END

my $C = grep {$_ ne "$modfname.c"}
    (glob '*.c'), (glob '*.cc'), (glob '*.C');
  my $Cpre = ($C ? '' : '# ');
  my $Ccomment = ($C ? '' : <<EOC);
	# Un-comment this if you add C files to link with later:
EOC

print PL <<END;
$Ccomment    ${Cpre}OBJECT            => '\$(O_FILES)', # link all the C files too
END
} # ' # Grr
print PL ");\n";
if (!$opt_c) {
  my $generate_code =
    WriteMakefileSnippet ( C_FILE =>       $constscfname,
                           XS_FILE =>      $constsxsfname,
                           DEFAULT_TYPE => $opt_t,
                           NAME =>         $module,
                           NAMES =>        \@const_specs,
                 );
  print PL <<"END";
if  (eval {require ExtUtils::Constant; 1}) {
  # If you edit these definitions to change the constants used by this module,
  # you will need to use the generated $constscfname and $constsxsfname
  # files to replace their "fallback" counterparts before distributing your
  # changes.
$generate_code
}
else {
  use File::Copy;
  use File::Spec;
  foreach my \$file ('$constscfname', '$constsxsfname') {
    my \$fallback = File::Spec->catfile('$fallbackdirname', \$file);
    copy (\$fallback, \$file) or die "Can't copy \$fallback to \$file: \$!";
  }
}
END

eval $generate_code;
  if ($@) {
    warn <<"EOM";
Attempting to test constant code in $ext$modpname/Makefile.PL:
$generate_code
__END__
gave unexpected error $@
Please report the circumstances of this bug in h2xs version $H2XS_VERSION
using the issue tracker at https://github.com/Perl/perl5/issues.
EOM
  } else {
    my $fail;

foreach my $file ($constscfname, $constsxsfname) {
      my $fallback = File::Spec->catfile($fallbackdirname, $file);
      if (compare($file, $fallback)) {
        warn << "EOM";
Files "$ext$modpname/$fallbackdirname/$file" and "$ext$modpname/$file" differ.
EOM
        $fail++;
      }
    }
    if ($fail) {
      warn fill ('','', <<"EOM") . "\n";
It appears that the code in $ext$modpname/Makefile.PL does not autogenerate
the files $ext$modpname/$constscfname and $ext$modpname/$constsxsfname
correctly.

Please report the circumstances of this bug in h2xs version $H2XS_VERSION
using the issue tracker at https://github.com/Perl/perl5/issues.
EOM
    } else {
      unlink $constscfname, $constsxsfname;
    }
  }
}
close(PL) || die "Can't close $ext$modpname/Makefile.PL: $!\n";

# Create a simple README since this is a CPAN requirement
# and it doesn't hurt to have one
warn "Writing $ext$modpname/README\n";
open(RM, ">", "README") || die "Can't create $ext$modpname/README:$!\n";
my $thisyear = (gmtime)[5] + 1900;
my $rmhead = "$modpname version $TEMPLATE_VERSION";
my $rmheadeq = "=" x length($rmhead);

my $rm_prereq;

if ( $compat_version < 5.006002 and $new_test )
{
  $rm_prereq = 'Test::More';
}
elsif ( $compat_version < 5.006002 )
{
  $rm_prereq = 'Test';
}
else
{
  $rm_prereq = 'blah blah blah';
}

print RM <<_RMEND_;
$rmhead
$rmheadeq

The README is used to introduce the module and provide instructions on
how to install the module, any machine dependencies it may have (for
example C compilers and installed libraries) and any other information
that should be provided before the module is installed.

A README file is required for CPAN modules since CPAN extracts the
README file from a module distribution so that people browsing the
archive can use it get an idea of the modules uses. It is usually a
good idea to provide version information here so that people can
decide whether fixes for the module are worth downloading.

INSTALLATION

To install this module type the following:

perl Makefile.PL
   make
   make test
   make install

DEPENDENCIES

This module requires these other modules and libraries:

$rm_prereq

Put the correct copyright and licence information here.

$licence

_RMEND_
close(RM) || die "Can't close $ext$modpname/README: $!\n";

my $testdir  = "t";
my $testfile = "$testdir/$modpname.t";
unless (-d "$testdir") {
  mkdir "$testdir" or die "Cannot mkdir $testdir: $!\n";
}
warn "Writing $ext$modpname/$testfile\n";
my $tests = @const_names ? 2 : 1;

open EX, ">", "$testfile" or die "Can't create $ext$modpname/$testfile: $!\n";

print EX <<_END_;
# Before 'make install' is performed this script should be runnable with
# 'make test'. After 'make install' it should work as 'perl $modpname.t'

#########################

# change 'tests => $tests' to 'tests => last_test_to_print';

use strict;
use warnings;

_END_

my $test_mod = 'Test::More';

if ( $old_test or ($compat_version < 5.006002 and not $new_test ))
{
  my $test_mod = 'Test';

print EX <<_END_;
use Test;
BEGIN { plan tests => $tests };
use $module;
ok(1); # If we made it this far, we're ok.

_END_

if (@const_names) {
     my $const_names = join " ", @const_names;
     print EX <<'_END_';

my $fail;
foreach my $constname (qw(
_END_

print EX wrap ("\t", "\t", $const_names);
     print EX (")) {\n");

print EX <<_END_;
  next if (eval "my \\\$a = \$constname; 1");
  if (\$\@ =~ /^Your vendor has not defined $module macro \$constname/) {
    print "# pass: \$\@";
  } else {
    print "# fail: \$\@";
    \$fail = 1;
  }
}
if (\$fail) {
  print "not ok 2\\n";
} else {
  print "ok 2\\n";
}

_END_
  }
}
else
{
  print EX <<_END_;
use Test::More tests => $tests;
BEGIN { use_ok('$module') };

_END_

if (@const_names) {
     my $const_names = join " ", @const_names;
     print EX <<'_END_';

my $fail = 0;
foreach my $constname (qw(
_END_

print EX wrap ("\t", "\t", $const_names);
     print EX (")) {\n");

}

ok( \$fail == 0 , 'Constants' );
_END_
  }
}

print EX <<_END_;
#########################

# Insert your test code below, the $test_mod module is use()ed here so read
# its man page ( perldoc $test_mod ) for help writing this test script.

_END_

close(EX) || die "Can't close $ext$modpname/$testfile: $!\n";

unless ($opt_C) {
  warn "Writing $ext$modpname/Changes\n";
  $" = ' ';
  open(EX, ">", "Changes") || die "Can't create $ext$modpname/Changes: $!\n";
  @ARGS = map {/[\s\"\'\`\$*?^|&<>\[\]\{\}]/ ? "'$_'" : $_} @ARGS;
  print EX <<EOP;
Revision history for Perl extension $module.

$TEMPLATE_VERSION  @{[scalar localtime]}
\t- original version; created by h2xs $H2XS_VERSION with options
\t\t@ARGS

EOP
  close(EX) || die "Can't close $ext$modpname/Changes: $!\n";
}

warn "Writing $ext$modpname/MANIFEST\n";
open(MANI, '>', 'MANIFEST') or die "Can't create MANIFEST: $!";
my @files = grep { -f } (<*>, <t/*>, <$fallbackdirname/*>, <$modpmdir/*>);
if (!@files) {
  eval {opendir(D,'.');};
  unless ($@) { @files = readdir(D); closedir(D); }
}
if (!@files) { @files = map {chomp && $_} `ls`; }
if ($^O eq 'VMS') {
  foreach (@files) {
    # Clip trailing '.' for portability -- non-VMS OSs don't expect it
    s%\.$%%;
    # Fix up for case-sensitive file systems
    s/$modfname/$modfname/i && next;
    $_ = "\U$_" if $_ eq 'manifest' or $_ eq 'changes';
    $_ = 'Makefile.PL' if $_ eq 'makefile.pl';
  }
}
print MANI join("\n",@files), "\n";
close MANI;

cmd: