Use ->count instead of ->next to check if version storage is deployed

[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / VersionStorage / Standard / VersionResultSet.pm

diff --git a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm
index fe91ff8..e01517e 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm
+++ b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm
@@ -11,7 +11,7 @@ use Try::Tiny;
 
 sub version_storage_is_installed {
   my $self = shift;
-  try { $self->next; 1 } catch { undef }
+  try { $self->count; 1 } catch { undef }
 }
 
 sub database_version {