X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FODBC400.pm;h=7fdd1f8cb51b21a54b40431ba902b8de387c73bd;hb=6fe735fad298585c8d6982d496bcbb7b75400a6b;hp=5800ab48435b53ff0a04a241dc5dde4bd390ca3b;hpb=d23f094eba0891a2afcc699c6de3be88202d9751;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/ODBC400.pm b/lib/DBIx/Class/Storage/DBI/ODBC400.pm
index 5800ab4..7fdd1f8 100644
--- a/lib/DBIx/Class/Storage/DBI/ODBC400.pm
+++ b/lib/DBIx/Class/Storage/DBI/ODBC400.pm
@@ -12,7 +12,7 @@ sub last_insert_id
 
     # get the schema/table separator:
     #    '.' when SQL naming is active
-    #    '/' when sytem naming is active
+    #    '/' when system naming is active
     my $sep = $dbh->get_info(41);
     my $sth = $dbh->prepare_cached(
         "SELECT IDENTITY_VAL_LOCAL() FROM SYSIBM${sep}SYSDUMMY1", {}, 3);
@@ -36,14 +36,6 @@ over ODBC
   __PACKAGE__->load_components(qw/PK::Auto Core/);
   __PACKAGE__->set_primary_key('id');
 
-  # In your Schema class
-  __PACKAGE__->storage_type('::DBI::ODBC400');
-
-=for comment
-$dbh->get_info(17) returns 'DB2/400 SQL' for an active DB2/400 connection over
-ODBC.  This should facility automagically loading this module when
-appropriate instead of manually specifying the storage_type as shown above.
-
 
 =head1 DESCRIPTION
 
@@ -54,6 +46,8 @@ This class implements autoincrements for DB2/400 over ODBC.
 
 Marc Mims C<< <marc@questright.com> >>
 
+Based on DBIx::Class::Storage::DBI::DB2 by Jess Robinson.
+
 =head1 LICENSE
 
 You may distribute this code under the same terms as Perl itself.