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

build: remove debugging code from i18n-scan.pl

Browse source
This commit is contained in:
Jo-Philipp Wich 2009-05-17 20:00:02 +00:00
parent 5193631c04
commit 7df655af2a
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
build/i18n-scan.pl
View file

@ -71,11 +71,8 @@ if( open F, "find $ARGV[0] -type f -name '*.htm' -or -name '*.lua' |" )
) )
/$1 || $2/segx /$1 || $2/segx
) { ) {
#$text =~ s/^ .*? (?: (?: translate f? | i18n ) [\s\n]* ( \( ) | ( <%: -? ) ) / $1 || $2 /sex;
#warn "T[$text]";
my $code; my $code;
reparse:
( $code, $text ) = extract_codeblock( $text, '', '^', '()' ); ( $code, $text ) = extract_codeblock( $text, '', '^', '()' );
if( ! $code ) { if( ! $code ) {
( $code, $text ) = extract_codeblock( $text, '', '^', '<>' ); ( $code, $text ) = extract_codeblock( $text, '', '^', '<>' );
@ -91,9 +88,6 @@ if( open F, "find $ARGV[0] -type f -name '*.htm' -or -name '*.lua' |" )
} }
my ( $k, $v ) = _parse( $code ); my ( $k, $v ) = _parse( $code );
#warn "M[$code]";
#last;
if( $k && defined($v) ) if( $k && defined($v) )
{ {
if( $v ) if( $v )