NotificationsYou must be signed in to change notification settings
Fork6
Star31

Commitf057781

committed

Improve Perl script which adds commit links to release notes

Reported-by: Andrew DunstanDiscussion:https://postgr.es/m/b2465837-56df-4794-a0b5-5e6ed44ed870@dunslane.netAuthor: Andrew DunstanBackpatch-through: 12

1 parent4c57fac commitf057781Copy full SHA for f057781

File tree

1 file changed

-12

lines changed

src/tools
- add_commit_links.pl

1 file changed

-12

lines changed

`‎src/tools/add_commit_links.pl`

Lines changed: 9 additions & 12 deletions

Original file line number	Diff line number	Diff line change
`@@ -51,9 +51,8 @@ sub process_file`
`51`	`51`	`$file =~m/-(\d+)\./;`
`52`	`52`	`my$major_version =$1;`
`53`	`53`
`54`		`-open(my$fh,'<',$file) \|\|die"could not open file%s:$!\n",$file;`
`55`		`-open(my$tfh,'>',$tmpfile) \|\|die"could not open file%s:$!\n",`
`56`		`-$tmpfile;`
	`54`	`+open(my$fh,'<',$file) \|\|die"could not open file$file:$!\n";`
	`55`	`+open(my$tfh,'>',$tmpfile) \|\|die"could not open file$tmpfile:$!\n";`
`57`	`56`
`58`	`57`	`while (<$fh>)`
`59`	`58`	`{`
`@@ -64,9 +63,9 @@ sub process_file`
`64`	`63`	`# skip over commit links because we will add them below`
`65`	`64`	`next`
`66`	`65`	`if (!$in_comment &&`
`67`		`-m{^\s<ulink url="&commit_baseurl;[\da-f]+">§</ulink>\s$});`
	`66`	`+m{^\s<ulink url="&commit_baseurl;[[:xdigit:]]+">§</ulink>\s$});`
`68`	`67`
`69`		`-if ($in_comment &&m/\[([\da-f]+)\]/)`
	`68`	`+if ($in_comment &&m/\[([[:xdigit:]]+)\]/)`
`70`	`69`	`{`
`71`	`70`	`my$hash =$1;`
`72`	`71`
`@@ -88,23 +87,21 @@ sub process_file`
`88`	`87`	`{`
`89`	`88`	`formy$hash (@hashes)`
`90`	`89`	`{`
`91`		`-print({$tfh}`
`92`		`-"$prev_leading_space<ulink url=\"&commit_baseurl;$hash\">§</ulink>\n"`
`93`		`-);`
	`90`	`+print$tfh`
	`91`	`+"$prev_leading_space<ulink url=\"&commit_baseurl;$hash\">§</ulink>\n";`
`94`	`92`	`}`
`95`	`93`	`@hashes = ();`
`96`	`94`	`}`
`97`	`95`	`else`
`98`	`96`	`{`
`99`		`-printf(`
`100`		`-"hashes found but no matching text found for placement on line%s\n",`
`101`		`-$lineno);`
	`97`	`+print`
	`98`	`+"hashes found but no matching text found for placement on line$lineno\n";`
`102`	`99`	`exit(1);`
`103`	`100`	`}`
`104`	`101`	`}`
`105`	`102`	`}`
`106`	`103`
`107`		`-print({$tfh}$_);`
	`104`	`+print$tfh$_;`
`108`	`105`
`109`	`106`	`$prev_line_ended_with_paren =m/\)\s*$/;`
`110`	`107`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commitf057781

File tree

1 file changed

1 file changed

`‎src/tools/add_commit_links.pl`

0 commit comments