[svn:parrot] r44820 - branches/ops_pct/compilers/opsc/src/Ops

[mikehh at svn.parrot.org]

Author: mikehh
Date: Tue Mar  9 21:57:56 2010
New Revision: 44820
URL: https://trac.parrot.org/parrot/changeset/44820

Log:
remove trailing spaces

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Op.pm

Modified: branches/ops_pct/compilers/opsc/src/Ops/Op.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Tue Mar  9 18:20:30 2010	(r44819)
+++ branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Tue Mar  9 21:57:56 2010	(r44820)
@@ -223,8 +223,8 @@
 
     #my $rewrote_access = s/{{\@([^{]*?)}}/   $trans->access_arg($self->arg_type($1 - 1), $1, $self); /me;
 
-    $str := subst($str, 
-        /'{{@' $<op_num>=[<digit>+] '}}'/, 
+    $str := subst($str,
+        /'{{@' $<op_num>=[<digit>+] '}}'/,
         -> $m { $trans.access_arg( self.arg_type(+$m<op_num> - 1), +$m<op_num>) }
     );
 
@@ -270,12 +270,12 @@
         -> $m { $trans.expr_address($m<addr>) }
     );
 
-=begin COMMENT    
+=begin COMMENT
 
     #XXX: die "Argument access not allowed in preamble\n"
     #XXX: if $preamble_only && $rewrote_access;
 
-=end COMMENT    
+=end COMMENT
 
     $str;
 }