From 669fb5b5b86853f8ea6588e58c883198106435f9 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sat, 19 Jan 2002 22:14:12 +0000
Subject: [PATCH] Fix horrible bugs in safety code!

---
 mvwrap/mvwrap | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index f7e631a..e2417ce 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -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;
 			}
 		}
 	}