[svn:parrot] r40165 - trunk/lib/Parrot/Pmc2c/PMC

[chromatic at svn.parrot.org]

Author: chromatic
Date: Mon Jul 20 08:29:26 2009
New Revision: 40165
URL: https://trac.parrot.org/parrot/changeset/40165

Log:
[lib] Removed trailing whitespace, updated copyright, coalesced one line
(whitespace fixes by Michael Hind).

Modified:
   trunk/lib/Parrot/Pmc2c/PMC/RO.pm

Modified: trunk/lib/Parrot/Pmc2c/PMC/RO.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMC/RO.pm	Mon Jul 20 07:05:40 2009	(r40164)
+++ trunk/lib/Parrot/Pmc2c/PMC/RO.pm	Mon Jul 20 08:29:26 2009	(r40165)
@@ -1,4 +1,4 @@
-# Copyright (C) 2004-2008, Parrot Foundation.
+# Copyright (C) 2004-2009, Parrot Foundation.
 
 # $Id$
 
@@ -61,7 +61,7 @@
     {
 
       # autogenerate for nonstandard types
-      # (RT#44433: is this appropriate or do we want them to each be 
+      # (RT #44433: is this appropriate or do we want them to each be
       # explicitly cleared to have RO ?)
         no strict 'refs';
         if ( !@{ ref($self) . '::ISA' } ) {
@@ -72,7 +72,7 @@
     foreach my $vt_method ( @{ $self->vtable->methods } ) {
         my $name = $vt_method->name;
 
-        # Generate RO variant only if we override method constantness 
+        # Generate RO variant only if we override method constantness
         # with ":write"
         next unless $parent->{has_method}{$name}
                     && $parent->vtable_method_does_write($name)
@@ -80,8 +80,8 @@
 
         # All parameters passed in are shims, because we're
         # creating an exception-thrower.
-        my @parameters = split( /\s*,\s*/, $vt_method->parameters );
-        @parameters = map { "SHIM($_)" } @parameters;
+        my @parameters = map { "SHIM($_)" }
+                         split( /\s*,\s*/, $vt_method->parameters );
 
         my $ro_method = Parrot::Pmc2c::Method->new(
             {