[svn:parrot] r27372 - trunk/config/gen

Author: chromatic
Date: Tue May  6 22:12:21 2008
New Revision: 27372

Modified:
   trunk/config/gen/call_list.pm

Log:
[config] Made generated src/call_list.txt file read-only, to remove some
temptation to edit it instead of config/gen/call_list/*.in.

Modified: trunk/config/gen/call_list.pm
==============================================================================
--- trunk/config/gen/call_list.pm	(original)
+++ trunk/config/gen/call_list.pm	Tue May  6 22:12:21 2008
@@ -47,12 +47,15 @@
     open my $combined, '>', $combined_file
         or die "Could not open '$combined_file' for write: $!";
 
+    # add read-only metadata for the generated file
+    print {$combined} "# ex: set ro:\n";
+
     foreach my $fragment_file (@fragment_files) {
         my $fragment =  _slurp($fragment_file);
            $fragment =~ s/^\s*\n//;
            $fragment =~ s/\s*$/\n\n/;
 
-        print $combined $fragment;
+        print {$combined} $fragment;
     }
 
     $conf->append_configure_log($combined_file);
@@ -60,7 +63,6 @@
     return 1;
 }
 
-
 1;
 
 # Local Variables:

• [svn:parrot] r27372 - trunk/config/gen by chromatic