Fix horrible bugs in safety code!

This commit is contained in:
Ward Wouts 2002-01-19 22:14:12 +00:00
parent ff4d7f1210
commit 669fb5b5b8

View file

@ -173,8 +173,9 @@ sub check_safety {
my ($i, $j, @danger);
for ( $i=0 ; $i < scalar(@$from) ; $i++ ) {
for ( $j=0; $j < scalar(@$to); $j++ ) {
if (($from->[$i] eq $to->[$j]) && ($i != $j)) {
if ((chomp($from->[$i]) eq chomp($to->[$j])) && ($i != $j)) {
push @danger, $i;
push @danger, $j;
}
}
}