oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix label.t to search for multiple i18n objects inside of a sub

Browse source
This commit is contained in:
Colin Kuskie 2006-05-08 23:31:54 +00:00
parent 7a2d82ac0c
commit e035bd28f8
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
t/i18n/label.t
View file

@ -147,15 +147,17 @@ sub obj_finder_pm {
close $pmf;
##Advance pos to first subroutine
while ( my $subBody = extract_codeblock($libFile, '{}', qr/(?ms).*?^sub (\w+)\s*/) ) {
next unless $subBody =~ /(\w+)\s*=\s*WebGUI::International->new\($sess_arg(?:,\s*($quotelike))?\)/;
my ($obj, $namespace) = ($1,$2);
while ( $subBody =~ /$obj\->get\(($sub_args)\)/msgc ) {
my ($label, $local_name) = split /,\s*/, $1;
push @objLabels, {
file=>$File::Find::name,
label=>$label,
namespace=>$local_name || $namespace || 'WebGUI',
};
while ( $subBody =~ /(\w+)\s*=\s*WebGUI::International->new\($sess_arg(?:,\s*($quotelike))?\)/msgc) {
my $objBody = $subBody;
my ($obj, $namespace) = ($1,$2);
while ( $objBody =~ /$obj\->get\(($sub_args)\)/msgc ) {
my ($label, $local_name) = split /,\s*/, $1;
push @objLabels, {
file=>$File::Find::name,
label=>$label,
namespace=>$local_name || $namespace || 'WebGUI',
};
}
}
}
}