summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS6
-rw-r--r--perl-install/bootloader.pm16
-rwxr-xr-xperl-install/standalone/bootloader-config1
3 files changed, 6 insertions, 17 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 60c3ecbe7..56ba929f2 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,9 @@
+
+- nuke create_link_source(), as we haven't supported building against an
+ unprepared source for ages, and currently also can trigger wrong symlinks
+ when kernel-source is installed before for example kernel-linus as found
+ out during QA for mga#12518 and debugging the issue on irc
+
Version 16.26.8 - 4 February 2014
- harddrake:
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index dea5bf0bd..dfcabc1d4 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1269,22 +1269,6 @@ sub keytable {
-r "$::prefix/$f" && $f;
}
-
-sub create_link_source() {
- #- we simply do it for all kernels :)
- #- so this can be used in %post of kernel and also of kernel-source
- foreach (all("$::prefix/usr/src")) {
- my ($version) = /^linux-(\d+\.\d+.*)/ or next;
- foreach (glob("$::prefix/lib/modules/$version*")) {
- -d $_ or next;
- log::l("creating symlink $_/build");
- symlink "/usr/src/linux-$version", "$_/build";
- log::l("creating symlink $_/source");
- symlink "/usr/src/linux-$version", "$_/source";
- }
- }
-}
-
sub dev2yaboot {
my ($dev) = @_;
diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config
index 1595d30f9..9b6a021de 100755
--- a/perl-install/standalone/bootloader-config
+++ b/perl-install/standalone/bootloader-config
@@ -140,7 +140,6 @@ sub remove_kernel() {
#-###############################################################################
sub add_kernel() {
configure_ide_controller();
- bootloader::create_link_source();
my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n";