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