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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Jan 31 16:40:53 2009
New Revision: 36204
URL: https://trac.parrot.org/parrot/changeset/36204

Log:
[configure] use a more standard header in Generated.pm

Modified:
   trunk/config/gen/config_pm.pm

Modified: trunk/config/gen/config_pm.pm
==============================================================================
--- trunk/config/gen/config_pm.pm	Sat Jan 31 16:10:35 2009	(r36203)
+++ trunk/config/gen/config_pm.pm	Sat Jan 31 16:40:53 2009	(r36204)
@@ -1,4 +1,4 @@
-# Copyright (C) 2001-2007, The Perl Foundation.
+# Copyright (C) 2001-2009, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -42,13 +42,15 @@
 
     $conf->data->clean;
 
-    $conf->genfile($self->{templates}->{myconfig}, 'myconfig' );
+    my $template = $self->{templates}->{myconfig};
+    $conf->genfile($template, 'myconfig' );
 
-    open( my $IN, "<", $self->{templates}->{Config_pm} )
-        or die "Can't open Config_pm.in: $!";
+    $template = $self->{templates}->{Config_pm};
+    open( my $IN, "<", $template )
+        or die "Can't open $template: $!";
 
     my $configdir = catdir(qw/lib Parrot Config/);
-    if ( !-d $configdir ) {
+    unless ( -d $configdir ) {
         mkdir $configdir
             or die "Can't create dir $configdir: $!";
     }
@@ -57,7 +59,13 @@
     open( my $OUT, ">", $gen_pm )
         or die "Can't open $gen_pm: $!";
 
-    print {$OUT} "# Generated by config/gen/config_pm.pm\n";
+    my $pkg = __PACKAGE__;
+    print {$OUT} <<"END";
+# ex: set ro:
+# DO NOT EDIT THIS FILE
+# Generated by $pkg from $template
+
+END
 
     while (<$IN>) {
         s/\@PCONFIG\@/$conf->data->dump(q{c}, q{*PConfig})/e;
@@ -65,10 +73,10 @@
         print {$OUT} $_;
     }
 
-    close $IN  or die "Can't close Config_pm.in: $!";
-    close $OUT or die "Can't close Config.pm: $!";
+    close $IN  or die "Can't close $template: $!";
+    close $OUT or die "Can't close $gen_pm: $!";
 
-    my $template = $self->{templates}->{config_lib};
+    $template = $self->{templates}->{config_lib};
     open( $IN,  "<", $template ) or die "Can't open '$template': $!";
     my $c_l_pasm = q{config_lib.pasm};
     $conf->append_configure_log($c_l_pasm);
@@ -104,7 +112,7 @@
         }
     }
 
-    close $IN  or die "Can't close config_lib.in: $!";
+    close $IN  or die "Can't close $template: $!";
     close $OUT or die "Can't close $c_l_pasm: $!";
 
     return 1;