Changeset 162 for trunk

Timestamp:

Jan 18, 2018, 8:24:37 AM (7 years ago)

Author:

g7moreau

Message:

• Just small format thing in list-licence

File:

• trunk/project-meta/project-meta (modified) (1 diff)

trunk/project-meta/project-meta

@@ -250 +250 @@
    opendir my $dh, '/usr/share/project-meta/licence.d/' or die $!;
    for my $licence (readdir $dh) {
-      # next if not -t $licence;
+      # Keep only text file
+      next if not -t $licence;
+      
+      # Keep only .txt file
+      next if not $licence =~ m/\.txt$/;
+
+      $licence =~ s/\.txt$//r;
       print "$licence\n";
       }