ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Utilities/SCRAMUtils.pm
(Generate patch)

Comparing COMP/SCRAM/src/Utilities/SCRAMUtils.pm (file contents):
Revision 1.4 by williamc, Tue Mar 23 13:47:27 1999 UTC vs.
Revision 1.7 by williamc, Mon Jul 31 14:04:17 2000 UTC

# Line 12 | Line 12 | use Carp;
12   sub checkfile {
13          my $filename=shift;
14          my $thisfile="";
15 <        $thifile=$ENV{LOCALTOP}."/".$filename;
15 >        $thisfile=$ENV{LOCALTOP}."/".$filename;
16          return $thisfile, if ( -e $thisfile );
17 <        $thifile=$ENV{RELEASETOP}."/".$filename;
17 >        $thisfile=$ENV{RELEASETOP}."/".$filename;
18          return $thisfile, if ( -e $thisfile );
19          return "";
20   }
# 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