From: Dagfinn Ilmari Mannsåker Date: Sun, 13 Apr 2008 00:43:26 +0000 (+0000) Subject: Cosmetic fixes to dumping of externally defined classes X-Git-Tag: 0.04999_05~7 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=565ca24d90f6c168fba869151e1cd37f5e7b48bc;p=dbsrgits%2FDBIx-Class-Schema-Loader.git Cosmetic fixes to dumping of externally defined classes --- diff --git a/Changes b/Changes index 06d912c..4e41beb 100644 --- a/Changes +++ b/Changes @@ -5,6 +5,7 @@ Not yet released - Default db_schema to the username for DB2 - Allow specifying a custom loader_class, overriding the storage_type-based detection + - Cosmetic fixes to dumping of externally defined classes 0.04999_04 Wed Mar 12, 2008 - Add is_auto_increment detecton for DB2 diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm index 867eae1..7662d66 100644 --- a/lib/DBIx/Class/Schema/Loader/Base.pm +++ b/lib/DBIx/Class/Schema/Loader/Base.pm @@ -307,12 +307,12 @@ sub _load_external { open(my $fh, '<', $real_inc_path) or croak "Failed to open '$real_inc_path' for reading: $!"; $self->_ext_stmt($class, - qq|# These lines were loaded from '$real_inc_path' found in \@INC.| - .q|# They are now part of the custom portion of this file| - .q|# for you to hand-edit. If you do not either delete| - .q|# this section or remove that file from @INC, this section| - .q|# will be repeated redundantly when you re-create this| - .q|# file again via Loader!| + qq|# These lines were loaded from '$real_inc_path' found in \@INC.\n| + .qq|# They are now part of the custom portion of this file\n| + .qq|# for you to hand-edit. If you do not either delete\n| + .qq|# this section or remove that file from \@INC, this section\n| + .qq|# will be repeated redundantly when you re-create this\n| + .qq|# file again via Loader!\n| ); while(<$fh>) { chomp;