Browse Source

ignore upper-case files

tags/debian_version_1_4
Joey Hess 20 years ago
parent
commit
216cc5362d
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      makedesc.pl

+ 1
- 1
makedesc.pl View File

@@ -30,7 +30,7 @@ use File::Find;
find(\&processfile, $dir);

sub processfile {
return unless /^[-_.A-Za-z0-9]+$/ and -f $_;
return unless /^[-_.a-z0-9]+$/ and -f $_;
open (IN, $_) or die "$_: $!";
my %fields;
my $field="";


Loading…
Cancel
Save