perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r21021 - in trunk/languages/tcl: lib/Parrot/Test lib/Tcl t

Subject: [svn:parrot] r21021 - in trunk/languages/tcl: lib/Parrot/Test lib/Tcl t tools
From:
Date: Mon, 3 Sep 2007 03:16:07 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: paultcochrane
Date: Mon Sep  3 03:16:05 2007
New Revision: 21021

Modified:
   trunk/languages/tcl/lib/Parrot/Test/Tcl.pm
   trunk/languages/tcl/lib/Tcl/Test.pm
   trunk/languages/tcl/t/cmd_after.t
   trunk/languages/tcl/t/cmd_append.t
   trunk/languages/tcl/t/cmd_apply.t
   trunk/languages/tcl/t/cmd_array.t
   trunk/languages/tcl/t/cmd_binary.t
   trunk/languages/tcl/t/cmd_break.t
   trunk/languages/tcl/t/cmd_catch.t
   trunk/languages/tcl/t/cmd_cd.t
   trunk/languages/tcl/t/cmd_concat.t
   trunk/languages/tcl/t/cmd_continue.t
   trunk/languages/tcl/t/cmd_eof.t
   trunk/languages/tcl/t/cmd_error.t
   trunk/languages/tcl/t/cmd_eval.t
   trunk/languages/tcl/t/cmd_exit.t
   trunk/languages/tcl/t/cmd_expr.t
   trunk/languages/tcl/t/cmd_exprOld.t
   trunk/languages/tcl/t/cmd_file.t
   trunk/languages/tcl/t/cmd_fileevent.t
   trunk/languages/tcl/t/cmd_flush.t
   trunk/languages/tcl/t/cmd_for.t
   trunk/languages/tcl/t/cmd_foreach.t
   trunk/languages/tcl/t/cmd_format.t
   trunk/languages/tcl/t/cmd_gets.t
   trunk/languages/tcl/t/cmd_global.t
   trunk/languages/tcl/t/cmd_if.t
   trunk/languages/tcl/t/cmd_incr.t
   trunk/languages/tcl/t/cmd_info.t
   trunk/languages/tcl/t/cmd_inline.t
   trunk/languages/tcl/t/cmd_join.t
   trunk/languages/tcl/t/cmd_lappend.t
   trunk/languages/tcl/t/cmd_lassign.t
   trunk/languages/tcl/t/cmd_lindex.t
   trunk/languages/tcl/t/cmd_linsert.t
   trunk/languages/tcl/t/cmd_list.t
   trunk/languages/tcl/t/cmd_llength.t
   trunk/languages/tcl/t/cmd_lrange.t
   trunk/languages/tcl/t/cmd_lrepeat.t
   trunk/languages/tcl/t/cmd_lreplace.t
   trunk/languages/tcl/t/cmd_lset.t
   trunk/languages/tcl/t/cmd_lsort.t
   trunk/languages/tcl/t/cmd_namespace.t
   trunk/languages/tcl/t/cmd_parray.t
   trunk/languages/tcl/t/cmd_proc.t
   trunk/languages/tcl/t/cmd_puts.t
   trunk/languages/tcl/t/cmd_pwd.t
   trunk/languages/tcl/t/cmd_regexp.t
   trunk/languages/tcl/t/cmd_rename.t
   trunk/languages/tcl/t/cmd_return.t
   trunk/languages/tcl/t/cmd_set.t
   trunk/languages/tcl/t/cmd_socket.t
   trunk/languages/tcl/t/cmd_source.t
   trunk/languages/tcl/t/cmd_split.t
   trunk/languages/tcl/t/cmd_string.t
   trunk/languages/tcl/t/cmd_stringOld.t
   trunk/languages/tcl/t/cmd_subst.t
   trunk/languages/tcl/t/cmd_switch.t
   trunk/languages/tcl/t/cmd_time.t
   trunk/languages/tcl/t/cmd_unset.t
   trunk/languages/tcl/t/cmd_uplevel.t
   trunk/languages/tcl/t/cmd_upvar.t
   trunk/languages/tcl/t/cmd_variable.t
   trunk/languages/tcl/t/cmd_vwait.t
   trunk/languages/tcl/t/cmd_while.t
   trunk/languages/tcl/t/tcl_backslash.t
   trunk/languages/tcl/t/tcl_command_subst.t
   trunk/languages/tcl/t/tcl_conversion.t
   trunk/languages/tcl/t/tcl_glob.t
   trunk/languages/tcl/t/tcl_misc.t
   trunk/languages/tcl/t/tcl_namespace.t
   trunk/languages/tcl/t/tcl_pir_compiler.t
   trunk/languages/tcl/t/tcl_var_subst.t
   trunk/languages/tcl/tools/gen_builtins.pl
   trunk/languages/tcl/tools/gen_inline.pl
   trunk/languages/tcl/tools/tcl_harness.pl

