-foreach my $changes (@changesfilecontent) {
- my @changes = split /[\r\n]+/, $changes;
+foreach my $changesfile (@changesfiles) {
+ my $changesfilecontent = $changesfilecontent{$changesfile};
+ if (not defined $changesfilecontent) {
+ print STDERR "Skipping changes file $changesfile; not present at remote end\n" if $verbose;
+ next;
+ }
+
+ my $date = $changesfile;
+ $date =~ s{^(?:.*/)?changes([0-9]+)\.txt$}{$1} or die "Can't extract date from changes filename $changesfile";
+
+ print STDERR "Processing changes file $changesfile\n" if $verbose;
+
+ my @changes = split /[\r\n]+/, $changesfilecontent;