- 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

1 files changed, 0 insertions, 16 deletions

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) = @_;