Revision e8a42733
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| locale/de/locales.pl | ||
|---|---|---|
| 25 | 25 |
} |
| 26 | 26 |
|
| 27 | 27 |
opendir DIR, "$bindir" or die "$!"; |
| 28 |
@progfiles = grep { /\.pl$/; !/(_|^\.)/ } readdir DIR;
|
|
| 28 |
@progfiles = grep { /\.pl$/ && !/(_|^\.)/ } readdir DIR;
|
|
| 29 | 29 |
seekdir DIR, 0; |
| 30 | 30 |
@customfiles = grep /_/, readdir DIR; |
| 31 | 31 |
closedir DIR; |
Auch abrufbar als: Unified diff
Nur Dateien nach $locale->text() durchsuchen, deren Name mit .pl endet.