From 1ade4b33f6357a1491bd95b3a8340c2b3bded31f Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Thu, 30 Dec 2004 00:30:40 +0000
Subject: [PATCH] Triggers should return TRIGGER not OPAQUE. Looks like this
script got overlooked in 7.3 updates. Not a critical fix but avoids a notice
when the resulting SQL script is executed.
---
contrib/oracle/Ora2Pg.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/contrib/oracle/Ora2Pg.pm b/contrib/oracle/Ora2Pg.pm
index fd6656f8b85..0fbecba007b 100644
--- a/contrib/oracle/Ora2Pg.pm
+++ b/contrib/oracle/Ora2Pg.pm
@@ -881,7 +881,7 @@ print STDERR "Add triggers definition...\n" if ($self->{debug});
if ($self->{export_schema}) {
$sql_output .= "SET search_path = $self->{schema}, pg_catalog;\n\n";
}
- $sql_output .= "CREATE FUNCTION pg_fct_\L$trig->[0]\E () RETURNS OPAQUE AS '\n$trig->[4]\n' LANGUAGE 'plpgsql'\n\n";
+ $sql_output .= "CREATE FUNCTION pg_fct_\L$trig->[0]\E () RETURNS TRIGGER AS '\n$trig->[4]\n' LANGUAGE 'plpgsql'\n\n";
$sql_output .= "CREATE TRIGGER \L$trig->[0]\E\n\t$trig->[1] $trig->[2] ON \"\L$trig->[3]\E\" FOR EACH ROW\n\tEXECUTE PROCEDURE pg_fct_\L$trig->[0]\E();\n\n";
}
}
--
GitLab