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

[svn:parrot] r32606 - in trunk: languages/perl6/src/classes languages/perl6/tools runtime/parrot/library

From:
bernhard
Date:
November 13, 2008 03:16
Subject:
[svn:parrot] r32606 - in trunk: languages/perl6/src/classes languages/perl6/tools runtime/parrot/library
Message ID:
20081113111613.5D5F8CB9AF@x12.develooper.com
Author: bernhard
Date: Thu Nov 13 03:16:12 2008
New Revision: 32606

Modified:
   trunk/languages/perl6/src/classes/Match.pir
   trunk/languages/perl6/tools/test_summary.pl
   trunk/runtime/parrot/library/pcre.pir

Log:
[codingstd] remove trailing whitespace


Modified: trunk/languages/perl6/src/classes/Match.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Match.pir	(original)
+++ trunk/languages/perl6/src/classes/Match.pir	Thu Nov 13 03:16:12 2008
@@ -7,7 +7,7 @@
 =head1 Description
 
 At the moment file is a dummy file, it does nothing more than
-cause PGE::Match objects to act as mutables via the Scalar method.   
+cause PGE::Match objects to act as mutables via the Scalar method.
 Eventually we'll derive a proper Match subclass here that can
 do it the same way as other Rakudo classes, but this is a
 good workaround for now.

Modified: trunk/languages/perl6/tools/test_summary.pl
==============================================================================
--- trunk/languages/perl6/tools/test_summary.pl	(original)
+++ trunk/languages/perl6/tools/test_summary.pl	Thu Nov 13 03:16:12 2008
@@ -41,7 +41,7 @@
 @tfiles = sort @tfiles;
 my $max = 0;
 for my $tfile (@tfiles) {
-    my $tname = $tfile; $tname =~ s!^t/spec/!!; 
+    my $tname = $tfile; $tname =~ s!^t/spec/!!;
     $tname = substr($tname, 0, 49);
     if (length($tname) > $max) { $max = length($tname); }
     $tname{$tfile} = $tname;
@@ -82,10 +82,10 @@
         elsif (/^ok +\d+/)         { $pass++; }
     }
     my $abort = $plan - $test;
-    if ($abort > 0) { 
-        $fail += $abort; 
+    if ($abort > 0) {
+        $fail += $abort;
         push @fail, "$tname aborted $abort test(s)";
-        $test += $abort; 
+        $test += $abort;
     }
     printf " %4d %4d %4d %4d %4d\n", $test, $pass, $fail, $todo, $skip;
     $sum{'plan'} += $plan;

Modified: trunk/runtime/parrot/library/pcre.pir
==============================================================================
--- trunk/runtime/parrot/library/pcre.pir	(original)
+++ trunk/runtime/parrot/library/pcre.pir	Thu Nov 13 03:16:12 2008
@@ -51,7 +51,7 @@
     .local int loaded
 
     osname = sysinfo .SYSINFO_PARROT_OS
-     
+
     if 'MSWin32' == osname goto LIB_WIN32
     if 'cygwin'  == osname goto LIB_CYGWIN
 



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