ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Utilities/SCRAMUtils.pm

Comparing COMP/SCRAM/src/Utilities/SCRAMUtils.pm (file contents):
Revision 1.5 by williamc, Tue Apr 13 16:13:38 1999 UTC vs.
Revision 1.7 by williamc, Mon Jul 31 14:04:17 2000 UTC

#	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	>	if ( $_=~/^\Q$key\E/ ) {
39		$update=1;
40		print SCRAMWORK $key.$rest."\n";
41		}
42		else {
43	<	print SCRAMWORK $_;
43	>	print SCRAMWORK $_."\n";
44		}
45		}
46		close SCRAMUPDATEFILE;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines