5 use File::Find qw(find);
7 my $rpmdir = shift @ARGV or die;
8 my $fileoutdir = shift @ARGV or die;
15 return unless /^Kconfig/ or /^Makefile/;
17 return if $File::Find::name =~ /(Documentation|scripts)/;
18 (my $file = $File::Find::name) =~ s#^\./##;
22 foreach my $sub ( split( '/', $dir )) {
23 $subdir .= "/" . $sub;
24 push @tosort, "\%dir $rpmdir$subdir\n";
26 push @tosort, "$rpmdir/$file\n";
30 my @toprint = grep {if ($_ ne $last) { $last = $_; 1} else {0}} sort @tosort;
32 open F_OUT, "> $fileoutdir/aux_files" or die "Can't create aux_files: $!\n";
34 close F_OUT and print "aux_files created\n";
36 open F_OUT, "> $fileoutdir/aux_files_exc" or die "Can't create aux_files_exc: $!\n";
37 print F_OUT map {"\%exclude $_"} @toprint;
38 close F_OUT and print "aux_files_exc created\n";