[Bast-commits] r9406 - in DBIx-Class/0.08/trunk: lib/DBIx/Class/Storage/DBI/Oracle t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-05-20 15:28:18 +0100 (Thu, 20 May 2010)
New Revision: 9406

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
   DBIx-Class/0.08/trunk/t/73oracle.t
Log:
support INSERT OR UPDATE triggers for Oracle

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2010-05-19 00:49:47 UTC (rev 9405)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2010-05-20 14:28:18 UTC (rev 9406)
@@ -85,7 +85,7 @@
     {
       $schema ? (owner => $schema) : (),
       table_name => $table || $source_name,
-      triggering_event => 'INSERT',
+      triggering_event => { -like => '%INSERT%' },
       status => 'ENABLED',
      },
   );

Modified: DBIx-Class/0.08/trunk/t/73oracle.t
===================================================================
--- DBIx-Class/0.08/trunk/t/73oracle.t	2010-05-19 00:49:47 UTC (rev 9405)
+++ DBIx-Class/0.08/trunk/t/73oracle.t	2010-05-20 14:28:18 UTC (rev 9406)
@@ -87,7 +87,7 @@
 });
 $dbh->do(qq{
   CREATE OR REPLACE TRIGGER cd_insert_trg
-  BEFORE INSERT ON cd
+  BEFORE INSERT OR UPDATE ON cd
   FOR EACH ROW
   BEGIN
     IF :new.cdid IS NULL THEN