diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-07 18:33:42 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-07 18:33:42 +0000 |
| commit | 5520c3fd8b5986630b205d2271b39304410f7e70 (patch) | |
| tree | 2537898699be7a4f3f637d8d5748975c09480b1f /perl-install/bootlook.pm | |
| parent | c65f10ddc7e905f4e865f290ba1545aeadcc4740 (diff) | |
| download | drakx-backup-do-not-use-5520c3fd8b5986630b205d2271b39304410f7e70.tar drakx-backup-do-not-use-5520c3fd8b5986630b205d2271b39304410f7e70.tar.gz drakx-backup-do-not-use-5520c3fd8b5986630b205d2271b39304410f7e70.tar.bz2 drakx-backup-do-not-use-5520c3fd8b5986630b205d2271b39304410f7e70.tar.xz drakx-backup-do-not-use-5520c3fd8b5986630b205d2271b39304410f7e70.zip | |
replace glob() with all()
Diffstat (limited to 'perl-install/bootlook.pm')
| -rw-r--r-- | perl-install/bootlook.pm | 4 |
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.", $_,$_)); |