summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-09 06:56:49 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-09 06:56:49 +0000
commit9b02e3b7c7c039be2839bd4ba4a4b01591186dcc (patch)
treefafb10162736b7f3aa5f826dcfcb8969490a0957 /perl-install/install_any.pm
parentd6087ab7446a4dd064964fd82ab6e6ad23157d67 (diff)
downloaddrakx-backup-do-not-use-9b02e3b7c7c039be2839bd4ba4a4b01591186dcc.tar
drakx-backup-do-not-use-9b02e3b7c7c039be2839bd4ba4a4b01591186dcc.tar.gz
drakx-backup-do-not-use-9b02e3b7c7c039be2839bd4ba4a4b01591186dcc.tar.bz2
drakx-backup-do-not-use-9b02e3b7c7c039be2839bd4ba4a4b01591186dcc.tar.xz
drakx-backup-do-not-use-9b02e3b7c7c039be2839bd4ba4a4b01591186dcc.zip
fix regexp (do not strip paths ending in .*iso)
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
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;