diff options
| -rw-r--r-- | perl-install/any.pm | 1 | ||||
| -rw-r--r-- | perl-install/authentication.pm | 2 | ||||
| -rw-r--r-- | perl-install/fs/mount.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/commands.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/install2.pm | 3 |
6 files changed, 4 insertions, 7 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 787706332..c95ab95fc 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1399,7 +1399,6 @@ You can use userdrake to add a user to this group.") sub monitor_full_edid() { return if $::noauto; - devices::make('zero'); my ($vbe, $edid); { # prevent warnings in install's logs: diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index 02a88737c..9fc00a78e 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -797,7 +797,7 @@ sub enable_shadow() { sub salt { my ($nb) = @_; require devices; - open(my $F, devices::make("urandom")) or die "missing urandom"; + open(my $F, "/dev/urandom") or die "missing urandom"; my $s; read $F, $s, $nb; $s = pack("b8" x $nb, unpack "b6" x $nb, $s); $s =~ tr|\0-\x3f|0-9a-zA-Z./|; diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm index 4365c0caa..0bff5f06c 100644 --- a/perl-install/fs/mount.pm +++ b/perl-install/fs/mount.pm @@ -160,8 +160,6 @@ sub part { set_loop($part); $options = join(',', grep { !/^(encryption=|encrypted$|loop$)/ } split(',', $options)); #- we take care of this, don't let it mount see it } elsif (isLoopback($part)) { - #- mount will take care, but we must help it - devices::make("loop$_") foreach 0 .. 7; $options = join(',', uniq('loop', split(',', $options))); #- ensure the loop options is used } elsif ($part->{options} =~ /encrypted/) { log::l("skip mounting $part->{device} since we do not have the encrypt_key"); diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 43a16efb8..0fd3e5ed2 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,4 @@ +- do not create /dev/ entries created by udev - kill last remanents of kernel-2.4.x support - package group selection: o remember minimal install values when clicking "previous" diff --git a/perl-install/install/commands.pm b/perl-install/install/commands.pm index 154a9cfb1..f89002a27 100644 --- a/perl-install/install/commands.pm +++ b/perl-install/install/commands.pm @@ -276,7 +276,7 @@ sub hexdump { sub more { @ARGV = @_; require devices; - my $tty = devices::make('tty'); + my $tty = '/dev/tty'; my $n = 0; open(my $IN, $tty) or die "cannot open $tty\n"; local $_; diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index 05d3c8a14..065c88515 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -347,8 +347,7 @@ sub pre_init_brltty() { sub init_brltty() { symlink "/tmp/stage2/$_", $_ foreach "/etc/brltty"; - devices::make($_) foreach $o->{brltty}{device} ? $o->{brltty}{device} : qw(ttyS0 ttyS1); - devices::make("vcsa"); + devices::make($_) foreach $o->{brltty}{device}; run_program::run("brltty"); } |