build: remove debugging code from i18n-scan.pl
authorJo-Philipp Wich <jow@openwrt.org>
Sun, 17 May 2009 20:00:02 +0000 (20:00 +0000)
committerJo-Philipp Wich <jow@openwrt.org>
Sun, 17 May 2009 20:00:02 +0000 (20:00 +0000)
build/i18n-scan.pl

index 102ae5f7aaff9db39e556ecb61cf562211f71249..03ab0292eaba69fcfb1a6d2d59a0fe4f16725846 100755 (executable)
@@ -71,11 +71,8 @@ if( open F, "find $ARGV[0] -type f -name '*.htm' -or -name '*.lua' |" )
                                        )
                                /$1 || $2/segx
                        ) {
-                               #$text =~ s/^ .*? (?: (?: translate f? | i18n ) [\s\n]* ( \( ) | ( <%: -? ) ) / $1 || $2 /sex;
-                               #warn "T[$text]";
                                my $code;
 
-                               reparse:
                                ( $code, $text ) = extract_codeblock( $text, '', '^', '()' );
                                if( ! $code ) {
                                        ( $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 );
-                               #warn "M[$code]";
-                               #last;
-               
                                if( $k && defined($v) )
                                {
                                        if( $v )