Author: infinoid
Date: Mon Dec 1 11:03:34 2008
New Revision: 33427
Modified:
trunk/languages/perl6/src/builtins/any-str.pir
trunk/languages/perl6/src/parser/actions.pm
Log:
[CAGE] Remove trailing whitespace.
Modified: trunk/languages/perl6/src/builtins/any-str.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-str.pir (original)
+++ trunk/languages/perl6/src/builtins/any-str.pir Mon Dec 1 11:03:34 2008
@@ -921,7 +921,7 @@
if global_flag goto subst_loop
subst_done:
.return (result)
-.end
+.end
.sub 'subst' :method :multi(_, 'Sub', _)
@@ -990,7 +990,7 @@
subst_done:
.return (result)
.end
-
+
=item ord()
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Mon Dec 1 11:03:34 2008
@@ -3163,7 +3163,7 @@
sub declare_implicit_routine_vars($block) {
for ('$_', '$/', '$!') {
unless $block.symbol($_) {
- $block[0].push( PAST::Var.new( :name($_),
+ $block[0].push( PAST::Var.new( :name($_),
:scope('lexical'),
:isdecl(1),
:viviself('Perl6Scalar') ) );
@@ -3182,7 +3182,7 @@
unless $block.symbol($_) {
my $lex := PAST::Op.new(:inline(' set %r, outerlex["'~$_~'"]'));
my $scope := ($tparam && $_ eq '$_') ?? 'parameter' !! 'lexical';
- $block[0].push(
+ $block[0].push(
PAST::Var.new( :name($_),
:scope($scope),
:isdecl(1),
