diff options
| author | Jo-Philipp Wich <jow@openwrt.org> | 2012-04-03 00:35:54 +0000 |
|---|---|---|
| committer | Jo-Philipp Wich <jow@openwrt.org> | 2012-04-03 00:35:54 +0000 |
| commit | 3501cbea52d17bc19dea2bc90312ba8954d938a1 (patch) | |
| tree | 87fbedfaef5320d297358948ea542717d465b224 /build/i18n-scan.pl | |
| parent | ee09d98cd5abe75494b9f5cd9db4a2e2cb0b3c8b (diff) | |
build: rework checks in i18n-scan.pl
Diffstat (limited to 'build/i18n-scan.pl')
| -rwxr-xr-x | build/i18n-scan.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/build/i18n-scan.pl b/build/i18n-scan.pl index 1243545ac..781ac6480 100755 --- a/build/i18n-scan.pl +++ b/build/i18n-scan.pl @@ -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 =~ /^(\[=*\[)/ ) |