From: Jason Mills <jmmills@cpan.org>
Date: Fri, 11 Mar 2011 01:16:53 +0000 (-0800)
Subject: Fix 'exit via next' warning from DBIx::Class::ResultSource::sequence
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b0bea843cd41bd5f81805bc0175c23465f8247f;p=dbsrgits%2FDBIx-Class-Historic.git

Fix 'exit via next' warning from DBIx::Class::ResultSource::sequence
---

diff --git a/Changes b/Changes
index 2d807dd..1306d67 100644
--- a/Changes
+++ b/Changes
@@ -9,6 +9,7 @@ Revision history for DBIx::Class
           plain ::Storage::DBI
 
     * Fixes
+        - Fix exiting via next warnings from ResultSource
         - Fix ::Storage::DBI::* MRO problems on 5.8.x perls
         - Disable mysql_auto_reconnect for MySQL - depending on the ENV
           it sometimes defaults to on and causes major borkage on older
diff --git a/lib/DBIx/Class/ResultSource.pm b/lib/DBIx/Class/ResultSource.pm
index f9e8050..f0f4fdd 100644
--- a/lib/DBIx/Class/ResultSource.pm
+++ b/lib/DBIx/Class/ResultSource.pm
@@ -633,7 +633,7 @@ sub sequence {
   my ($self,$seq) = @_;
 
   my @pks = $self->primary_columns
-    or next;
+    or return;
 
   $_->{sequence} = $seq
     for values %{ $self->columns_info (\@pks) };