equal
deleted
inserted
replaced
68 |
68 |
69 my $linecount = 0; |
69 my $linecount = 0; |
70 while(my $line = <FILE>) |
70 while(my $line = <FILE>) |
71 { |
71 { |
72 ++$linecount; |
72 ++$linecount; |
73 if($line =~ m/^<whatlog bldinf='(\S+)' mmp='(\S*)' config='\S+'>/) #brittle |
73 if($line =~ m/^<whatlog bldinf='(\S+)' mmp='(\S*)' config='\S*'>/) #brittle |
74 { |
74 { |
75 $bldinf = $1; |
75 $bldinf = $1; |
76 $makefile = $2; |
76 $makefile = $2; |
77 } |
77 } |
78 elsif($line =~ m/^<\/whatlog>/) |
78 elsif($line =~ m/^<\/whatlog>/) |