more load tests and fixes for tests

[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / Component.pm

diff --git a/lib/DBIx/Class/DeploymentHandler/Component.pm b/lib/DBIx/Class/DeploymentHandler/Component.pm
index 33bf3a8..0c2ef93 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/Component.pm
+++ b/lib/DBIx/Class/DeploymentHandler/Component.pm
@@ -3,11 +3,13 @@ package DBIx::Class::DepolymentHandler::Component;
 use strict;
 use warnings;
 
+use Carp 'carp';
+
 sub connection  {
   my $self = shift;
   $self->next::method(@_);
 
-  $args = $_[3] || {};
+  my $args = $_[3] || {};
 
   return if $args->{ignore_version} || $ENV{DBIC_NO_VERSION_CHECK};