[svn:parrot] r36199 - in trunk/config/gen: . config_pm makefiles

fperrad at svn.parrot.org fperrad at svn.parrot.org
Sat Jan 31 14:58:17 UTC 2009


Author: fperrad
Date: Sat Jan 31 14:58:16 2009
New Revision: 36199
URL: https://trac.parrot.org/parrot/changeset/36199

Log:
[codingstd] fix Perl coding standard in template files.

Modified:
   trunk/config/gen/config_pm.pm
   trunk/config/gen/config_pm/Config_pm.in
   trunk/config/gen/makefiles/dynoplibs_pl.in

Modified: trunk/config/gen/config_pm.pm
==============================================================================
--- trunk/config/gen/config_pm.pm	Sat Jan 31 14:55:36 2009	(r36198)
+++ trunk/config/gen/config_pm.pm	Sat Jan 31 14:58:16 2009	(r36199)
@@ -60,8 +60,8 @@
     print {$OUT} "# Generated by config/gen/config_pm.pm\n";
 
     while (<$IN>) {
-        s/<<PCONFIG>>/$conf->data->dump(q{c}, q{*PConfig})/e;
-        s/<<PCONFIGTEMP>>/$conf->data->dump(q{c_temp}, q{*PConfig_Temp})/e;
+        s/\@PCONFIG\@/$conf->data->dump(q{c}, q{*PConfig})/e;
+        s/\@PCONFIGTEMP\@/$conf->data->dump(q{c_temp}, q{*PConfig_Temp})/e;
         print {$OUT} $_;
     }
 

Modified: trunk/config/gen/config_pm/Config_pm.in
==============================================================================
--- trunk/config/gen/config_pm/Config_pm.in	Sat Jan 31 14:55:36 2009	(r36198)
+++ trunk/config/gen/config_pm/Config_pm.in	Sat Jan 31 14:58:16 2009	(r36199)
@@ -1,3 +1,6 @@
+# Copyright (C) 2002-2009, The Perl Foundation.
+# $Id$
+
 =head1 NAME
 
 Parrot::Config::Generated - Parrot Generated Configuration Data
@@ -13,12 +16,20 @@
 package Parrot::Config::Generated;
 
 use strict;
+use warnings;
 use vars qw(%PConfig %PConfig_Temp);
 
 
-<<PCONFIG>>
+ at PCONFIG@
 
-<<PCONFIGTEMP>>
+ at PCONFIGTEMP@
 
 
 1;
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:

Modified: trunk/config/gen/makefiles/dynoplibs_pl.in
==============================================================================
--- trunk/config/gen/makefiles/dynoplibs_pl.in	Sat Jan 31 14:55:36 2009	(r36198)
+++ trunk/config/gen/makefiles/dynoplibs_pl.in	Sat Jan 31 14:58:16 2009	(r36199)
@@ -82,7 +82,8 @@
         $extraLibs =~ s/blib/..\\blib/g;
         $extraLibs =~ s/\Q$(A)\E/.lib/g;
         $liblist .= ' ' . $extraLibs;
-    } else {
+    }
+    else {
         $liblist = join( ' ', map { "-l$_" } keys %$libs );
     }
 
@@ -158,7 +159,8 @@
 
     if (defined $ago) {
         return $NOW - $ago;
-    } else {
+    }
+    else {
         return;
     }
 }


More information about the parrot-commits mailing list