From 3e93c988ffc48e16a3bec99e7c737c859e561610 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 22 Dec 2001 22:58:30 +0000 Subject: s/use pkgs/require pkgs/ since pkgs::versionCompare is only used during install --- perl-install/bootloader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 2241e61a9..836a96506 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -11,7 +11,6 @@ use common; use partition_table qw(:types); use log; use any; -use pkgs; use fsedit; use devices; use loopback; @@ -236,6 +235,7 @@ sub get_kernels_and_labels { my @prefered = ('', 'secure', 'enterprise', 'smp'); my %weights = map_index { $_ => $::i } @prefered; + require pkgs; @kernels = sort { pkgs::versionCompare($b->[1], $a->[1]) || $weights{$a->[2]} <=> $weights{$b->[2]} } map { -- cgit v1.2.1