Log:
[tcl] Added copyright statement.

Modified: trunk/languages/tcl/lib/Parrot/Test/Tcl.pm
==============================================================================
--- trunk/languages/tcl/lib/Parrot/Test/Tcl.pm  (original)
+++ trunk/languages/tcl/lib/Parrot/Test/Tcl.pm  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 package Parrot::Test::Tcl;
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 use warnings;
 use File::Basename;
 

Modified: trunk/languages/tcl/lib/Tcl/Test.pm
==============================================================================
--- trunk/languages/tcl/lib/Tcl/Test.pm (original)
+++ trunk/languages/tcl/lib/Tcl/Test.pm Mon Sep  3 03:16:05 2007
@@ -1,4 +1,7 @@
 package Tcl::Test;
+
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 use warnings;
 use strict;
 

Modified: trunk/languages/tcl/t/cmd_after.t
==============================================================================
--- trunk/languages/tcl/t/cmd_after.t   (original)
+++ trunk/languages/tcl/t/cmd_after.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_append.t
==============================================================================
--- trunk/languages/tcl/t/cmd_append.t  (original)
+++ trunk/languages/tcl/t/cmd_append.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_apply.t
==============================================================================
--- trunk/languages/tcl/t/cmd_apply.t   (original)
+++ trunk/languages/tcl/t/cmd_apply.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_array.t
==============================================================================
--- trunk/languages/tcl/t/cmd_array.t   (original)
+++ trunk/languages/tcl/t/cmd_array.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_binary.t
==============================================================================
--- trunk/languages/tcl/t/cmd_binary.t  (original)
+++ trunk/languages/tcl/t/cmd_binary.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_break.t
==============================================================================
--- trunk/languages/tcl/t/cmd_break.t   (original)
+++ trunk/languages/tcl/t/cmd_break.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_catch.t
==============================================================================
--- trunk/languages/tcl/t/cmd_catch.t   (original)
+++ trunk/languages/tcl/t/cmd_catch.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_cd.t
==============================================================================
--- trunk/languages/tcl/t/cmd_cd.t      (original)
+++ trunk/languages/tcl/t/cmd_cd.t      Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_concat.t
==============================================================================
--- trunk/languages/tcl/t/cmd_concat.t  (original)
+++ trunk/languages/tcl/t/cmd_concat.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_continue.t
==============================================================================
--- trunk/languages/tcl/t/cmd_continue.t        (original)
+++ trunk/languages/tcl/t/cmd_continue.t        Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_eof.t
==============================================================================
--- trunk/languages/tcl/t/cmd_eof.t     (original)
+++ trunk/languages/tcl/t/cmd_eof.t     Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_error.t
==============================================================================
--- trunk/languages/tcl/t/cmd_error.t   (original)
+++ trunk/languages/tcl/t/cmd_error.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_eval.t
==============================================================================
--- trunk/languages/tcl/t/cmd_eval.t    (original)
+++ trunk/languages/tcl/t/cmd_eval.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_exit.t
==============================================================================
--- trunk/languages/tcl/t/cmd_exit.t    (original)
+++ trunk/languages/tcl/t/cmd_exit.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);
@@ -27,7 +29,7 @@
 wrong # args: should be "exit ?returnCode?"
 OUT
 
-# TODO (#40777): should check return value of exit, also
+# (RT#40777): should check return value of exit, also
 
 # Local Variables:
 #   mode: cperl

