[Bast-commits] r7764 - in branches/DBIx-Class-Schema-Loader/current: . lib/DBIx/Class/Schema/Loader

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2009-10-05 13:38:45 +0000 (Mon, 05 Oct 2009)
New Revision: 7764

Modified:
   branches/DBIx-Class-Schema-Loader/current/Changes
   branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm
Log:
Place a warning at the top of the files too


Modified: branches/DBIx-Class-Schema-Loader/current/Changes
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/Changes	2009-10-05 13:17:40 UTC (rev 7763)
+++ branches/DBIx-Class-Schema-Loader/current/Changes	2009-10-05 13:38:45 UTC (rev 7764)
@@ -1,6 +1,8 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
         - Only redump the files when something has actually changed
+        - Place a warning at the top of the files saying 'do not modify' to
+          match the one at the bottom of the auto-gen'd section
 
 0.04999_08 2009-08-28
         - Replace UNIVERSAL::require with Class::C3::Componentised

Modified: branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm	2009-10-05 13:17:40 UTC (rev 7763)
+++ branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm	2009-10-05 13:38:45 UTC (rev 7764)
@@ -498,6 +498,8 @@
 
     my $schema_text =
           qq|package $schema_class;\n\n|
+        . qq|# Created by DBIx::Class::Schema::Loader\n|
+        . qq|# DO NOT MODIFY THE FIRST PART OF THIS FILE\n\n|
         . qq|use strict;\nuse warnings;\n\n|
         . qq|use base '$schema_base_class';\n\n|;
 
@@ -525,6 +527,8 @@
     foreach my $src_class (@classes) {
         my $src_text = 
               qq|package $src_class;\n\n|
+            . qq|# Created by DBIx::Class::Schema::Loader\n|
+            . qq|# DO NOT MODIFY THE FIRST PART OF THIS FILE\n\n|
             . qq|use strict;\nuse warnings;\n\n|
             . qq|use base '$result_base_class';\n\n|;