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

fix regex to pick up another 400 tests

Browse source
This commit is contained in:
Colin Kuskie 2005-12-05 05:31:40 +00:00
parent 01dcd2b416
commit ac944aed88
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/i18n.t
View file

@ -31,10 +31,8 @@ initialize(); # this line is required
my $digits = qr/(\d+)/; my $digits = qr/(\d+)/;
my $bareword = qr/(\w+)/; my $bareword = qr/(\w+)/;
my $quotelike = qr/((['"])$bareword(['"]))/; my $quotelike = qr/((['"])($bareword\s*)+(['"]))/;
my $subscript = qr/([\[{]\w+[\]\}])/; my $sub_args = qr/(($quotelike|$digits)(,\s*)?)+/;
my $variable = qr/(\$\w+($subscript)*)/;
my $sub_args = qr/(($quotelike|$digits),?)+/;
my $subroutine = qr/ my $subroutine = qr/
WebGUI::International::get WebGUI::International::get
\( ##Opening paren for optional arguments \( ##Opening paren for optional arguments
@ -110,7 +108,7 @@ sub label_finder_pm {
} }
close $pmf; close $pmf;
while ($libFile =~ m/$subroutine/gc) { while ($libFile =~ m/$subroutine/gc) {
my ($label, $namespace) = split /,/, $1; my ($label, $namespace) = split /,\s*/, $1;
push @libLabels, { push @libLabels, {
file=>$File::Find::name, file=>$File::Find::name,
label=>$label, label=>$label,