[svn:parrot] r26550 - trunk/languages/perl6/src/parser

[infinoid]

Author: infinoid
Date: Tue Mar 25 19:31:24 2008
New Revision: 26550

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[raduko] reformat slightly to pass t/codingstd/cuddled_else.t


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Tue Mar 25 19:31:24 2008
@@ -1328,7 +1328,8 @@
         if $_.returns() eq 'Pair' {
             $_[2].named($_[1]);
             $call_past.push($_[2]);
-        } else {
+        }
+        else {
             $call_past.push($_);
         }
     }