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

[svn:parrot] r33730 - in trunk: languages/perl6/src/parser src/pmc

From:
moritz
Date:
December 9, 2008 14:53
Subject:
[svn:parrot] r33730 - in trunk: languages/perl6/src/parser src/pmc
Message ID:
20081209225247.0CA9ACB9AF@x12.develooper.com
Author: moritz
Date: Tue Dec  9 14:52:46 2008
New Revision: 33730

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

Log:
[codingstd] remove trailing whitespaces


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Tue Dec  9 14:52:46 2008
@@ -2918,7 +2918,7 @@
                     $rhs
                 )
             );
-            
+
             # Nothing to emit at this point.
             $past := PAST::Stmts.new();
         }

Modified: trunk/src/pmc/filehandle.pmc
==============================================================================
--- trunk/src/pmc/filehandle.pmc	(original)
+++ trunk/src/pmc/filehandle.pmc	Tue Dec  9 14:52:46 2008
@@ -304,7 +304,7 @@
 #else
         UINTVAL len;
 
-        if (got_prompt) 
+        if (got_prompt)
             fprintf(stderr, "%s", prompt->strstart);
 
         if (!(PARROT_FILEHANDLE(SELF)->flags & PIO_F_LINEBUF))
@@ -316,7 +316,7 @@
         len = string_length(INTERP, string_result);
         if (len < 1)
             RETURN(PMC *PMCNULL);
-        while (len > 0 && 
+        while (len > 0 &&
                 (((char*)string_result->strstart)[len - 1] == '\n' ||
                  ((char*)string_result->strstart)[len - 1] == '\r')) {
             --len;



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