irssi/utils/check-perl-hash.sh

mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
#!/bin/sh
# make sure perl hashes have correct length
find src/perl \( -name '*.c' -o -name '*.xs' \) -exec grep -n hv_store {} + | perl -l -ne 'if (/"(\w+)",\s*(\d+)/ && $2 != length $1) { $X=1; print "Incorrect key length in $_" } END { exit $X }'
good-bye and thanks, autotools 2022-02-18 14:50:37 -05:00			`#!/bin/sh`
			`# make sure perl hashes have correct length`
			`find src/perl \( -name '.c' -o -name '.xs' \) -exec grep -n hv_store {} + \| perl -l -ne 'if (/"(\w+)",\s*(\d+)/ && $2 != length $1) { $X=1; print "Incorrect key length in $_" } END { exit $X }'`