summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-01 11:31:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-01 11:31:45 +0000
commit5741eec64d02381676f5aab89ad23e2413eabbd0 (patch)
treec4302bbd1e654ff49195d0d05be5c12a8d55d4ba /perl-install/any.pm
parent11647c80f3898d05df4e3deedc2f415c02632bbf (diff)
downloaddrakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.gz
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.bz2
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.xz
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.zip
get rid of some $prefix parameter passing (using $::prefix where needed instead)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm6
1 files changed, 3 insertions, 3 deletions
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";
}