From 7d0ebe6797caaf042fa31f1bbd789a47ad6874c5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 08:00:56 +0000
Subject: remove unused old code

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 25e048fa7..1b1428b38 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2,7 +2,6 @@ package bootloader; # $Id$
 
 use diagnostics;
 use strict;
-use vars qw(%vga_modes);
 
 #-######################################################################################
 #- misc imports
@@ -537,12 +536,6 @@ sub pack_append {
     join(' ', @$simple, map { "$_->[0]=$_->[1]" } @$dict);
 }
 
-sub normalize_append {
-    my ($s) = @_;
-    my ($simple, $dict) = unpack_append($s);
-    pack_append($simple, $dict);
-}
-
 sub modify_append {
     my ($b, $f) = @_;
 
-- 
cgit v1.2.1