[svn:parrot] r44912 - branches/ops_pct/lib/Parrot/Ops2c

[mikehh at svn.parrot.org]

Author: mikehh
Date: Sat Mar 13 22:27:36 2010
New Revision: 44912
URL: https://trac.parrot.org/parrot/changeset/44912

Log:
tidy up Utils.pm to conform to coding standards a bit more

Modified:
   branches/ops_pct/lib/Parrot/Ops2c/Utils.pm

Modified: branches/ops_pct/lib/Parrot/Ops2c/Utils.pm
==============================================================================
--- branches/ops_pct/lib/Parrot/Ops2c/Utils.pm	Sat Mar 13 21:58:21 2010	(r44911)
+++ branches/ops_pct/lib/Parrot/Ops2c/Utils.pm	Sat Mar 13 22:27:36 2010	(r44912)
@@ -606,7 +606,7 @@
     foreach my $op ( $self->{ops}->ops ) {
         my $func_name = $op->func_name( $self->{trans} );
         my $prototype =
-          "$self->{sym_export} opcode_t * $func_name (opcode_t *, PARROT_INTERP)";
+          "$self->{sym_export} opcode_t * $func_name(opcode_t *, PARROT_INTERP)";
         my $definition;
         my $comment = '';
         my $one_op  = "";
@@ -620,7 +620,7 @@
             $comment    = "/* " . $op->full_name() . " */";
         }
         else {
-            $definition = "opcode_t *\n$func_name (opcode_t *cur_opcode, PARROT_INTERP)";
+            $definition = "opcode_t *\n$func_name(opcode_t *cur_opcode, PARROT_INTERP)";
         }
 
         my $src = $op->source( $self->{trans} );
@@ -936,7 +936,7 @@
         hop_init(interp);
     }
     for (p = hop[hidx]; p; p = p->next) {
-        if(STREQ(name, full ? p->info->full_name : p->info->name))
+        if (STREQ(name, full ? p->info->full_name : p->info->name))
             return p->info - $self->{bs}op_lib.op_info_table;
     }
     return -1;