From 378540b235077a4b9095dfa78d9cad05d14fe2aa Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 14 Jul 2004 09:45:43 +0000
Subject: remove unneeded return

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 7a5779384..e768c1b06 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -120,7 +120,7 @@ sub look_for_ISO_images() {
 sub find_ISO_image_labelled($) {
     %iso_images or look_for_ISO_images() or return;
     my ($iso_label) = @_;
-    return find { $_->{app_id} eq $iso_label && $_->{cd_set} eq $iso_images{cd_set} } @{$iso_images{media}};
+    find { $_->{app_id} eq $iso_label && $_->{cd_set} eq $iso_images{cd_set} } @{$iso_images{media}};
 }
 
 sub changeIso($) {
-- 
cgit v1.2.1