current/SOURCES/alien_8.74-do-not-own-sys-directories.diff

--- ./Alien/Package/Deb.pm.tv   2009-05-13 16:08:03.000000000 +0200
+++ ./Alien/Package/Deb.pm      2009-05-13 16:16:41.000000000 +0200
@@ -211,7 +211,9 @@
        # Note that tar doesn't supply a leading '/', so we have to add that.
        my @filelist;
        if ($this->have_dpkg_deb) {
-               @filelist=map { chomp; s:\./::; "/$_" }
+               require MDK::Common;
+               @filelist = grep { !MDK::Common::member($_, qw(/ /usr/ /usr/bin/ /usr/lib/ /usr/share/ /usr/share/doc/ /usr/share/applications/)) }
+                  map { chomp; s:\./::; "/$_" }
                          $this->runpipe(0, "dpkg-deb --fsys-tarfile $file | tar tf -");
        }
        else {
1	--- ./Alien/Package/Deb.pm.tv 2009-05-13 16:08:03.000000000 +0200
2	+++ ./Alien/Package/Deb.pm 2009-05-13 16:16:41.000000000 +0200
3	@@ -211,7 +211,9 @@
4	# Note that tar doesn't supply a leading '/', so we have to add that.
5	my @filelist;
6	if ($this->have_dpkg_deb) {
7	- @filelist=map { chomp; s:\./::; "/$_" }
8	+ require MDK::Common;
9	+ @filelist = grep { !MDK::Common::member($_, qw(/ /usr/ /usr/bin/ /usr/lib/ /usr/share/ /usr/share/doc/ /usr/share/applications/)) }
10	+ map { chomp; s:\./::; "/$_" }
11	$this->runpipe(0, "dpkg-deb --fsys-tarfile $file \| tar tf -");
12	}
13	else {