aboutsummaryrefslogtreecommitdiffstats
path: root/find-lang.pl
diff options
context:
space:
mode:
Diffstat (limited to 'find-lang.pl')
-rw-r--r--find-lang.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/find-lang.pl b/find-lang.pl
index 382ed80..f12af1f 100644
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -40,7 +40,7 @@ File::Find::find(
return;
}
($pkg, $lang, $parent) = ($4, $3, $2);
- } elsif ($file =~ m:^(.*/gnome/help/([^/_@]+))[^/]*/([^/]+)$:) {
+ } elsif ($file =~ m:^(.*/gnome/help/([^/]+))/([^/_]+)$:) {
if (!$withgnome) {
return;
}
@@ -55,7 +55,7 @@ File::Find::find(
return;
}
($pkg, $lang, $parent) = ($3, $2, $1);
- } elsif ($file =~ m:^(/+usr/share/man)/([^/_@\.]+)[^/]*/man[^/]+/([^/.]+)\.\d[^/]*$:) {
+ } elsif ($file =~ m:^(/+usr/share/man)/([^/@\.]+)[^/]*/man[^/]+/([^/.]+)\.\d[^/]*$:) {
if (!$withman) {
return;
}
@@ -104,6 +104,6 @@ sub parent_to_own {
} else {
$finallist{$parent} = "$lang %dir ";
}
- debug("File %s will be %s", $parent, $finallist{$parent});
+ debug("Parent %s will be %s", $parent, $finallist{$parent});
}
}