From 63f080d8802bd8e2f3dc74ed8e274e561b823603 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 31 Jul 2007 16:36:38 +0000
Subject: use intersection (thanks perl_checker, I'm lame)

---
 transfugdrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/transfugdrake b/transfugdrake
index 1d3b681..7e6ebfa 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -161,7 +161,7 @@ $wiz->process($in);
 sub step_import {
     my ($stepname) = @_;
     my $step = find { $_->[0] eq $stepname } group_by2(@step_items);
-    my @targets = grep { member($_, @windows_items) } @{$step->[1]};
+    my @targets = intersection(\@windows_items, $step->[1]);
     import_target($windows_disk, $windows_user, $linux_user, $_) foreach @targets;
 }
 
-- 
cgit v1.2.1