equal
deleted
inserted
replaced
133 } |
133 } |
134 else |
134 else |
135 { |
135 { |
136 if(-e $left && -e $right) |
136 if(-e $left && -e $right) |
137 { |
137 { |
138 my $leftdiff = 0; |
138 my $leftdiff = 1; |
139 my $rightdiff = 0; |
139 my $rightdiff = 1; |
140 open(DIFF,"diff $left $target|") or die "couldn't execute diff"; |
140 open(DIFF,"fc $left $target|") or die "couldn't execute fc"; |
141 print "diff $left $target\n"; |
141 print "fc $left $target\n"; |
142 |
142 |
143 while(my $line = <DIFF>) |
143 while(my $line = <DIFF>) |
144 { |
144 { |
145 if($line =~ m/\S+/) |
145 |
|
146 if($line =~ m/FC:\sno\sdifferences\sencountered/i) |
146 { |
147 { |
147 $leftdiff = 1; |
148 $leftdiff = 0; |
148 print "\t$line"; |
|
149 } |
149 } |
|
150 print "\t$line"; |
150 } |
151 } |
151 close DIFF; |
152 close DIFF; |
152 |
153 |
153 open(DIFF,"diff $right $target|") or die "couldn't execute diff"; |
154 open(DIFF,"fc $right $target|") or die "couldn't execute fc"; |
154 print "diff $right $target\n"; |
155 print "fc $right $target\n"; |
155 while( my $line = <DIFF>) |
156 while( my $line = <DIFF>) |
156 { |
157 { |
157 if($line =~ m/\S+/) |
158 if($line =~ m/FC:\sno\sdifferences\sencountered/i) |
158 { |
159 { |
159 $rightdiff = 1; |
160 $rightdiff = 0; |
160 print "\t$line"; |
|
161 } |
161 } |
|
162 print "\t$line"; |
162 } |
163 } |
163 close DIFF; |
164 close DIFF; |
164 |
165 |
165 if($leftdiff && !$rightdiff ) |
166 if($leftdiff && !$rightdiff ) |
166 {$ret = "match right";} |
167 {$ret = "match right";} |