[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