Changeset 162


Ignore:
Timestamp:
Jan 18, 2018, 8:24:37 AM (6 years ago)
Author:
g7moreau
Message:
  • Just small format thing in list-licence
File:
1 edited

Legend:

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

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