diff options
author | David Prévot <taffit-guest> | 2010-11-05 21:39:07 +0000 |
---|---|---|
committer | David Prévot <taffit-guest> | 2010-11-05 21:39:07 +0000 |
commit | bf4e6d67e158bc99e78de790942edb3b49612cbe (patch) | |
tree | d779e63d4201bf47eac37550e7d230f2b4a71267 | |
parent | 1fa77e3884b12adf4d153f166155fa074a1a9914 (diff) |
Make smart_change.pl src-friendly
CVS version numbers
smart_change.pl: 1.7 -> 1.8
-rwxr-xr-x | smart_change.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/smart_change.pl b/smart_change.pl index 8d02654bf55..dcf2ce53527 100755 --- a/smart_change.pl +++ b/smart_change.pl @@ -70,7 +70,7 @@ my $substitute = eval "sub { \$_ = shift; $eval_opt_s; die \$@ if \$@; return \$ die "Invalid -s option" if $@; foreach my $argfile (@ARGV) { - $argfile =~ m+^(english.*)/(.*\.wml)+ or die "unknown path '$argfile'"; + $argfile =~ m+^(english.*)/(.*\.(wml|src))+ or die "unknown path '$argfile'"; my ($path, $file) = ($1, $2); verbose("File: $argfile"); |