From: John Napiorkowski <jjn1056@yahoo.com>
Date: Tue, 27 Dec 2011 15:45:26 +0000 (-0500)
Subject: let you install to a given point in the version history
X-Git-Tag: v0.001006~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8c8cb14808f8faa08c423d3520fdfaff2dcc39e;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

let you install to a given point in the version history
---

diff --git a/Changes b/Changes
index ad13a3e..3cd404f 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+       - Fix install to allow you to deploy to a given version (jnap)
        - Fix the backup method to use storage, not schema (jnap)
        - Fix the reasonable defaults for downgrading (jnap)
        - Stop warning all the time (ribasushi)
diff --git a/lib/DBIx/Class/DeploymentHandler/Dad.pm b/lib/DBIx/Class/DeploymentHandler/Dad.pm
index db9eaec..af14267 100644
--- a/lib/DBIx/Class/DeploymentHandler/Dad.pm
+++ b/lib/DBIx/Class/DeploymentHandler/Dad.pm
@@ -46,7 +46,7 @@ sub install {
   croak 'Install not possible as versions table already exists in database'
     if $self->version_storage_is_installed;
 
-  my $ddl = $self->deploy;
+  my $ddl = $self->deploy({version=>$self->to_version});
 
   $self->add_database_version({
     version     => $self->to_version,