|
@@ -2707,8 +2707,8 @@ __EOF__
|
|
|
opendir(DH, $wikipath) or die("Can't opendir '$wikipath': $!\n");
|
|
|
while (my $d = readdir(DH)) {
|
|
|
my $dent = $d;
|
|
|
- if ($dent =~ /\AREADME\-.*?\.md\Z/) {
|
|
|
- push @pages, $dent;
|
|
|
+ if ($dent =~ /\(AREADME\-.*?)\.md\Z/) {
|
|
|
+ push @pages, $1;
|
|
|
}
|
|
|
}
|
|
|
closedir(DH);
|