X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FOracle%2FGeneric.pm;h=05e2c8b84bb4696ae9c02e57175e46670a6bf0d2;hb=f8583f8f51fd7ac8eeb348ad390219152a8a3bf8;hp=8b64b3c2452401593271cae15278c0bb53090ee9;hpb=df6e3f5c0c1a8250692b4f89e4c72c235d178bd2;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
index 8b64b3c..05e2c8b 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
@@ -146,12 +146,12 @@ sub _dbh_get_autoinc_seq {
   $sth->execute (@bind);
 
   while (my ($insert_trigger, $schema) = $sth->fetchrow_array) {
-    my ($seq_name) = $insert_trigger =~ m!("?[.\w]+"?)\.nextval!i;
+    my ($seq_name) = $insert_trigger =~ m!("?[.\w"]+?"?)\.nextval!i;
 
     next unless $seq_name;
 
     if ($seq_name !~ /\./) {
-      $seq_name = "${schema}.${seq_name}";
+      $seq_name = join '.' => map $self->sql_maker->_quote($_), $schema, $seq_name;
     }
 
     return $seq_name;