summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--perl-install/Makefile.config2
-rw-r--r--perl-install/NEWS2
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/Makefile.config b/perl-install/Makefile.config
index 3d24dccbb..f9717cfb4 100644
--- a/perl-install/Makefile.config
+++ b/perl-install/Makefile.config
@@ -1,5 +1,5 @@
# -*- Makefile -*-
-VERSION:=11.86
+VERSION:=11.87
SUDO = sudo
TMPDIR = /tmp
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 8652ab9c2..f14238a9e 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+Version 11.87 - 14 February 2009
+
- diskdrake:
o allow resizing on lvm for mounted ext3/4 and not mounted xfs
o use a list instead of combo in the partition type selection window
generated by cgit v1.2.1 (git 2.21.0) at 2025-01-07 07:58:53 +0000
132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 
use strict;


BEGIN {
    #- for testing purpose
    (my $f = __FILE__) =~ s|/[^/]*$||;
    push @INC, $f;
}

use MDK::Common;
use list_modules;


sub flatten_and_check {
    my ($h) = @_;
    map { 
	my $category = $_;
	my @l = @{$h->{$category}};
	if (my @bad = difference2(\@l, [ category2modules($category) ])) {
	    foreach (@bad) {
		if (my $cat = module2category($_)) {
		    warn "ERROR in modules.pl: module $_ is in category $cat, not in $category\n";
		} else {
		    warn "ERROR in modules.pl: unknown module $_\n";
		}
	    }
	    exit 1;
	}
	@l;
    } keys %$h;
}

my $images_cat = 'fs/* disk/* bus/* network/* input/* various/*'; #- ie everything except multimedia

my $verbose = $ARGV[0] eq '-v' && shift;
my ($f, @para) = @ARGV;
$::{$f}->(@para);

sub modules() {
    my @nls_modules = ('nls_cp437', 'nls_iso8859_1');
    @nls_modules, map { category2modules($_) } split(' ', $images_cat);
}

sub list_needed_modules {
    my ($kern_ver) = @_;

    load_dependencies("/lib/modules/$kern_ver/modules.dep");

    my @all = modules();
    my @all_with_deps = map { dependencies_closure($_) } @all;
    my %wanted_modules = map { (list_modules::modname2filename($_) => 1) } @all_with_deps;
    foreach (`find /lib/modules/$kern_ver -name '*.ko.?z'`) {
       my $modfile = basename($_);
       $modfile =~ s/\.ko\.xz//;
       $wanted_modules{$modfile} and print "$modfile\n";
    }
}

sub list_fake_modules {
    my ($kern_ver) = @_;

    load_dependencies("/lib/modules/$kern_ver/modules.dep");

    my @all = map { category2modules($_) } split(' ', 'multimedia/*');
    my %wanted_modules = map { (list_modules::modname2filename($_) => 1) } @all;
    foreach (`find /lib/modules/$kern_ver -name '*.ko.?z'`) {
       my $modfile = basename($_);
       $modfile =~ s/\.ko\.xz//;
       $wanted_modules{$modfile} and print "$modfile\n";
    }
}

sub get_main_modules() {
    my $base = dirname($0);