From 56472b9ea326fac22257921007ede6f84f915d32 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sun, 20 Jan 2002 11:34:44 +0000
Subject: [PATCH] geen onnodige moves maken....

---
 mvwrap/mvwrap | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index e23dc68..91cf585 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -170,16 +170,21 @@ sub check_unique (@target_list){
 # Returns an array of unsafe line numbers
 sub check_safety {
 	my ($from, $to) = @_;
-	my ($i, $j, @danger);
+	my ($i, $j, @danger, @unique, %seen);
+	my ($a, $b);
 	for ( $i=0 ; $i < scalar(@$from) ; $i++ ) {
 		for ( $j=0; $j < scalar(@$to); $j++ ) {
-			if ((chomp($from->[$i]) eq chomp($to->[$j])) && ($i != $j)) {
+			$a = $from->[$i]; chomp($a);
+			$b = $to->[$j];   chomp($b);
+			if (($a eq $b) && ($i != $j)) {
 				push @danger, $i;
 				push @danger, $j;
 			}
 		}
 	}
-	return @danger;
+	%seen = ();
+	@unique = grep { ! $seen{$_} ++ } @danger;
+	return @unique;
 }
 
 # generate random filename, which does not exist