diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Makefile | 16 | ||||
| -rw-r--r-- | perl-install/interactive_newt.pm | 1 | ||||
| -rw-r--r-- | perl-install/pkgs.pm | 16 |
3 files changed, 17 insertions, 16 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile index 056f977de..87df7183b 100644 --- a/perl-install/Makefile +++ b/perl-install/Makefile @@ -9,11 +9,10 @@ STAGE2 = $(ROOTDEST)/Mandrake/base/mdkinst_stage2 BASE = $(ROOTDEST)/Mandrake/base DESTREP4PMS = $(DEST)$(REP4PMS) PERL = perl -LOCALFILES = pnp_serial mouseconfig ddcxinfos +LOCALFILES = pnp_serial mouseconfig LOCALFILES2 = extract_archive DIRS = c Newt po pci_probing resize_fat EXCLUDE = $(LOCALFILES) boot.img keymaps consolefonts install -RPMS = $(wildcard $(ROOTDEST)/Mandrake/RPMS/*.rpm) CFLAGS = -Wall override CFLAGS += -pipe @@ -26,7 +25,7 @@ TAGS: $(PMS) clean: for i in $(DIRS); do $(MAKE) -C $$i clean; done - rm -rf gendepslist auto ../diskdrake* + rm -rf auto ../diskdrake* find . -name "*~" -o -name ".#*" -o -name "TAGS" -o -name "*.old" | xargs rm -f tar: clean @@ -55,15 +54,6 @@ test_pms: verify_c verify_c: ./verify_c $(PMS) -gendepslist: %: %.cc - $(CXX) -I/usr/include/rpm $(CFLAGS) $< -lrpm -ldb1 -lz -o $@ - -$(BASE)/depslist: $(BASE)/hdlist gendepslist - ./gendepslist -h $@ $< - -$(BASE)/hdlist: $(RPMS) - $(ROOTDEST)/misc/genhdlist $(ROOTDEST) - install_pms: $(DIRS) for i in `perl -ne 's/sub (\w+?)_? {.*/$$1/ and print' commands.pm`; do ln -sf commands $(DEST)/usr/bin/$$i; done @@ -155,7 +145,7 @@ get_needed_files: $(DIRS) tar xyC $(DEST) -f ../install/install1_pcmcia.tar.bz2 ./etc/pcmcia -full_stage2: $(BASE)/depslist $(BASE)/hdlist +full_stage2: sudo rm -rf $(DEST) mkdir -p $(DEST) $(MAKE) get_needed_files diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm index 63346ed65..4a58dc1a2 100644 --- a/perl-install/interactive_newt.pm +++ b/perl-install/interactive_newt.pm @@ -143,7 +143,6 @@ sub ask_from_entries_refW { my ($w, $ref) = @_; my $val = ${$ref->{val}}; sub { - print STDERR "$ref->{type}: ($val)\n"; $ref->{type} eq "bool" ? $w->CheckboxSetValue(checkval($val)) : $ref->{type} eq "list" ? diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 07d04073b..55fcb1caf 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -21,6 +21,11 @@ hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb ); +my @preferred = qw( + +); + + my $A = 20471; my $B = 16258; sub correctSize { ($A - $_[0]) * $_[0] / $B } #- size correction in MB. @@ -46,7 +51,14 @@ sub select($$;$) { my %l; @l{@{$p->{deps} || die "missing deps file"}} = (); while (do { my %l = %l; while (($n, $v) = each %l) { last if $v != 1; } $n }) { $l{$n} = 1; - my $i = Package($packages, $n) or next; + my $i = Package($packages, $n); + if (!$i && $n =~ /\|/) { + foreach (split '\|', $n) { + print "SSSSSSSSSSSSS $_\n"; + $i = Package($packages, $_); + last if $i && $i->{selected}; + } + } $i->{base} ||= $base; $i->{deps} or log::l("missing deps for $n"); unless ($i->{installed}) { @@ -163,7 +175,7 @@ sub getDeps($) { my $f = install_any::getFile("depslist") or die "can't find dependencies list"; foreach (<$f>) { my ($name, $size, @deps) = split; - ($name, @deps) = map { chop_version(first(split '\|')) } ($name, @deps); #-TODO better handling of choice + ($name, @deps) = map { join '|', map { chop_version($_) } split '\|' } ($name, @deps); $packages->{$name} or next; $packages->{$name}{size} = $size; $packages->{$name}{deps} = \@deps; |