| # | Line 32 | Line 32 | sub updatelookup { | |
|---|---|---|
| 32 | open ( SCRAMWORK, ">$filename.wk" ) or | |
| 33 | croak "Unable to open $filename.wk ".$!."\n"; | |
| 34 | open ( SCRAMUPDATEFILE, $filename ); | |
| 35 | + | print "Searching for ".$key."\n"; |
| 36 | while ( <SCRAMUPDATEFILE> ) { | |
| 37 | if ( $_=~/^\Q$key\E/o ) { | |
| 38 | $update=1; | |
| 39 | print SCRAMWORK $key.$rest."\n"; | |
| 40 | } | |
| 41 | < | print SCRAMWORK $_; |
| 41 | > | else { |
| 42 | > | print SCRAMWORK $_; |
| 43 | > | } |
| 44 | } | |
| 42 | – | |
| 45 | close SCRAMUPDATEFILE; | |
| 46 | if ( $update==0 ) { | |
| 47 | print SCRAMWORK $key.$rest."\n"; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |