summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-17 17:01:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-17 17:01:16 +0000
commitc409a2f77503464603f3f68fa4627ded7a71ba98 (patch)
treea840ef016549d1fb8fec1e4cbfe549e2ae9f06b6 /perl-install
parent8b0c6d73d0a1963550063209f89052038ff7b135 (diff)
downloaddrakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar
drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar.gz
drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar.bz2
drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar.xz
drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/keyboard.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 86aba5e8d..9462e03a1 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -185,16 +185,16 @@ sub loadkeys_files {
my (@l, %l);
foreach (values %keyboards) {
local $_ = $trans{$_->[1]} || $_->[1];
- my ($l) = glob("$p/$_$post");
- $l or /(..)/ and ($l) = glob("$p/$1$post");
+ my ($l) = glob_("$p/$_$post");
+ $l or /(..)/ and ($l) = glob_("$p/$1$post");
print STDERR "unknown $_\n" if $_[0] && !$l; $l or next;
push @l, $l;
foreach (`zgrep include $l | grep "^include"`) {
/include\s+"(.*)"/ or die "bad line $_";
- @l{glob("$p/$1.inc.gz")} = ();
+ @l{glob_("$p/$1.inc.gz")} = ();
}
}
- @l, keys %l, map { glob("$p/$_.inc.gz") } qw(compose euro windowkeys linux-keys-bare);
+ @l, keys %l, map { glob_("$p/$_.inc.gz") } qw(compose euro windowkeys linux-keys-bare);
}
sub lang2keyboard($) {