[svn:parrot] r39008 - in trunk: lib/Parrot/Docs src
cotto at svn.parrot.org
cotto at svn.parrot.org
Thu May 21 07:53:57 UTC 2009
Author: cotto
Date: Thu May 21 07:53:55 2009
New Revision: 39008
URL: https://trac.parrot.org/parrot/changeset/39008
Log:
[codingstd] a couple of codingstd fixes, patch courtesy of mikehh++
Modified:
trunk/lib/Parrot/Docs/File.pm
trunk/src/packfile.c
Modified: trunk/lib/Parrot/Docs/File.pm
==============================================================================
--- trunk/lib/Parrot/Docs/File.pm Thu May 21 04:04:31 2009 (r39007)
+++ trunk/lib/Parrot/Docs/File.pm Thu May 21 07:53:55 2009 (r39008)
@@ -1,4 +1,4 @@
-# Copyright (C) 2004-2007, Parrot Foundation.
+# Copyright (C) 2004-2009, Parrot Foundation
# $Id$
=head1 NAME
@@ -389,7 +389,7 @@
my $desc;
# For a short description, we take only the first paragraph of any
# ABSTRACT.
- ($desc = $paragraphs[0]) =~ s/\n/ /g;
+ ($desc = $paragraphs[0]) =~ s/\n/ /g;
$desc =~ s/\s+/ /sg;
# We eliminate certain POD formatting characters.
$desc =~ s/[CFL]<([^>]+)>/$1/sg;
Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c Thu May 21 04:04:31 2009 (r39007)
+++ trunk/src/packfile.c Thu May 21 07:53:55 2009 (r39008)
@@ -804,7 +804,7 @@
for (i = 0; i < ct->const_count; i++) {
PMC * pmc;
STRING * string;
- switch(constants[i]->type) {
+ switch (constants[i]->type) {
case PFC_PMC:
case PFC_KEY:
pmc = constants[i]->u.key;
@@ -813,7 +813,7 @@
break;
case PFC_STRING:
string = constants[i]->u.string;
- if(string)
+ if (string)
Parrot_gc_mark_PObj_alive(interp, (PObj *)string);
break;
default:
More information about the parrot-commits
mailing list