From: Arthur Axel 'fREW' Schmidt Date: Mon, 29 Mar 2010 02:54:22 +0000 (-0500) Subject: simplify a tiny bit of code X-Git-Tag: v0.001000_01~30 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=commitdiff_plain;h=627581cdaaf29719081ce6c9675063ada752afd3 simplify a tiny bit of code --- diff --git a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm index b742588..23081ab 100644 --- a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm +++ b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm @@ -368,11 +368,11 @@ method _read_sql_file($file) { sub downgrade_single_step { my $self = shift; - my @version_set = @{ shift @_ }; + my $version_set = shift @_; my $sql = $self->_run_sql_and_perl($self->_ddl_schema_down_consume_filenames( $self->storage->sqlt_type, - \@version_set, + $version_set, )); return ['', $sql]; @@ -380,11 +380,11 @@ sub downgrade_single_step { sub upgrade_single_step { my $self = shift; - my @version_set = @{ shift @_ }; + my $version_set = shift @_; my $sql = $self->_run_sql_and_perl($self->_ddl_schema_up_consume_filenames( $self->storage->sqlt_type, - \@version_set, + $version_set, )); return ['', $sql]; }