Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

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

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit9287567

Browse files
committed
Fix bogus order of cleanup steps in plperl_inline_handler.
Per Alex Hunsaker
1 parentd38603b commit9287567

File tree

1 file changed

+6
-5
lines changed

1 file changed

+6
-5
lines changed

‎src/pl/plperl/plperl.c

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
/**********************************************************************
22
* plperl.c - perl as a procedural language for PostgreSQL
33
*
4-
* $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.173 2010/03/18 19:02:46 petere Exp $
4+
* $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.174 2010/04/18 19:16:06 tgl Exp $
55
*
66
**********************************************************************/
77

@@ -1153,19 +1153,20 @@ plperl_inline_handler(PG_FUNCTION_ARGS)
11531153
}
11541154
PG_CATCH();
11551155
{
1156-
current_call_data=save_call_data;
1157-
restore_context(oldcontext);
11581156
if (desc.reference)
11591157
SvREFCNT_dec(desc.reference);
1158+
current_call_data=save_call_data;
1159+
restore_context(oldcontext);
11601160
PG_RE_THROW();
11611161
}
11621162
PG_END_TRY();
11631163

1164-
current_call_data=save_call_data;
1165-
restore_context(oldcontext);
11661164
if (desc.reference)
11671165
SvREFCNT_dec(desc.reference);
11681166

1167+
current_call_data=save_call_data;
1168+
restore_context(oldcontext);
1169+
11691170
error_context_stack=pl_error_context.previous;
11701171

11711172
PG_RETURN_VOID();

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp