X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FOracle.pm;h=693122d92e3bd5dd971e29eba5af4bf9e703c43a;hb=a47e6e743dfce14a61c2f2c4d5214d88c1c35b36;hp=27ff5d37a3457fd32db4708b8f2fe9df9b645885;hpb=3bdcf490c99abda52aea5346fddb6f9f6c43bb2c;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm b/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
index 27ff5d3..693122d 100644
--- a/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
@@ -9,7 +9,7 @@ use base qw/
 use Carp::Clan qw/^DBIx::Class/;
 use mro 'c3';
 
-our $VERSION = '0.07008';
+our $VERSION = '0.07010';
 
 =head1 NAME
 
@@ -49,7 +49,7 @@ sub _setup {
 sub _table_as_sql {
     my ($self, $table) = @_;
 
-    return $self->_quote_table_name($table);
+    return $self->_quote($table);
 }
 
 sub _tables_list { 
@@ -122,8 +122,14 @@ sub _table_uniq_info {
 }
 
 sub _table_comment {
-    my ( $self, $table ) = @_;
-     my ($table_comment) = $self->schema->storage->dbh->selectrow_array(
+    my $self = shift;
+    my ($table) = @_;
+
+    my $table_comment = $self->next::method(@_);
+
+    return $table_comment if $table_comment;
+
+    ($table_comment) = $self->schema->storage->dbh->selectrow_array(
         q{
             SELECT comments FROM all_tab_comments
             WHERE owner = ? 
@@ -136,8 +142,14 @@ sub _table_comment {
 }
 
 sub _column_comment {
-    my ( $self, $table, $column_number, $column_name ) = @_;
-    my ($column_comment) = $self->schema->storage->dbh->selectrow_array(
+    my $self = shift;
+    my ($table, $column_number, $column_name) = @_;
+
+    my $column_comment = $self->next::method(@_);
+
+    return $column_comment if $column_comment;
+
+    ($column_comment) = $self->schema->storage->dbh->selectrow_array(
         q{
             SELECT comments FROM all_col_comments
             WHERE owner = ?