Fix horrible bugs in safety code!
This commit is contained in:
parent
ff4d7f1210
commit
669fb5b5b8
1 changed files with 2 additions and 1 deletions
|
|
@ -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;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue