Some calls to PerlMemShared_alloc() aren't checking the return value.

[perl5.git] / ext / SDBM_File / sdbm / grind

#!/bin/sh
rm -f /tmp/*.dir /tmp/*.pag
awk -e '{
        printf "%s\t", $0
        for (i = 0; i < 40; i++)
                printf "%s.", $0
        printf "\n"
}' < /usr/dict/words | $1 build /tmp/$2