+ print $out $mangler->($line, $dst);
+ }
+
+ my $patched_chunks = join ' ', @{$patched_chunks{$dst}};
+ my $expected_chunks = join ' ', @{$expected_chunks{$file}};
+ unless ($patched_chunks eq $expected_chunks) {
+ die "File $dst was not properly patched (got \"$patched_chunks\", expected \"$expected_chunks\")\n";