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

Commiteefdbba

Browse files
committed
Currently, nonfatal warnings are not trapped (as they should be) by
plperl - the attached small patch remedies that omission, and adds asmall regression test for error and warning output - the new regressioninput and expected output are in separate attached files.Andrew Dunstan
1 parent77838f7 commiteefdbba

File tree

4 files changed

+54
-2
lines changed

4 files changed

+54
-2
lines changed

‎src/pl/plperl/GNUmakefile

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
# Makefile for PL/Perl
2-
# $PostgreSQL: pgsql/src/pl/plperl/GNUmakefile,v 1.23 2005/07/06 22:33:39 momjian Exp $
2+
# $PostgreSQL: pgsql/src/pl/plperl/GNUmakefile,v 1.24 2005/07/06 22:44:49 momjian Exp $
33

44
subdir = src/pl/plperl
55
top_builddir = ../../..
Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
-- test warnings and errors from plperl
2+
create or replace function perl_elog(text) returns void language plperl as $$
3+
4+
my $msg = shift;
5+
elog(NOTICE,$msg);
6+
7+
$$;
8+
select perl_elog('explicit elog');
9+
NOTICE: explicit elog
10+
perl_elog
11+
-----------
12+
13+
(1 row)
14+
15+
create or replace function perl_warn(text) returns void language plperl as $$
16+
17+
my $msg = shift;
18+
warn($msg);
19+
20+
$$;
21+
select perl_warn('implicit elog via warn');
22+
NOTICE: implicit elog via warn at (eval 7) line 4.
23+
24+
perl_warn
25+
-----------
26+
27+
(1 row)
28+
29+

‎src/pl/plperl/plperl.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@
3333
* ENHANCEMENTS, OR MODIFICATIONS.
3434
*
3535
* IDENTIFICATION
36-
* $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.80 2005/07/06 22:33:39 momjian Exp $
36+
* $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.81 2005/07/06 22:44:49 momjian Exp $
3737
*
3838
**********************************************************************/
3939

‎src/pl/plperl/sql/plperl_elog.sql

Lines changed: 23 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,23 @@
1+
-- test warnings and errors from plperl
2+
3+
create or replacefunctionperl_elog(text) returns void language plperlas $$
4+
5+
my $msg= shift;
6+
elog(NOTICE,$msg);
7+
8+
$$;
9+
10+
select perl_elog('explicit elog');
11+
12+
create or replacefunctionperl_warn(text) returns void language plperlas $$
13+
14+
my $msg= shift;
15+
warn($msg);
16+
17+
$$;
18+
19+
select perl_warn('implicit elog via warn');
20+
21+
22+
23+

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp