From a14f5e346a90094db1a2ceb4043b1a18fec8e90a Mon Sep 17 00:00:00 2001
From: Thomas Backlund <tmb@mageia.org>
Date: Fri, 7 Feb 2014 19:37:59 +0200
Subject: - nuke create_link_source(), as we haven't supported building against
   an unprepared source for ages, and currently can also create 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

---
 perl-install/NEWS                         |  6 ++++++
 perl-install/bootloader.pm                | 16 ----------------
 perl-install/standalone/bootloader-config |  1 -
 3 files changed, 6 insertions(+), 17 deletions(-)

(limited to 'perl-install')

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";
 
-- 
cgit v1.2.1