From 5741eec64d02381676f5aab89ad23e2413eabbd0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 1 Aug 2002 11:31:45 +0000 Subject: get rid of some $prefix parameter passing (using $::prefix where needed instead) --- perl-install/any.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index fbafd4da0..4085add9c 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -343,7 +343,7 @@ if (arch() !~ /ppc/) { } } }, \@l)) { $b->{default} = $old_default || $default ? $default && $e->{label} : $b->{default}; require bootloader; - bootloader::configure_entry($prefix, $e); #- hack to make sure initrd file are built. + bootloader::configure_entry($e); #- hack to make sure initrd file are built. push @{$b->{entries}}, $e if $c eq "Add"; } else { @@ -884,10 +884,10 @@ sub write_passwd_user { } sub set_login_serial_console { - my ($prefix, $port, $speed) = @_; + my ($port, $speed) = @_; my $line = "s$port:12345:respawn:/sbin/getty ttyS$port DT$speed ansi\n"; - substInFile { s/^s$port:.*//; $_ = $line if eof } "$prefix/etc/inittab"; + substInFile { s/^s$port:.*//; $_ = $line if eof } "$::prefix/etc/inittab"; } -- cgit v1.2.1