diff options
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/process-changes.pl | 5 |
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; |