spec2changelog: Preserve full author names if they exist

Conan-Kudo · Conan-Kudo · commit fbc01419d455 · 2018-07-25T10:24:02.000-04:00
diff --git a/spec2changelog b/spec2changelog
@@ -77,7 +77,7 @@ foreach my $time (sort { $b <=> $a } (keys(%items))) {
     $head =~ s/^\s+//;
     $head =~ s/^\-\s+//;
     if ($head =~ m/^(.+?)\s*<(.+?\@.+?\..+?)>(\s*.*)$/) {
-        $head = $2;
+        $head = "$1 <$2>";
     } elsif ($head =~ m/^<(.+?\@.+?\..+?)>(\s*.*)$/) {
         $head = $1;
     }

Original file line number	Diff line number	Diff line change
`@@ -77,7 +77,7 @@ foreach my $time (sort { $b <=> $a } (keys(%items))) {`
`77`	`77`	`$head =~ s/^\s+//;`
`78`	`78`	`$head =~ s/^\-\s+//;`
`79`	`79`	`if ($head =~ m/^(.+?)\s<(.+?\@.+?\..+?)>(\s.*)$/) {`
`80`		`- $head = $2;`
	`80`	`+ $head = "$1 <$2>";`
`81`	`81`	`} elsif ($head =~ m/^<(.+?\@.+?\..+?)>(\s.)$/) {`
`82`	`82`	`$head = $1;`
`83`	`83`	`}`