Changeset 163


Ignore:
Timestamp:
Jan 18, 2018, 8:29:05 AM (3 years ago)
Author:
g7moreau
Message:
  • Better test
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/project-meta/project-meta

    r162 r163  
    250250   opendir my $dh, '/usr/share/project-meta/licence.d/' or die $!;
    251251   for my $licence (readdir $dh) {
    252       # Keep only text file
    253       next if not -t $licence;
     252      # Keep only file
     253      next if not -f "/usr/share/project-meta/licence.d/$licence";
    254254     
    255255      # Keep only .txt file
    256256      next if not $licence =~ m/\.txt$/;
    257257
    258       $licence =~ s/\.txt$//r;
     258      $licence =~ s/\.txt$//;
    259259      print "$licence\n";
    260260      }
Note: See TracChangeset for help on using the changeset viewer.