|
|
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;
|
|