Preparing for 0.02 release

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / PK / Auto / Oracle.pm

diff --git a/lib/DBIx/Class/PK/Auto/Oracle.pm b/lib/DBIx/Class/PK/Auto/Oracle.pm
index 40f4190..1186b1a 100644 (file)
--- a/lib/DBIx/Class/PK/Auto/Oracle.pm
+++ b/lib/DBIx/Class/PK/Auto/Oracle.pm
@@ -19,7 +19,9 @@ sub get_autoinc_seq {
   my $self = shift;
   
   # return the user-defined sequence if known
-  return $self->sequence if ($self->sequence);
+  if ($self->sequence) {
+    return $self->{_autoinc_seq} = $self->sequence;
+  }
   
   # look up the correct sequence automatically
   my $dbh = $self->storage->dbh;
@@ -58,6 +60,7 @@ This class implements autoincrements for Oracle.
 =head1 AUTHORS
 
 Andy Grundman <andy@hybridized.org>
+
 Scott Connelly <scottsweep@yahoo.com>
 
 =head1 LICENSE