ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix horrible bugs in safety code!

Browse source
This commit is contained in:
Ward Wouts 2002-01-19 22:14:12 +00:00
parent ff4d7f1210
commit 669fb5b5b8
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
mvwrap/mvwrap
View file

@ -173,8 +173,9 @@ sub check_safety {
my ($i, $j, @danger); my ($i, $j, @danger);
for ( $i=0 ; $i < scalar(@$from) ; $i++ ) { for ( $i=0 ; $i < scalar(@$from) ; $i++ ) {
for ( $j=0; $j < scalar(@$to); $j++ ) { 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, $i;
push @danger, $j;
} }
} }
} }