develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33427 - in trunk/languages/perl6/src: builtins parser

From:
infinoid
Date:
December 1, 2008 11:03
Subject:
[svn:parrot] r33427 - in trunk/languages/perl6/src: builtins parser
Message ID:
20081201190335.8AE55CB9AF@x12.develooper.com
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),



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About