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;