[Bast-commits] r3214 - branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI

[dnm at dev.catalyst.perl.org]

Author: dnm
Date: 2007-04-26 18:58:16 +0100 (Thu, 26 Apr 2007)
New Revision: 3214

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle.pm
Log:
I'm a retard.



Modified: branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle.pm	2007-04-26 16:43:17 UTC (rev 3213)
+++ branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle.pm	2007-04-26 17:58:16 UTC (rev 3214)
@@ -5,13 +5,9 @@
 
 use base qw/DBIx::Class::Storage::DBI/;
 
-print STDERR "Oracle.pm got called.\n";
-
 sub _rebless {
     my ($self) = @_;
 
-    print STDERR "Rebless got called.\n";
-
     my $version = eval { $self->_dbh->get_info(18); };
 
     if ( !$@ ) {
@@ -22,12 +18,9 @@
           ? 'DBIx::Class::Storage::DBI::Oracle::WhereJoins'
           : 'DBIx::Class::Storage::DBI::Oracle::Generic';
 
-        print STDERR "Class: $class\n";
-
         # Load and rebless
         eval "require $class";
 
-        print STDERR "\$@: $@\n";
         bless $self, $class unless $@;
     }
 }