summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/patch/patch-rh9-mdk10.pl116
1 files changed, 116 insertions, 0 deletions
diff --git a/perl-install/patch/patch-rh9-mdk10.pl b/perl-install/patch/patch-rh9-mdk10.pl
new file mode 100644
index 000000000..a56c9497b
--- /dev/null
+++ b/perl-install/patch/patch-rh9-mdk10.pl
@@ -0,0 +1,116 @@
+
+warn "PATCHING\n";
+log::l("PATCHING\n");
+
+use install_any;
+
+undef *find_root_parts;
+*find_root_parts = sub {
+ my ($fstab, $prefix) = @_;
+ map {
+ my $handle = any::inspect($_, $prefix);
+ my $s = $handle && cat_("$handle->{dir}/etc/redhat-release");
+ if ($s) {
+ chomp($s);
+ $s =~ s/\s+for\s+\S+//;
+ log::l("find_root_parts found $_->{device}: $s");
+ { release => $s, part => $_ };
+ } else { () }
+ } @$fstab;
+};
+
+
+use pkgs;
+package pkgs;
+
+my $old_compare_pkg = \&URPM::Package::compare_pkg;
+undef *URPM::Package::compare_pkg;
+*URPM::Package::compare_pkg = sub {
+ my ($lpkg, $rpkg) = @_;
+ my $c = ($lpkg->release =~ /mdk$/ ? 1 : 0) - ($rpkg->release =~ /mdk$/ ? 1 : 0);
+ if ($c) {
+ my $lpkg_ver = $lpkg->version . '-' . $lpkg->release;
+ my $rpkg_ver = $rpkg->version . '-' . $rpkg->release;
+ log::l($lpkg->name . ' ' . $rpkg->name . ': prefering ' . ($c == 1 ? "$lpkg_ver over $rpkg_ver" : "$rpkg_ver over $lpkg_ver"));
+ return $c;
+ }
+ &$old_compare_pkg;
+};
+
+my $old_compare = \&URPM::Package::compare;
+undef *URPM::Package::compare;
+*URPM::Package::compare = sub {
+ my ($lpkg, $rpkg_ver) = @_;
+ my $c = ($lpkg->release =~ /mdk$/ ? 1 : 0) - ($rpkg_ver =~ /mdk$/ ? 1 : 0);
+ if ($c) {
+ my $lpkg_ver = $lpkg->version . '-' . $lpkg->release;
+ log::l($lpkg->name . ' ' . ': prefering ' . ($c == 1 ? "$lpkg_ver over $rpkg_ver" : "$rpkg_ver over $lpkg_ver"));
+ return $c;
+ }
+ &$old_compare;
+};
+
+use install2;
+package install2;
+my $old_choosePackages = \&choosePackages;
+undef *choosePackages;
+*choosePackages = sub {
+ my @should_not_be_dirs = qw(/usr/X11R6/lib/X11/xkb /usr/share/locale/zh_TW/LC_TIME /usr/include/GL);
+ my @should_be_dirs = qw(/etc/X11/xkb);
+ foreach (@should_not_be_dirs) {
+ my $f = "$::prefix$_";
+ rm_rf($f) if !-l $f && -d $f;
+ }
+ foreach (@should_be_dirs) {
+ my $f = "$::prefix$_";
+ rm_rf($f) if -l $f || !-d $f;
+ }
+ unlink "$::prefix/etc/X11/XF86Config";
+ unlink "$::prefix/etc/X11/XF86Config-4";
+
+ &$old_choosePackages;
+};
+
+use fs;
+package fs;
+
+my $old = \&read_fstab;
+undef *read_fstab;
+*read_fstab = sub {
+ my @l = &$old;
+
+ my %label2device = map {
+ my $dev = devices::make($_->{device});
+ if (my ($label) = `tune2fs -l $dev 2>/dev/null` =~ /volume name:\s*(\S+)/) {
+ log::l("device $_->{device} has label $label");
+ $label => $_->{device};
+ } else {
+ ();
+ }
+ } fsedit::read_proc_partitions([]);
+
+ foreach (@l) {
+ my ($label) = ($_->{device_LABEL} || $_->{device}) =~ /^LABEL=(.*)/ or next;
+ if ($label2device{$label}) {
+ $_->{device} = $label2device{$label};
+ } else {
+ log::l("can't find label $label");
+ }
+ }
+
+ @l;
+};
+
+use any;
+package any;
+
+undef *fix_broken_alternatives;
+*fix_broken_alternatives = {
+ #- fix bad update-alternatives that may occurs after upgrade (and sometimes for install too).
+ -d "$::prefix/etc/alternatives" or return;
+
+ foreach (all("$::prefix/etc/alternatives")) {
+ log::l("setting alternative $_");
+ run_program::rooted($::prefix, 'update-alternatives', '--auto', $_);
+ }
+};