mirror of
https://github.com/irssi/irssi.git
synced 2024-11-03 04:27:19 -05:00
4 lines
250 B
Bash
Executable File
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 }'
|