summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm20
1 files changed, 0 insertions, 20 deletions
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});