ソースを参照

Avoid deleting .cvsignore

tags/v0.9.3
Michael Brown 19年前
コミット
6e4888400c
1個のファイルの変更2行の追加2行の削除
  1. 2
    2
      src/util/mkconfig.pl

+ 2
- 2
src/util/mkconfig.pl ファイルの表示

48
   return $stat->mtime;
48
   return $stat->mtime;
49
 }
49
 }
50
 
50
 
51
-# Read a directory listing (excluding the . and .. entries)
51
+# Read all the .h files in a directory
52
 #
52
 #
53
 sub read_dir {
53
 sub read_dir {
54
   my $dir = shift;
54
   my $dir = shift;
55
 
55
 
56
   opendir my $dh, $dir or die "Could not open directory $dir: $!\n";
56
   opendir my $dh, $dir or die "Could not open directory $dir: $!\n";
57
-  my @entries = grep { ! /^(\.)+$/ } readdir $dh;
57
+  my @entries = grep { /\.h$/ } readdir $dh;
58
   closedir $dh;
58
   closedir $dh;
59
   return @entries;
59
   return @entries;
60
 }
60
 }

読み込み中…
キャンセル
保存