- Corrected a minor typo in a comment.

- Added an attribution in the documentation code the module is based on.

diff --git a/lib/DBIx/Class/Storage/DBI/ODBC400.pm b/lib/DBIx/Class/Storage/DBI/ODBC400.pm
index 2167d13..7fdd1f8 100644 (file)
--- 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);
@@ -46,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.