some TODO additions
[dbsrgits/DBIx-Class-Schema-Loader.git] / lib / DBIx / Class / Schema / Loader / Base.pm
index 53ea95e..14d7123 100644 (file)
@@ -258,6 +258,7 @@ sub _load_external {
         if($self->dump_directory) {
             my $class_path = $table_class;
             $class_path =~ s{::}{/}g;
+            $class_path .= '.pm';
             my $filename = $INC{$class_path};
             croak 'Failed to locate actual external module file for '
                   . "'$table_class'"
@@ -325,10 +326,11 @@ sub _dump_to_dir {
     my ($self) = @_;
 
     my $target_dir = $self->dump_directory;
+    my $schema_class = $self->schema_class;
 
     die "Must specify target directory for dumping!" if ! $target_dir;
 
-    warn "Dumping manual schema to $target_dir ...\n";
+    warn "Dumping manual schema for $schema_class to directory $target_dir ...\n";
 
     if(! -d $target_dir) {
         mkdir($target_dir) or die "mkdir('$target_dir') failed: $!";
@@ -338,7 +340,6 @@ sub _dump_to_dir {
     my $datestr = POSIX::strftime('%Y-%m-%d %H:%M:%S', localtime);
     my $tagline = qq|# Created by DBIx::Class::Schema::Loader v$verstr @ $datestr|;
 
-    my $schema_class = $self->schema_class;
     $self->_ensure_dump_subdirs($schema_class);
 
     my $schema_fn = $self->_get_dump_filename($schema_class);