diff options
| author | Josip Rodin <joy> | 2001-08-12 00:32:39 +0000 |
|---|---|---|
| committer | Josip Rodin <joy> | 2001-08-12 00:32:39 +0000 |
| commit | ff5ad703fac0ebf98fcf18071e7ebdefcf5dbca5 (patch) | |
| tree | 38ed355a625675ef265bc695ba6dcf78393adfa9 /check_trans.pl | |
| parent | 9abca8b0b4c78f20060fedcc863103887f5b00de (diff) | |
oops. readd some of Denis' changes that got lost.
CVS version numbers
check_trans.pl: 1.33 -> 1.34
Diffstat (limited to 'check_trans.pl')
| -rwxr-xr-x | check_trans.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/check_trans.pl b/check_trans.pl index bdef7c02ecd..e1acb649212 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -10,7 +10,7 @@ # Copyright 2000 Martin Quinson <mquinson@ens-lyon.fr> # Invocation: -# check_trans.pl [-vqdlM] [-p pattern] [-s subtree] +# check_trans.pl [-vqdlM] [-C dir] [-p pattern] [-s subtree] # [-m email -n N] [-g] [-t outputtype] # [language] @@ -88,7 +88,8 @@ my %translators;# the real hash # misc hardcoded things my $maintainer = "mquinson\@ens-lyon.fr"; # the default e-mail at which to bitch :-) -my $ignorables = "/sitemap.wml " +my $ignorables = " " + ."/sitemap.wml " ."/MailingLists/subscribe.wml " ."/MailingLists/unsubscribe.wml " ."/international/l10n/data/countries.wml " @@ -418,7 +419,7 @@ sub check_file { $docname =~ s#\.wml$##; unless (-r $name) { (my $iname = $name) =~ s/$to//; - if (index($ignorables, "$iname ") < 0) { + if (index($ignorables, " $iname ") < 0) { unless (($opt_q) || ($opt_Q)) { if ($opt_t eq 'perl') { print "'$docname' => {\n\t'type' => 'Web',\n"; |