Make process-changes.pl report wrong fields count

1 files changed, 3 insertions, 2 deletions

diff --git a/scripts/process-changes.pl b/scripts/process-changes.pl
index 4d2682c2..1246a42e 100755
--- a/scripts/process-changes.pl
+++ b/scripts/process-changes.pl
@@ -539,8 +539,9 @@ while(<IN>) {
   next if /^#/;
 
   my(@fields)=split(/\t/);
-  die "$program: Bad line $.: $_\n"
-    unless scalar(@fields) == $expected_n_fields;
+  my $actual_n_fields=scalar(@fields);
+  die "$program: Bad line has $actual_n_fields fields expected $expected_n_fields $.: $_\n"
+    unless $actual_n_fields == $expected_n_fields;
 
   if($fields[1] eq 'type') {
     my($old_ver, $dummy1, $old_name, $old_args, $new_ver, $dummy2, $new_name, $new_args,$notes)=@fields;