Mercurial > forge
changeset 3278:63283b53934e octave-forge
Don't descend in tree for DEscription files in srpm build
author | adb014 |
---|---|
date | Wed, 28 Mar 2007 00:32:16 +0000 |
parents | 56bd5ebd0b3d |
children | 58bf4aa126a4 |
files | admin/make_rpmmeta |
diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/admin/make_rpmmeta Tue Mar 27 23:49:09 2007 +0000 +++ b/admin/make_rpmmeta Wed Mar 28 00:32:16 2007 +0000 @@ -16,9 +16,12 @@ my $rpmdir = shift @ARGV; my @desc_files = (); +my $topdepth = ($ofdir) =~ tr!/!!; #count slashes in top path find(\&desc_files, $ofdir); sub desc_files { # {{{1 populates global array @files return unless -f and /DESCRIPTION$/; + my $depth = ($File::Find::name) =~ tr!/!!; #count slashes in file + return if $depth > (2 + $topdepth); return if (-e "NOINSTALL"); my $file = "$File::Find::dir/$_"; $file =~ s|^[.]/||;