diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 11:31:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 11:31:45 +0000 |
| commit | 5741eec64d02381676f5aab89ad23e2413eabbd0 (patch) | |
| tree | c4302bbd1e654ff49195d0d05be5c12a8d55d4ba /perl-install/any.pm | |
| parent | 11647c80f3898d05df4e3deedc2f415c02632bbf (diff) | |
| download | drakx-backup-do-not-use-5741eec64d02381676f5aab89ad23e2413eabbd0.tar drakx-backup-do-not-use-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.gz drakx-backup-do-not-use-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.bz2 drakx-backup-do-not-use-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.xz drakx-backup-do-not-use-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.pm | 6 |
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"; } |