Character in words warning

This code, taken from a specially hacked version of philoload, reads in the textload.cfg file and will throw up a warning if a non-standard $CHARSINWORD variable is set. The last three lines in this code snippet are part of philoload normally, so you know where to put it.

# Let's be obnoxious and throw up a warning for us boneheads if we are loading

# something with non-standard CHARSINWORD -- we've forgotten to check this

# numerous times in the past resulting in messed-up loads.

open TLC, "/Volumes/data/var/lib/philologic/textload.cfg";

while ($tlcline = <TLC>) {

chomp($tlcline);

if ($tlcline =~ /^\$CHARSINWORD/) {

$charsline = $tlcline;

}

}

close TLC;

if ($charsline ne q($CHARSINWORD = "[\&A-Za-z0-9\177-\377][\&A-Za-z0-9\177-\377\_\';]*";)) {

print STDOUT "\n\nWARNING: You are using a non-standard CHARSINWORD setting:\n\n\t" . $charsline;

print STDOUT "\n\nPlease check ";

print STDOUT "/Volumes/data/var/lib/philologic/textload.cfg and make sure this is the setting ";

print STDOUT "that you want.\n\n";

$_ = <STDIN>;

}

&genfilelist;

&genloadcfg;

&makemess;