diff options
| author | Olivier Blin <oblin@mandriva.com> | 2007-07-31 16:36:38 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2007-07-31 16:36:38 +0000 |
| commit | 63f080d8802bd8e2f3dc74ed8e274e561b823603 (patch) | |
| tree | fb3110f87a510bcf254f3473877d6b6143924f91 /transfugdrake | |
| parent | e61db3f7224e9a183bb530d215f0e30b337a25f3 (diff) | |
| download | transfugdrake-63f080d8802bd8e2f3dc74ed8e274e561b823603.tar transfugdrake-63f080d8802bd8e2f3dc74ed8e274e561b823603.tar.gz transfugdrake-63f080d8802bd8e2f3dc74ed8e274e561b823603.tar.bz2 transfugdrake-63f080d8802bd8e2f3dc74ed8e274e561b823603.tar.xz transfugdrake-63f080d8802bd8e2f3dc74ed8e274e561b823603.zip | |
use intersection (thanks perl_checker, I'm lame)
Diffstat (limited to 'transfugdrake')
| -rwxr-xr-x | transfugdrake | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |