#143 fixed

yegor256 · yegor256 · commit 2058fd0b4e5a · 2025-03-09T09:41:47.000+03:00
diff --git a/bibcop.pl b/bibcop.pl
@@ -1111,6 +1111,8 @@ sub fail {
       $fixed = $fixed . entry_fix(%entry);
       $seen{$name} = 1;
     }
+    my ($head) = $bib =~ /^((?:%.*\n)+\n*)/;
+    $fixed = $head . $fixed;
     if (exists $args{'-i'} or exists $args{'--in-place'}) {
       open(my $out, '>', $file) or error('Cannot open file for writing: ' . $file);
       print $out $fixed;

Original file line number	Diff line number	Diff line change
`@@ -1111,6 +1111,8 @@ sub fail {`
`1111`	`1111`	`$fixed = $fixed . entry_fix(%entry);`
`1112`	`1112`	`$seen{$name} = 1;`
`1113`	`1113`	`}`
	`1114`	`+ my ($head) = $bib =~ /^((?:%.\n)+\n)/;`
	`1115`	`+ $fixed = $head . $fixed;`
`1114`	`1116`	`if (exists $args{'-i'} or exists $args{'--in-place'}) {`
`1115`	`1117`	`open(my $out, '>', $file) or error('Cannot open file for writing: ' . $file);`
`1116`	`1118`	`print $out $fixed;`