NotificationsYou must be signed in to change notification settings
Fork6
Star31

Commit967316e

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 parent7721647 commit967316eCopy full SHA for 967316e

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!

Commit967316e

File tree

1 file changed

1 file changed

`‎src/tools/add_commit_links.pl‎`

0 commit comments