[svn:parrot] r44331 - in trunk/t: examples tools tools/dev

[mikehh at svn.parrot.org]

Author: mikehh
Date: Mon Feb 22 23:25:15 2010
New Revision: 44331
URL: https://trac.parrot.org/parrot/changeset/44331

Log:
fix codetest failures - fix Copyright plus some trailing whitespace

Modified:
   trunk/t/examples/catchall.t
   trunk/t/examples/pod.t
   trunk/t/examples/tutorial.t
   trunk/t/tools/dev/pmctree.t
   trunk/t/tools/pbc_disassemble.t

Modified: trunk/t/examples/catchall.t
==============================================================================
--- trunk/t/examples/catchall.t	Mon Feb 22 23:14:26 2010	(r44330)
+++ trunk/t/examples/catchall.t	Mon Feb 22 23:25:15 2010	(r44331)
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2007-2008 Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -30,7 +30,7 @@
 my $manifest = maniread('MANIFEST');
 my %files;
 foreach my $file (keys %$manifest) {
-  next unless $file =~ m{^examples/.*(pir|pasm)$}; 
+  next unless $file =~ m{^examples/.*(pir|pasm)$};
   next if $file =~ m{^examples/tutorial}; # all are tested in tutorial.t
   next if $file =~ m{^examples/pir/befunge}; # language, not testable here
   next if $file =~ m{^examples/languages}; # language, not testable here
@@ -43,7 +43,7 @@
 plan tests => scalar keys %files;
 
 foreach my $file (sort keys %files) {
-    my $cmd = File::Spec->curdir() . $PConfig{slash} . 
+    my $cmd = File::Spec->curdir() . $PConfig{slash} .
               $PConfig{test_prog} . " -o " . File::Spec->devnull() . " " .
               $file;
 

Modified: trunk/t/examples/pod.t
==============================================================================
--- trunk/t/examples/pod.t	Mon Feb 22 23:14:26 2010	(r44330)
+++ trunk/t/examples/pod.t	Mon Feb 22 23:25:15 2010	(r44331)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2009, The Perl Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -58,19 +58,19 @@
     my $cmd = File::Spec->curdir() . $PConfig{slash} .
               $PConfig{test_prog} . " -o " . File::Spec->devnull() . " " .
               $tempfile . ' 2> ' . $err_tempfile;
- 
+
     my $description = join (':', map {$snippet->{$_}}
         qw(file line type modifier));
 
     my $rc = system($cmd);
     open my $errout_fh, '<', $err_tempfile;
 
-    my $error_output; 
+    my $error_output;
     {
         undef local $/;
         $error_output = <$errout_fh>;
     }
- 
+
     my $todo = 0;
     $todo = 1 if ($snippet->{modifier} =~ /TODO|INVALID/);
     TODO: {
@@ -78,7 +78,7 @@
         local $TODO = 'invalid code' if $todo;
 
         is ($error_output,'',$description);
-    } 
+    }
 }
 
 sub get_samples {
@@ -112,7 +112,7 @@
             $snippet->{line} = $.;
             $snippet->{type} = $2;
             $snippet->{modifier} = defined($4) ? $4 : '';
-            $target = $1; 
+            $target = $1;
         }
     }
 
@@ -152,7 +152,7 @@
 
 C<PASM> and C<PIR> are both valid target languages.
 
-Additionally, you can add the following modifiers (prepending with an 
+Additionally, you can add the following modifiers (prepending with an
 underscore).
 
 =over 4
@@ -173,7 +173,7 @@
 to be updated:
 
  =begin PIR_FRAGMENT_INVALID
-   
+
     find_type $I1, 'Integer'
 
  =end PIR_FRAGMENT_INVALID

Modified: trunk/t/examples/tutorial.t
==============================================================================
--- trunk/t/examples/tutorial.t	Mon Feb 22 23:14:26 2010	(r44330)
+++ trunk/t/examples/tutorial.t	Mon Feb 22 23:25:15 2010	(r44331)
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2007-2008 Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
 # $Id$
 
 use strict;

Modified: trunk/t/tools/dev/pmctree.t
==============================================================================
--- trunk/t/tools/dev/pmctree.t	Mon Feb 22 23:14:26 2010	(r44330)
+++ trunk/t/tools/dev/pmctree.t	Mon Feb 22 23:25:15 2010	(r44331)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 202007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
 # $Id$
 # pmctree.t
 

Modified: trunk/t/tools/pbc_disassemble.t
==============================================================================
--- trunk/t/tools/pbc_disassemble.t	Mon Feb 22 23:14:26 2010	(r44330)
+++ trunk/t/tools/pbc_disassemble.t	Mon Feb 22 23:25:15 2010	(r44331)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2009, Parrot Foundation
+# Copyright (C) 2009-2010, Parrot Foundation.
 # $Id$
 
 =head1 NAME