changelog

[dbsrgits/DBIx-Class-Fixtures.git] / lib / DBIx / Class / Fixtures.pm

diff --git a/lib/DBIx/Class/Fixtures.pm b/lib/DBIx/Class/Fixtures.pm
index d3ef790..c0681db 100644 (file)
--- a/lib/DBIx/Class/Fixtures.pm
+++ b/lib/DBIx/Class/Fixtures.pm
@@ -23,7 +23,7 @@ our $namespace_counter = 0;
 __PACKAGE__->mk_group_accessors( 'simple' => qw/config_dir
     _inherited_attributes debug schema_class dumped_objects config_attrs/);
 
-our $VERSION = '1.001026';
+our $VERSION = '1.001027_02';
 
 $VERSION = eval $VERSION;
 
@@ -602,7 +602,7 @@ sub dump {
       do {
         #read config
         my $config_file = io->catfile($self->config_dir, $params->{config});
-        $self->load_config_file($config_file);
+        $self->load_config_file("$config_file");
       };
   } elsif ($params->{all}) {
     my %excludes = map {$_=>1} @{$params->{excludes}||[]};
@@ -628,7 +628,7 @@ sub dump {
   }
 
   $self->msg("generating  fixtures");
-  my $tmp_output_dir = io->dir(tempdir);;
+  my $tmp_output_dir = io->dir(tempdir);
 
   if (-e "$tmp_output_dir") {
     $self->msg("- clearing existing $tmp_output_dir");
@@ -804,11 +804,11 @@ sub dump_object {
         },
         catfile => sub {
           my ($self, @args) = @_;
-          io->catfile(@args);
+          "".io->catfile(@args);
         },
         catdir => sub {
           my ($self, @args) = @_;
-          io->catdir(@args);
+          "".io->catdir(@args);
         },
       };
 
@@ -1255,7 +1255,7 @@ sub populate {
       return DBIx::Class::Exception->throw('connection details must be an arrayref');
     }
     $schema = $self->_generate_schema({
-      ddl => $ddl_file,
+      ddl => "$ddl_file",
       connection_details => delete $params->{connection_details},
       %{$params}
     });
@@ -1270,7 +1270,6 @@ sub populate {
 
   $self->msg("\nimporting fixtures");
   my $tmp_fixture_dir = io->dir(tempdir());
-  my $version_file = io->file($fixture_dir, '_dumper_version');
   my $config_set_path = io->file($fixture_dir, '_config_set');
   my $config_set = -e "$config_set_path" ? do { my $VAR1; eval($config_set_path->slurp); $VAR1 } : '';
 
@@ -1320,9 +1319,6 @@ sub populate {
       @{$config_set->{sets}}
   }
 
-#  DBIx::Class::Exception->throw('no version file found');
-#    unless -e $version_file;
-
   if (-e "$tmp_fixture_dir") {
     $self->msg("- deleting existing temp directory $tmp_fixture_dir");
     $tmp_fixture_dir->rmtree;