Re: [PULL] http://linuxtv.org/hg/~mkrufky/hardy-lum-compat

[Mauro Carvalho Chehab <mchehab@xxxxxxxxxxxxx>]

Michael,

On Fri, 17 Oct 2008 08:49:48 -0400
Michael Krufky <mkrufky@xxxxxxxxxxx> wrote:

> This is to delete the ubuntu backport modules -- they backport 
> additional drivers against the v4l / dvb cores in their kernel, but they 
> do not actually backport the cores themselves.
> 
> This might change with intrepid++ , but for now, my current solution 
> alleviates the issue.
> 
> Please merge.

I think that the following patch will do a better job. It will create a rule to
remove all obsolete modules from the ubuntu messy backport directory.

Please test. I'll still do some work there to avoid importunate users for other
distros where you don't have such buggy install.

Cheers,
Mauro.

diff -r 14f150dc3de6 v4l/scripts/make_makefile.pl
--- a/v4l/scripts/make_makefile.pl	Fri Oct 17 09:26:39 2008 -0300
+++ b/v4l/scripts/make_makefile.pl	Fri Oct 17 10:37:27 2008 -0300
@@ -157,6 +157,29 @@
 	}
 }
 
+#
+# Special hack for Ubuntu with their backport mess
+#
+sub removeubuntu()
+{
+	my $dest = "/lib/modules/\$(KERNELRELEASE)/ubuntu/media";
+	my $filelist;
+
+	while ( my ($dir, $files) = each(%instdir) ) {
+		$filelist .= join(' ', keys %$files);
+	}
+	while ( my ($dir, $files) = each(%obsolete) ) {
+		$filelist .= join(' ', keys %$files);
+	}
+	$filelist =~ s/\s+$//;
+	
+	print OUT "\t\@echo -e \"\\nRemoving old/obsolete LVM files from $dest:\"\n";
+	print OUT "\t\@files='", $filelist, "'; ";
+
+	print OUT "for i in \$\$files;do if [ -e $dest/*/\$\$i ]; then ";
+	print OUT "echo -n \"\$\$i \";";
+	print OUT " rm $dest/*/\$\$i; fi; done;\n";
+}
 
 getobsolete();
 
@@ -169,6 +192,7 @@
 print OUT "\t\@strip --strip-debug \$(inst-m)\n\n";
 
 removeobsolete();
+removeubuntu();
 
 print OUT "\t\@echo \"Installing kernel modules under \$(DESTDIR)\$(KDIR26)/:\"\n";
 
@@ -191,6 +215,7 @@
 print OUT "media-rminstall::\n";
 
 removeobsolete();
+removeubuntu();
 
 print OUT "\t\@echo -e \"\\nRemoving old \$(DEST) files\\n\"\n";
 while ( my ($dir, $files) = each(%instdir) ) {

_______________________________________________
v4l-dvb-maintainer mailing list
v4l-dvb-maintainer@xxxxxxxxxxx
http://www.linuxtv.org/cgi-bin/mailman/listinfo/v4l-dvb-maintainer