X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FWithReasonableDefaults.pm;h=e9b85f7a7c6d846336d1d4f2bf8c8ba49a7b673d;hp=2f1c9136ea34a4e9fef99b9985db5ad124d01e89;hb=48c3a5620bef22e3387ccbd946b7729718772734;hpb=4f85efc6aee3c4bbb15b6bd3e6d44837fa97f360 diff --git a/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm b/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm index 2f1c913..e9b85f7 100644 --- a/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm +++ b/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm @@ -23,7 +23,7 @@ around prepare_downgrade => sub { my $from_version = shift || $self->database_version; my $to_version = shift || $self->schema_version; - my $version_set = shift || [$to_version, $from_version]; + my $version_set = shift || [$from_version, $to_version]; $self->$orig($from_version, $to_version, $version_set); }; @@ -64,7 +64,7 @@ Defaulted args: my $from_version = $self->database_version; my $to_version = $self->schema_version; - my $version_set = [$from_version, $to_version]; + my $version_set = [$to_version]; =head2 install_resultsource