1
0
mirror of https://github.com/irssi/irssi.git synced 2024-06-16 06:25:24 +00:00
irssi/utils/check-perl-hash.sh
2022-02-19 21:44:10 +01:00

4 lines
250 B
Bash
Executable File

#!/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 }'