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:
