po: added pofiles() function, will use this soon

Signed-off-by: intrigeri <intrigeri@boum.org>
master
intrigeri 2008-11-07 21:23:23 +01:00
parent 61a01d3388
commit 3e341e64c2
1 changed files with 5 additions and 0 deletions

View File

@ -153,6 +153,11 @@ sub pofile ($$) { #{{{
return File::Spec->catpath('', $dir, $name . "." . $lang . ".po"); return File::Spec->catpath('', $dir, $name . "." . $lang . ".po");
} #}}} } #}}}
sub pofiles ($) { #{{{
my $masterfile=shift;
return map pofile($masterfile, $_), (keys %{$config{po_slave_languages}});
} #}}}
sub refreshpot ($) { #{{{ sub refreshpot ($) { #{{{
my $masterfile=shift; my $masterfile=shift;