From be1c9ffd9895c8161786eb6e435851918b8d518f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Sep 2008 14:49:46 +0000
Subject: - drop the ability to set mem=xxx in bootloader configuration
 (#42329)

---
 perl-install/bootloader.pm | 20 --------------------
 1 file changed, 20 deletions(-)

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index f3e52a741..e121c6613 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -765,8 +765,6 @@ sub modify_append {
     }
 }
 
-sub append__mem_is_memsize { $_[0] =~ /^\d+[kM]?$/i }
-
 sub get_append_simple {
     my ($b, $key) = @_;
     my ($simple, $_dict) = unpack_append($b->{perImageAppend});
@@ -813,24 +811,6 @@ sub may_append_with_key {
     set_append_with_key($b, $key, $val) if !get_append_with_key($b, $key);
 }
 
-sub get_append_memsize {
-    my ($b) = @_;
-    my ($_simple, $dict) = unpack_append($b->{perImageAppend});
-    my $e = find { $_->[0] eq 'mem' && append__mem_is_memsize($_->[1]) } @$dict;
-    $e && $e->[1];
-}
-
-sub set_append_memsize {
-    my ($b, $memsize) = @_;
-
-    modify_append($b, sub {
-	my ($_simple, $dict) = @_;
-
-	@$dict = grep { $_->[0] ne 'mem' || !append__mem_is_memsize($_->[1]) } @$dict;
-	push @$dict, [ mem => $memsize ] if $memsize;
-    });
-}
-
 sub get_append_netprofile {
     my ($e) = @_;
     my ($simple, $dict) = unpack_append($e->{append});
-- 
cgit v1.2.1