diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-17 17:01:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-17 17:01:16 +0000 |
| commit | c409a2f77503464603f3f68fa4627ded7a71ba98 (patch) | |
| tree | a840ef016549d1fb8fec1e4cbfe549e2ae9f06b6 | |
| parent | 8b0c6d73d0a1963550063209f89052038ff7b135 (diff) | |
| download | drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar.gz drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar.bz2 drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.tar.xz drakx-c409a2f77503464603f3f68fa4627ded7a71ba98.zip | |
*** empty log message ***
| -rw-r--r-- | perl-install/keyboard.pm | 8 |
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($) { |