From 9b02e3b7c7c039be2839bd4ba4a4b01591186dcc Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 9 Aug 2004 06:56:49 +0000
Subject: fix regexp (do not strip paths ending in .*iso)

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 92c8eb893..0290f423c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -102,7 +102,7 @@ sub look_for_ISO_images() {
 
     my $iso_dir = $ENV{ISOPATH};
     #- strip old root and remove iso file from path if present
-    $iso_dir =~ s!^/sysroot!!; $iso_dir =~ s![^/]*.iso$!!;
+    $iso_dir =~ s!^/sysroot!!; $iso_dir =~ s![^/]*\.iso$!!;
 
     foreach my $iso_file (glob("$iso_dir/*.iso")) {
 	my $iso_dev = devices::set_loop($iso_file) or return;
-- 
cgit v1.2.1