build: allow multiple search directories in i18n-scan.pl

diff --git a/build/i18n-scan.pl b/build/i18n-scan.pl
index 8523ced1ab904ce8ceab20b98703f05446599ac7..a31952bbbc840468104b48bf1d14dce043ea4718 100755 (executable)
--- 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 ) )
        {