Modified: trunk/languages/tcl/t/cmd_expr.t
==============================================================================
--- trunk/languages/tcl/t/cmd_expr.t    (original)
+++ trunk/languages/tcl/t/cmd_expr.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_exprOld.t
==============================================================================
--- trunk/languages/tcl/t/cmd_exprOld.t (original)
+++ trunk/languages/tcl/t/cmd_exprOld.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_file.t
==============================================================================
--- trunk/languages/tcl/t/cmd_file.t    (original)
+++ trunk/languages/tcl/t/cmd_file.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_fileevent.t
==============================================================================
--- trunk/languages/tcl/t/cmd_fileevent.t       (original)
+++ trunk/languages/tcl/t/cmd_fileevent.t       Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_flush.t
==============================================================================
--- trunk/languages/tcl/t/cmd_flush.t   (original)
+++ trunk/languages/tcl/t/cmd_flush.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_for.t
==============================================================================
--- trunk/languages/tcl/t/cmd_for.t     (original)
+++ trunk/languages/tcl/t/cmd_for.t     Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_foreach.t
==============================================================================
--- trunk/languages/tcl/t/cmd_foreach.t (original)
+++ trunk/languages/tcl/t/cmd_foreach.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_format.t
==============================================================================
--- trunk/languages/tcl/t/cmd_format.t  (original)
+++ trunk/languages/tcl/t/cmd_format.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_gets.t
==============================================================================
--- trunk/languages/tcl/t/cmd_gets.t    (original)
+++ trunk/languages/tcl/t/cmd_gets.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_global.t
==============================================================================
--- trunk/languages/tcl/t/cmd_global.t  (original)
+++ trunk/languages/tcl/t/cmd_global.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_if.t
==============================================================================
--- trunk/languages/tcl/t/cmd_if.t      (original)
+++ trunk/languages/tcl/t/cmd_if.t      Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_incr.t
==============================================================================
--- trunk/languages/tcl/t/cmd_incr.t    (original)
+++ trunk/languages/tcl/t/cmd_incr.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_info.t
==============================================================================
--- trunk/languages/tcl/t/cmd_info.t    (original)
+++ trunk/languages/tcl/t/cmd_info.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_inline.t
==============================================================================
--- trunk/languages/tcl/t/cmd_inline.t  (original)
+++ trunk/languages/tcl/t/cmd_inline.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_join.t
==============================================================================
--- trunk/languages/tcl/t/cmd_join.t    (original)
+++ trunk/languages/tcl/t/cmd_join.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lappend.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lappend.t (original)
+++ trunk/languages/tcl/t/cmd_lappend.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lassign.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lassign.t (original)
+++ trunk/languages/tcl/t/cmd_lassign.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lindex.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lindex.t  (original)
+++ trunk/languages/tcl/t/cmd_lindex.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_linsert.t
==============================================================================
--- trunk/languages/tcl/t/cmd_linsert.t (original)
+++ trunk/languages/tcl/t/cmd_linsert.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_list.t
==============================================================================
--- trunk/languages/tcl/t/cmd_list.t    (original)
+++ trunk/languages/tcl/t/cmd_list.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_llength.t
==============================================================================
--- trunk/languages/tcl/t/cmd_llength.t (original)
+++ trunk/languages/tcl/t/cmd_llength.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lrange.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lrange.t  (original)
+++ trunk/languages/tcl/t/cmd_lrange.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lrepeat.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lrepeat.t (original)
+++ trunk/languages/tcl/t/cmd_lrepeat.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lreplace.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lreplace.t        (original)
+++ trunk/languages/tcl/t/cmd_lreplace.t        Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lset.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lset.t    (original)
+++ trunk/languages/tcl/t/cmd_lset.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_lsort.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lsort.t   (original)
+++ trunk/languages/tcl/t/cmd_lsort.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_namespace.t
==============================================================================
--- trunk/languages/tcl/t/cmd_namespace.t       (original)
+++ trunk/languages/tcl/t/cmd_namespace.t       Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_parray.t
==============================================================================
--- trunk/languages/tcl/t/cmd_parray.t  (original)
+++ trunk/languages/tcl/t/cmd_parray.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_proc.t
==============================================================================
--- trunk/languages/tcl/t/cmd_proc.t    (original)
+++ trunk/languages/tcl/t/cmd_proc.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_puts.t
==============================================================================
--- trunk/languages/tcl/t/cmd_puts.t    (original)
+++ trunk/languages/tcl/t/cmd_puts.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_pwd.t
==============================================================================
--- trunk/languages/tcl/t/cmd_pwd.t     (original)
+++ trunk/languages/tcl/t/cmd_pwd.t     Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_regexp.t
==============================================================================
--- trunk/languages/tcl/t/cmd_regexp.t  (original)
+++ trunk/languages/tcl/t/cmd_regexp.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_rename.t
==============================================================================
--- trunk/languages/tcl/t/cmd_rename.t  (original)
+++ trunk/languages/tcl/t/cmd_rename.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_return.t
==============================================================================
--- trunk/languages/tcl/t/cmd_return.t  (original)
+++ trunk/languages/tcl/t/cmd_return.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_set.t
==============================================================================
--- trunk/languages/tcl/t/cmd_set.t     (original)
+++ trunk/languages/tcl/t/cmd_set.t     Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_socket.t
==============================================================================
--- trunk/languages/tcl/t/cmd_socket.t  (original)
+++ trunk/languages/tcl/t/cmd_socket.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_source.t
==============================================================================
--- trunk/languages/tcl/t/cmd_source.t  (original)
+++ trunk/languages/tcl/t/cmd_source.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_split.t
==============================================================================
--- trunk/languages/tcl/t/cmd_split.t   (original)
+++ trunk/languages/tcl/t/cmd_split.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_string.t
==============================================================================
--- trunk/languages/tcl/t/cmd_string.t  (original)
+++ trunk/languages/tcl/t/cmd_string.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_stringOld.t
==============================================================================
--- trunk/languages/tcl/t/cmd_stringOld.t       (original)
+++ trunk/languages/tcl/t/cmd_stringOld.t       Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_subst.t
==============================================================================
--- trunk/languages/tcl/t/cmd_subst.t   (original)
+++ trunk/languages/tcl/t/cmd_subst.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_switch.t
==============================================================================
--- trunk/languages/tcl/t/cmd_switch.t  (original)
+++ trunk/languages/tcl/t/cmd_switch.t  Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_time.t
==============================================================================
--- trunk/languages/tcl/t/cmd_time.t    (original)
+++ trunk/languages/tcl/t/cmd_time.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_unset.t
==============================================================================
--- trunk/languages/tcl/t/cmd_unset.t   (original)
+++ trunk/languages/tcl/t/cmd_unset.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_uplevel.t
==============================================================================
--- trunk/languages/tcl/t/cmd_uplevel.t (original)
+++ trunk/languages/tcl/t/cmd_uplevel.t Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #! perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/cmd_upvar.t
==============================================================================
--- trunk/languages/tcl/t/cmd_upvar.t   (original)
+++ trunk/languages/tcl/t/cmd_upvar.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_variable.t
==============================================================================
--- trunk/languages/tcl/t/cmd_variable.t        (original)
+++ trunk/languages/tcl/t/cmd_variable.t        Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_vwait.t
==============================================================================
--- trunk/languages/tcl/t/cmd_vwait.t   (original)
+++ trunk/languages/tcl/t/cmd_vwait.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/cmd_while.t
==============================================================================
--- trunk/languages/tcl/t/cmd_while.t   (original)
+++ trunk/languages/tcl/t/cmd_while.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/tcl_backslash.t
==============================================================================
--- trunk/languages/tcl/t/tcl_backslash.t       (original)
+++ trunk/languages/tcl/t/tcl_backslash.t       Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #! perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/tcl_command_subst.t
==============================================================================
--- trunk/languages/tcl/t/tcl_command_subst.t   (original)
+++ trunk/languages/tcl/t/tcl_command_subst.t   Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2006, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/tcl_conversion.t
==============================================================================
--- trunk/languages/tcl/t/tcl_conversion.t      (original)
+++ trunk/languages/tcl/t/tcl_conversion.t      Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/tcl_glob.t
==============================================================================
--- trunk/languages/tcl/t/tcl_glob.t    (original)
+++ trunk/languages/tcl/t/tcl_glob.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/tcl_misc.t
==============================================================================
--- trunk/languages/tcl/t/tcl_misc.t    (original)
+++ trunk/languages/tcl/t/tcl_misc.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #! perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/tcl_namespace.t
==============================================================================
--- trunk/languages/tcl/t/tcl_namespace.t       (original)
+++ trunk/languages/tcl/t/tcl_namespace.t       Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/t/tcl_pir_compiler.t
==============================================================================
--- trunk/languages/tcl/t/tcl_pir_compiler.t    (original)
+++ trunk/languages/tcl/t/tcl_pir_compiler.t    Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

