From 81966041225bbca4aae4acf0cf141645dffedc03 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 16 Nov 2004 09:41:24 +0000 Subject: rename get_of_dev() -> dev2yaboot() --- perl-install/bootloader.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 18beed706..0b275e6ba 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -889,7 +889,7 @@ sub create_link_source() { } } -sub get_of_dev { +sub dev2yaboot { my ($dev) = @_; devices::make("$::prefix$dev"); #- create it in the chroot @@ -914,7 +914,7 @@ sub write_yaboot { my $file2yaboot = sub { my ($part, $file) = fs::get::file2part($fstab, $_[0]); - get_of_dev('/dev/' . $part->{device}) . "," . $file; + dev2yaboot('/dev/' . $part->{device}) . "," . $file; }; #- do not write yaboot.conf for old-world macs @@ -941,7 +941,7 @@ sub write_yaboot { if ($bootloader->{boot}) { push @conf, "boot=$bootloader->{boot}"; - push @conf, "ofboot=" . get_of_dev($bootloader->{boot}) if $mac_type !~ /IBM/; + push @conf, "ofboot=" . dev2yaboot($bootloader->{boot}) if $mac_type !~ /IBM/; } else { die "no bootstrap partition defined."; } @@ -968,7 +968,7 @@ sub write_yaboot { push @entry_conf, $entry->{'read-write'} ? "read-write" : "read-only"; push @conf, map { "\t$_" } @entry_conf; } else { - my $of_dev = get_of_dev($entry->{kernel_or_dev}); + my $of_dev = dev2yaboot($entry->{kernel_or_dev}); push @conf, "$entry->{label}=$of_dev"; } } -- cgit v1.2.1