Author: bernhard
Date: Mon Nov 10 09:48:43 2008
New Revision: 32495
Modified:
trunk/languages/perl6/src/parser/actions.pm
Log:
[codingstd] Uncuddle an else
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Mon Nov 10 09:48:43 2008
@@ -3367,7 +3367,8 @@
our $?PACKAGE;
if !($?CLASS =:= $?PACKAGE) || $?CLASS[0][1].name() eq '!keyword_class' &&
+@($?CLASS[0][1]) == 1 {
$method
- } else {
+ }
+ else {
# Create new PAST::Block - can't work out how to unset the name of an
# existing one.
my $new_method := PAST::Block.new(
