Author: bernhard
Date: Sun Dec 7 05:02:14 2008
New Revision: 33601
Modified:
trunk/languages/perl6/src/parser/actions.pm
Log:
[codingstd] remove a trailing space
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Sun Dec 7 05:02:14 2008
@@ -920,7 +920,7 @@
## get the names of the tagsets, if any, from the ast
my $tagsets := $( $aux<postcircumfix>[0] );
if $tagsets {
- my $tagsets_past := $tagsets;
+ my $tagsets_past := $tagsets;
if $tagsets_past.isa(PAST::Op)
&& $tagsets_past.pasttype() eq 'call' {
for @( $tagsets_past ) {
