X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FBase.pm;h=998d536d43ffb20e2bc6e867fa88fbcbc4e7981c;hb=8695fbfefe1e5f8c2d9ef276ac3a4d3cd262465f;hp=275efaeb1a64b09e2fb71db8e4955ddd63e575ca;hpb=8007f3a7c22764af4ccfda238cbc53325902c927;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm index 275efae..998d536 100644 --- a/lib/DBIx/Class/Schema/Loader/Base.pm +++ b/lib/DBIx/Class/Schema/Loader/Base.pm @@ -1134,8 +1134,7 @@ sub rescan { } } - delete $self->{_dump_storage}; - delete $self->{_relations_started}; + delete @$self{qw/_dump_storage _relations_started _uniqs_started/}; my $loaded = $self->_load_tables(@current); @@ -1919,8 +1918,6 @@ sub _setup_src_meta { # be careful to not create refs Data::Dump can "optimize" $full_table_name = \do {"".$full_table_name} if ref $table_name; - $self->_raw_stmt($table_class, ''); # add a blank line - $self->_dbic_stmt($table_class, 'table', $full_table_name); my $cols = $self->_table_columns($table);