NotificationsYou must be signed in to change notification settings
Fork28
Star153

Commitc92e270

committed

Message style tuning

1 parent2fb605e commitc92e270Copy full SHA for c92e270

File tree

2 files changed

+11

-11

lines changed

src/pl/plperl
- expected
  - plperl_init.out
- plperl.c

2 files changed

+11

-11

lines changed

`‎src/pl/plperl/expected/plperl_init.out‎`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -10,5 +10,5 @@ SHOW plperl.on_plperl_init;`
`10`	`10`
`11`	`11`	`DO $$ warn 42 $$ language plperl;`
`12`	`12`	`ERROR: 'eval "string"' trapped by operation mask at line 2.`
`13`		`-CONTEXT:While executing plperl.on_plperl_init.`
	`13`	`+CONTEXT:while executing plperl.on_plperl_init`
`14`	`14`	`PL/Perl anonymous code block`

`‎src/pl/plperl/plperl.c‎`

Lines changed: 10 additions & 10 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`/**********************************************************************`
`2`	`2`	`* plperl.c - perl as a procedural language for PostgreSQL`
`3`	`3`	`*`
`4`		`- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.171 2010/03/09 22:34:38 tgl Exp $`
	`4`	`+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.172 2010/03/17 21:31:17 petere Exp $`
`5`	`5`	`*`
`6`	`6`	`**********************************************************************/`
`7`	`7`
`@@ -246,7 +246,7 @@ _PG_init(void)`
`246`	`246`	`NULL,NULL);`
`247`	`247`
`248`	`248`	`DefineCustomStringVariable("plperl.on_init",`
`249`		`-gettext_noop("Perl initialization code to execute when aperl interpreter is initialized."),`
	`249`	`+gettext_noop("Perl initialization code to execute when aPerl interpreter is initialized."),`
`250`	`250`	`NULL,`
`251`	`251`	`&plperl_on_init,`
`252`	`252`	`NULL,`
`@@ -422,7 +422,7 @@ select_perl_context(bool trusted)`
`422`	`422`	`if (SvTRUE(ERRSV))`
`423`	`423`	`ereport(ERROR,`
`424`	`424`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`425`		`-errdetail("While executing PostgreSQL::InServer::SPI::bootstrap.")));`
	`425`	`+errcontext("while executing PostgreSQL::InServer::SPI::bootstrap")));`
`426`	`426`	`}`
`427`	`427`
`428`	`428`	`/*`
`@@ -560,12 +560,12 @@ plperl_init_interp(void)`
`560`	`560`	`nargs,embedding,NULL)!=0)`
`561`	`561`	`ereport(ERROR,`
`562`	`562`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`563`		`-errcontext("While parsingperl initialization.")));`
	`563`	`+errcontext("while parsingPerl initialization")));`
`564`	`564`
`565`	`565`	`if (perl_run(plperl)!=0)`
`566`	`566`	`ereport(ERROR,`
`567`	`567`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`568`		`-errcontext("While runningperl initialization.")));`
	`568`	`+errcontext("while runningPerl initialization")));`
`569`	`569`
`570`	`570`	`#ifdefWIN32`
`571`	`571`
`@@ -703,15 +703,15 @@ plperl_trusted_init(void)`
`703`	`703`	`if (SvTRUE(ERRSV))`
`704`	`704`	`ereport(ERROR,`
`705`	`705`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`706`		`-errcontext("While executing PLC_SAFE_BAD.")));`
	`706`	`+errcontext("while executing PLC_SAFE_BAD")));`
`707`	`707`	`}`
`708`	`708`	`else`
`709`	`709`	`{`
`710`	`710`	`eval_pv(PLC_SAFE_OK, FALSE);`
`711`	`711`	`if (SvTRUE(ERRSV))`
`712`	`712`	`ereport(ERROR,`
`713`	`713`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`714`		`-errcontext("While executing PLC_SAFE_OK.")));`
	`714`	`+errcontext("while executing PLC_SAFE_OK")));`
`715`	`715`
`716`	`716`	`if (GetDatabaseEncoding()==PG_UTF8)`
`717`	`717`	`{`
`@@ -724,7 +724,7 @@ plperl_trusted_init(void)`
`724`	`724`	`if (SvTRUE(ERRSV))`
`725`	`725`	`ereport(ERROR,`
`726`	`726`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`727`		`-errcontext("While executing utf8fix.")));`
	`727`	`+errcontext("while executing utf8fix")));`
`728`	`728`	`}`
`729`	`729`
`730`	`730`	`/* switch to the safe require opcode */`
`@@ -744,7 +744,7 @@ plperl_trusted_init(void)`
`744`	`744`	`if (SvTRUE(ERRSV))`
`745`	`745`	`ereport(ERROR,`
`746`	`746`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`747`		`-errcontext("While executing plperl.on_plperl_init.")));`
	`747`	`+errcontext("while executing plperl.on_plperl_init")));`
`748`	`748`	`}`
`749`	`749`
`750`	`750`	`}`
`@@ -760,7 +760,7 @@ plperl_untrusted_init(void)`
`760`	`760`	`if (SvTRUE(ERRSV))`
`761`	`761`	`ereport(ERROR,`
`762`	`762`	`(errmsg("%s",strip_trailing_ws(SvPV_nolen(ERRSV))),`
`763`		`-errcontext("While executing plperl.on_plperlu_init.")));`
	`763`	`+errcontext("while executing plperl.on_plperlu_init")));`
`764`	`764`	`}`
`765`	`765`	`}`
`766`	`766`

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!

Commitc92e270

File tree

2 files changed

2 files changed

`‎src/pl/plperl/expected/plperl_init.out‎`

`‎src/pl/plperl/plperl.c‎`

0 commit comments