summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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.", $_,$_));