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