Browse Source

Ignore .git directory in places that ignore .svn.

keep-around/43e990ab3f4cc50982f8dbc32e3465ca7c827876
Joey Hess 14 years ago
parent
commit
e805ffe705
  1. 1
      debian/changelog
  2. 2
      doincludes.pl
  3. 2
      listpackages.pl
  4. 2
      makedesc.pl
  5. 2
      makeoverride.pl

1
debian/changelog

@ -9,6 +9,7 @@ tasksel (2.75) UNRELEASED; urgency=low
- DEBUG=0 has no effect when building anymore, removed that from rules
file.
* Drop empty /usr/lib/tasksel/packages from tasksel-data.
* Ignore .git directory in places that ignore .svn.
-- Joey Hess <joeyh@debian.org> Wed, 14 May 2008 17:10:27 -0400

2
doincludes.pl

@ -30,7 +30,7 @@ find(\&processfile, $dir);
sub processfile {
my $file=$_; # File::Find craziness.
$file eq 'po' && -d $file && ($File::Find::prune = 1);
return if $File::Find::dir=~/\.svn/;
return if $File::Find::dir=~/\.(svn|git)/;
return unless $file =~ /^[-+_.a-z0-9]+$/ and -f $file;
my @lines;
open (IN, $file) or die "$file: $!";

2
listpackages.pl

@ -24,7 +24,7 @@ find(\&processfile, $dir);
sub processfile {
my $file=$_; # File::Find craziness.
$file eq 'po' && -d $file && ($File::Find::prune = 1);
return if $File::Find::dir=~/\.svn/;
return if $File::Find::dir=~/\.(svn|git)/;
return unless $file =~ /^[-+_.a-z0-9]+$/ and -f $file;
open (IN, $file) or die "$file: $!";
my %fields;

2
makedesc.pl

@ -51,7 +51,7 @@ find({ wanted => \&processfile, preprocess => sub { return sort @_}}, $dir);
sub processfile {
my $file=$_; # File::Find craziness.
$file eq 'po' && -d $file && ($File::Find::prune = 1);
return if $File::Find::dir=~/\.svn/;
return if $File::Find::dir=~/\.(svn|git)/;
return unless $file =~ /^[-+_.a-z0-9]+$/ and -f $file;
open (IN, $file) or die "$file: $!";
my %fields;

2
makeoverride.pl

@ -16,7 +16,7 @@ print "$_\tTask\t", (join ", ", sort keys %{$p{$_}}), "\n"
sub processfile {
my $file=$_; # File::Find craziness.
$file eq 'po' && -d $file && ($File::Find::prune = 1);
return if $File::Find::dir=~/\.svn/;
return if $File::Find::dir=~/\.(svn|git)/;
return unless $file =~ /^[-+_.a-z0-9]+$/ and -f $file;
open (IN, $file) or die "$file: $!";
my %fields;

Loading…
Cancel
Save