--- alien-8.95/Alien/Package/Deb.pm.SYS_DIRS	2015-09-11 00:38:58.000000000 +0300
+++ alien-8.95/Alien/Package/Deb.pm	2015-09-22 21:02:38.101285238 +0300
@@ -282,14 +282,17 @@
 	# Read in the list of all files.
 	# Note that tar doesn't supply a leading '/', so we have to add that.
 	my $datamember_cmd;
+
+	my $filter = sub { return @_; };
 	if ($this->have_dpkg_deb) {
 		$datamember_cmd = "dpkg-deb --fsys-tarfile '$file'";
+		$filter = sub { my $aref = shift; require MDK::Common; return [ grep { !MDK::Common::member($_, qw(/ /bin/ /boot/ /etc/ /home/ /lib/ /lib64 /opt/ /usr/ /usr/bin/ /usr/lib/ /usr/lib64/ /usr/local/ /usr/local/share /usr/share/ /usr/share/doc/ /usr/share/applications/ /var/)) } @$aref]; };
 	}
 	else {
 		$datamember_cmd = $this->get_datamember_cmd($file);
 	}
-	my @filelist=map { chomp; s:\./::; "/$_" }
-		     $this->runpipe(0, "$datamember_cmd | tar tf -");
+	my @filelist= @{$filter->([map { chomp; s:\./::; "/$_" }
+		     $this->runpipe(0, "$datamember_cmd | tar tf -")])};
 	$this->filelist(\@filelist);
 
 	# Read in the scripts, if any.