Changeset 163 for trunk/project-meta/project-meta

Timestamp:

Jan 18, 2018, 8:29:05 AM (6 years ago)

Author:

g7moreau

Message:

• Better test

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) {
-      # Keep only text file
-      next if not -t $licence;
+      # Keep only file
+      next if not -f "/usr/share/project-meta/licence.d/$licence";
       
       # Keep only .txt file
       next if not $licence =~ m/\.txt$/;
 
-      $licence =~ s/\.txt$//r;
+      $licence =~ s/\.txt$//;
       print "$licence\n";
       }