1*** Lingua-EN-Inflect/lib/Lingua/EN/Inflect.pm.orig Mon Jun 4 17:38:33 2007 2--- Lingua-EN-Inflect/lib/Lingua/EN/Inflect.pm Mon Jun 4 17:38:47 2007 3*************** 4*** 692,698 **** 5 local $SIG{__WARN__} = sub {0}; 6 my $rcfile; 7 8! $rcfile = $INC{'Lingua//EN/Inflect.pm'} || ''; 9 $rcfile =~ s/Inflect.pm$/.inflectrc/; 10 do $rcfile or die "\nBad .inflectrc file ($rcfile):\n\t$@\n" 11 if $rcfile && -r $rcfile && -s $rcfile; 12--- 692,698 ---- 13 local $SIG{__WARN__} = sub {0}; 14 my $rcfile; 15 16! $rcfile = $INC{'Lingua/EN/Inflect.pm'} || ''; 17 $rcfile =~ s/Inflect.pm$/.inflectrc/; 18 do $rcfile or die "\nBad .inflectrc file ($rcfile):\n\t$@\n" 19 if $rcfile && -r $rcfile && -s $rcfile; 20