[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