summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-07 18:33:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-07 18:33:42 +0000
commit5520c3fd8b5986630b205d2271b39304410f7e70 (patch)
tree2537898699be7a4f3f637d8d5748975c09480b1f
parentc65f10ddc7e905f4e865f290ba1545aeadcc4740 (diff)
downloaddrakx-5520c3fd8b5986630b205d2271b39304410f7e70.tar
drakx-5520c3fd8b5986630b205d2271b39304410f7e70.tar.gz
drakx-5520c3fd8b5986630b205d2271b39304410f7e70.tar.bz2
drakx-5520c3fd8b5986630b205d2271b39304410f7e70.tar.xz
drakx-5520c3fd8b5986630b205d2271b39304410f7e70.zip
replace glob() with all()
-rw-r--r--perl-install/bootlook.pm4
1 files changed, 2 insertions, 2 deletions
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.", $_,$_));