From 5520c3fd8b5986630b205d2271b39304410f7e70 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 7 Aug 2002 18:33:42 +0000
Subject: replace glob() with all()

---
 perl-install/bootlook.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 062e334f0..cf713396f 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -121,7 +121,7 @@ my @thms;
 my @lilo_thms = ($themes{'default'})?():qw(default);
 my @boot_thms = ($themes{'default'})?():qw(default);
 chdir($themes{'path'}); #- we must change directory for correct @thms assignement
-foreach (glob("*")) {
+foreach (all('.')) {
     if (-d $themes{'path'} . $_ && m/^[^.]/) {
 	push @thms, $_;
 	-f $themes{'path'} . $_ . $themes{'lilo'}{'file'} and push @lilo_thms, $_;
@@ -228,7 +228,7 @@ LOGO_CONSOLE=" . ($keep_logo ? 'yes' : 'no') . "\n";
         }
         #here is mkinitrd time
         if (!$error) {
-            foreach (map { if_(m|^/boot/initrd-(.*)\.img|, $1) } glob '/boot/*'){
+            foreach (map { if_(m|^initrd-(.*)\.img|, $1) } all('/boot')){
                 if ( system("mkinitrd -f /boot/initrd-$_.img $_" ) ) {
                     $in->ask_warn(_("Error"),
 				  _("Can't launch mkinitrd -f /boot/initrd-%s.img %s.", $_,$_));
-- 
cgit v1.2.1