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