1
0
mirror of https://github.com/irssi/irssi.git synced 2024-07-14 03:04:17 -04:00
irssi/utils/check-perl-hash.sh

4 lines
250 B
Bash
Raw Normal View History

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 }'