Difuse/luci
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

build: rework checks in i18n-scan.pl

Browse source
This commit is contained in:
Jo-Philipp Wich 2012-04-03 00:35:54 +00:00
parent ee09d98cd5
commit 3501cbea52
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
build/i18n-scan.pl
View file

@ -60,7 +60,7 @@ if( open F, "find @ARGV -type f '(' -name '*.htm' -o -name '*.lua' ')' |" )
if( $code =~ /^['"]/ )
{
while( defined $sub && length($sub) > 0 )
while( defined $sub )
{
( $sub, $code ) = extract_delimited($code, q{'"}, q{\s*(?:\.\.\s*)?});
@ -68,6 +68,10 @@ if( open F, "find @ARGV -type f '(' -name '*.htm' -o -name '*.lua' ')' |" )
{
$res .= substr $sub, 1, length($sub) - 2;
}
else
{
undef $sub;
}
}
}
elsif( $code =~ /^(\[=*\[)/ )