[Bast-commits] r6390 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-23 21:04:01 +0000 (Sat, 23 May 2009)
New Revision: 6390

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase.pm
Log:
minor clean up

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-05-23 20:59:17 UTC (rev 6389)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-05-23 21:04:01 UTC (rev 6390)
@@ -20,8 +20,8 @@
 }
 
 sub _dbh_last_insert_id {
-    my $self = shift;
-    ($self->_dbh->selectrow_array('select @@identity'))[0];
+    my ($self, $dbh, $source, $col) = @_;
+    return ($dbh->selectrow_array('select @@identity'))[0];
 }
 
 1;