Do not grow the whitespace after the DO NOT MODIFY THIS notice on each regen.
Dagfinn Ilmari Mannsåker [Wed, 25 Jul 2007 13:20:17 +0000 (13:20 +0000)]
lib/DBIx/Class/Schema/Loader/Base.pm

index a723beb..ecd0e4e 100644 (file)
@@ -471,7 +471,7 @@ sub _write_classfile {
 
     my $custom_content = $self->_get_custom_content($class, $filename);
 
-    $custom_content ||= qq|\n# You can replace this text with custom|
+    $custom_content ||= qq|\n\n# You can replace this text with custom|
         . qq| content, and it will be preserved on regeneration|
         . qq|\n1;\n|;
 
@@ -487,7 +487,7 @@ sub _write_classfile {
         or croak "Cannot open '$filename' for writing: $!";
 
     # Write the top half and its MD5 sum
-    print $fh $text . Digest::MD5::md5_base64($text) . "\n\n";
+    print $fh $text . Digest::MD5::md5_base64($text) . "\n";
 
     # Write out anything loaded via external partial class file in @INC
     print $fh qq|$_\n|