| # | Line 52 | Line 52 | sub updatelookup { | |
|---|---|---|
| 52 | my $rest=shift; | |
| 53 | my $update=0; | |
| 54 | use File::Copy; | |
| 55 | < | |
| 55 | > | local $_; |
| 56 | use FileHandle; | |
| 57 | my $fhw=FileHandle->new(); | |
| 58 | my $fh=FileHandle->new(); | |
| # | Line 76 | Line 76 | sub updatelookup { | |
| 76 | undef $fhw; | |
| 77 | copy "$filename.wk", $filename or croak "Unable to update file " | |
| 78 | ."$filename $!\n"; | |
| 79 | < | } |
| 79 | > | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |