Better error reporting.

CVS version numbers

smart_change.pl: 1.5 -> 1.6

1 files changed, 1 insertions, 1 deletions

diff --git a/smart_change.pl b/smart_change.pl
index 0e34982bac3..89870dcc5da 100755
--- a/smart_change.pl
+++ b/smart_change.pl
@@ -66,7 +66,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 "pattern does not match";
+        $argfile =~ m+^(english.*)/(.*\.wml)+ or die "unknown path '$argfile'";
         my ($path, $file) = ($1, $2);
 
         verbose("File: $argfile");