diff options
Diffstat (limited to 'build/i18n-scan.pl')
| -rwxr-xr-x | build/i18n-scan.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/build/i18n-scan.pl b/build/i18n-scan.pl index 8523ced1a..a31952bbb 100755 --- a/build/i18n-scan.pl +++ b/build/i18n-scan.pl @@ -4,7 +4,7 @@ use strict; use warnings; use Text::Balanced qw(extract_bracketed extract_delimited extract_tagged); -@ARGV == 1 || die "Usage: $0 <source direcory>\n"; +@ARGV >= 1 || die "Usage: $0 <source direcory>\n"; my %stringtable; @@ -31,7 +31,7 @@ sub dec_tpl_str } -if( open F, "find $ARGV[0] -type f '(' -name '*.htm' -or -name '*.lua' ')' |" ) +if( open F, "find @ARGV -type f '(' -name '*.htm' -or -name '*.lua' ')' |" ) { while( defined( my $file = readline F ) ) { |