Modified: trunk/languages/tcl/t/tcl_var_subst.t
==============================================================================
--- trunk/languages/tcl/t/tcl_var_subst.t       (original)
+++ trunk/languages/tcl/t/tcl_var_subst.t       Mon Sep  3 03:16:05 2007
@@ -1,5 +1,7 @@
 #!perl
 
+# Copyright (C) 2004-2007, The Perl Foundation.
+
 # the following lines re-execute this as a tcl script
 # the \ at the end of these lines makes them a comment in tcl \
 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \

Modified: trunk/languages/tcl/tools/gen_builtins.pl
==============================================================================
--- trunk/languages/tcl/tools/gen_builtins.pl   (original)
+++ trunk/languages/tcl/tools/gen_builtins.pl   Mon Sep  3 03:16:05 2007
@@ -1,4 +1,7 @@
 #! perl
+
+# Copyright (C) 2003-2006, The Perl Foundation.
+
 use strict;
 use warnings;
 use lib qw(lib);

Modified: trunk/languages/tcl/tools/gen_inline.pl
==============================================================================
--- trunk/languages/tcl/tools/gen_inline.pl     (original)
+++ trunk/languages/tcl/tools/gen_inline.pl     Mon Sep  3 03:16:05 2007
@@ -1,4 +1,7 @@
 #! perl
+
+# Copyright (C) 2006-2007, The Perl Foundation.
+
 use strict;
 use warnings;
 

Modified: trunk/languages/tcl/tools/tcl_harness.pl
==============================================================================
--- trunk/languages/tcl/tools/tcl_harness.pl    (original)
+++ trunk/languages/tcl/tools/tcl_harness.pl    Mon Sep  3 03:16:05 2007
@@ -1,4 +1,7 @@
 #! perl
+
+# Copyright (C) 2005-2007, The Perl Foundation.
+
 use strict;
 use warnings;
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r21021 - in trunk/languages/tcl: lib/Parrot/Test lib/Tcl t tools, paultcochrane <=