[svn:parrot] r37114 - in trunk: . lib/Parrot/Harness src/ops

coke at svn.parrot.org coke at svn.parrot.org
Thu Mar 5 02:00:37 UTC 2009


Author: coke
Date: Thu Mar  5 02:00:37 2009
New Revision: 37114
URL: https://trac.parrot.org/parrot/changeset/37114

Log:
TT #400 - codingstd fixes

Courtesy mikeh++

Modified:
   trunk/CREDITS
   trunk/lib/Parrot/Harness/Options.pm
   trunk/src/ops/cmp.ops

Modified: trunk/CREDITS
==============================================================================
--- trunk/CREDITS	Thu Mar  5 01:59:01 2009	(r37113)
+++ trunk/CREDITS	Thu Mar  5 02:00:37 2009	(r37114)
@@ -641,6 +641,9 @@
 U: mikescott
 W: http://xrl.us/sml
 
+U: mikeh
+D: codingstd patches
+
 N: Michael Stevens
 D: Remove an unused variable in C-land
 

Modified: trunk/lib/Parrot/Harness/Options.pm
==============================================================================
--- trunk/lib/Parrot/Harness/Options.pm	Thu Mar  5 01:59:01 2009	(r37113)
+++ trunk/lib/Parrot/Harness/Options.pm	Thu Mar  5 02:00:37 2009	(r37114)
@@ -100,7 +100,8 @@
     foreach my $opt (keys %$opts_ref) {
         if (exists $remap{$opt}) {
             $mapped{$remap{$opt}} = undef;
-        } else {
+        }
+        else {
             $mapped{$opt} = $opts_ref->{$opt};
         }
     }

Modified: trunk/src/ops/cmp.ops
==============================================================================
--- trunk/src/ops/cmp.ops	Thu Mar  5 01:59:01 2009	(r37113)
+++ trunk/src/ops/cmp.ops	Thu Mar  5 02:00:37 2009	(r37114)
@@ -842,7 +842,7 @@
 }
 
 inline op iseq(out INT, in STR, in STR) {
-  $1 = ( Parrot_str_equal(interp, $2, $3) ? 1 : 0 );
+  $1 = (Parrot_str_equal(interp, $2, $3) ? 1 : 0);
 }
 
 inline op iseq(out INT, invar PMC, invar PMC) {
@@ -873,7 +873,7 @@
 }
 
 inline op isne(out INT, in STR, in STR) {
-  $1 = ( Parrot_str_not_equal(interp, $2, $3) ? 1 : 0 );
+  $1 = (Parrot_str_not_equal(interp, $2, $3) ? 1 : 0);
 }
 
 inline op isne(out INT, invar PMC, invar PMC) {


More information about the parrot-commits mailing list