[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

[PATCH] Pulling ancient RCS comments

From: Andy Lester <andy@petdance.com>
To: Perl 5 Porters <perl5-porters@perl.org>
Date: Sat, 19 Nov 2005 00:16:39 -0600
Message-ID: <20051119061639.GA25086@petdance.com>

I'm about to start a project to modernize t/*/*.t.

Here's the first part: Yanking all the old RCS commits from 1992.

xoxo,
Andy

-- 
Andy Lester => andy@petdance.com => www.petdance.com => AIM:petdance

Index: lib/stat.pl
===================================================================
--- lib/stat.pl	(revision 1109)
+++ lib/stat.pl	(working copy)
@@ -1,5 +1,3 @@
-;# $RCSfile: stat.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:13 $
-
 ;# Usage:
 ;#	require 'stat.pl';
 ;#	@ary = stat(foo);
Index: lib/importenv.pl
===================================================================
--- lib/importenv.pl	(revision 1109)
+++ lib/importenv.pl	(working copy)
@@ -1,5 +1,3 @@
-;# $RCSfile: importenv.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:02 $
-
 ;# This file, when interpreted, pulls the environment into normal variables.
 ;# Usage:
 ;#	require 'importenv.pl';
Index: lib/AnyDBM_File.t
===================================================================
--- lib/AnyDBM_File.t	(revision 1109)
+++ lib/AnyDBM_File.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
Index: lib/validate.pl
===================================================================
--- lib/validate.pl	(revision 1109)
+++ lib/validate.pl	(working copy)
@@ -1,5 +1,3 @@
-;# $RCSfile: validate.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:19 $
-
 ;# The validate routine takes a single multiline string consisting of
 ;# lines containing a filename plus a file test to try on it.  (The
 ;# file test may also be a 'cd', causing subsequent relative filenames
Index: t/comp/cpp.t
===================================================================
--- t/comp/cpp.t	(revision 1109)
+++ t/comp/cpp.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
Index: t/comp/cmdopt.t
===================================================================
--- t/comp/cmdopt.t	(revision 1109)
+++ t/comp/cmdopt.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: cmdopt.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:17 $
-
 print "1..44\n";
 
 # test the optimization of constants
Index: t/comp/decl.t
===================================================================
--- t/comp/decl.t	(revision 1109)
+++ t/comp/decl.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: decl.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:19 $
-
 # check to see if subroutine declarations work everwhere
 
 sub one {
Index: t/cmd/mod.t
===================================================================
--- t/cmd/mod.t	(revision 1109)
+++ t/cmd/mod.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: mod.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:11 $
-
 print "1..13\n";
 
 print "ok 1\n" if 1;
Index: t/cmd/switch.t
===================================================================
--- t/cmd/switch.t	(revision 1109)
+++ t/cmd/switch.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: switch.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:14 $
-
 print "1..18\n";
 
 sub foo1 {
Index: t/cmd/elsif.t
===================================================================
--- t/cmd/elsif.t	(revision 1109)
+++ t/cmd/elsif.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: elsif.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:08 $
-
 sub foo {
     if ($_[0] == 1) {
 	1;
Index: t/cmd/subval.t
===================================================================
--- t/cmd/subval.t	(revision 1109)
+++ t/cmd/subval.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: subval.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:13 $
-
 sub foo1 {
     'true1';
     if ($_[0]) { 'true2'; }
Index: t/io/tell.t
===================================================================
--- t/io/tell.t	(revision 1109)
+++ t/io/tell.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: tell.t,v $$Revision$$Date$
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
Index: t/io/read.t
===================================================================
--- t/io/read.t	(revision 1109)
+++ t/io/read.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile$
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
Index: t/io/inplace.t
===================================================================
--- t/io/inplace.t	(revision 1109)
+++ t/io/inplace.t	(working copy)
@@ -2,8 +2,6 @@
 
 $^I = $^O eq 'VMS' ? '_bak' : '.bak';
 
-# $RCSfile: inplace.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:29 $
-
 print "1..2\n";
 
 @ARGV = ('.a','.b','.c');
Index: t/base/if.t
===================================================================
--- t/base/if.t	(revision 1109)
+++ t/base/if.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: if.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:03 $
-
 print "1..2\n";
 
 # first test to see if we can run the tests.
Index: t/base/cond.t
===================================================================
--- t/base/cond.t	(revision 1109)
+++ t/base/cond.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: cond.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:02 $
-
 # make sure conditional operators work
 
 print "1..4\n";
Index: t/base/pat.t
===================================================================
--- t/base/pat.t	(revision 1109)
+++ t/base/pat.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: pat.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:05 $
-
 print "1..2\n";
 
 # first test to see if we can run the tests.
Index: t/base/term.t
===================================================================
--- t/base/term.t	(revision 1109)
+++ t/base/term.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: term.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:07 $
-
 BEGIN {
     chdir 't' if -d 't';
 }
Index: t/op/read.t
===================================================================
--- t/op/read.t	(revision 1109)
+++ t/op/read.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: read.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:17 $
-
 BEGIN {
     chdir 't';
     @INC = '../lib';
Index: t/op/goto_xs.t
===================================================================
--- t/op/goto_xs.t	(revision 1109)
+++ t/op/goto_xs.t	(working copy)
@@ -1,8 +1,6 @@
 #!./perl
 # tests for "goto &sub"-ing into XSUBs
 
-# $RCSfile$$Revision$$Date$
-
 # Note: This only tests things that should *work*.  At some point, it may
 #       be worth while to write some failure tests for things that should
 #       *break* (such as calls with wrong number of args).  For now, I'm
Index: t/op/flip.t
===================================================================
--- t/op/flip.t	(revision 1109)
+++ t/op/flip.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: flip.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:52 $
-
 chdir 't' if -d 't';
 
 print "1..15\n";
Index: t/op/time.t
===================================================================
--- t/op/time.t	(revision 1109)
+++ t/op/time.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: time.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:32 $
-
 if ( $does_gmtime = gmtime(time) ) { 
     print "1..7\n" 
 }
Index: t/op/my.t
===================================================================
--- t/op/my.t	(revision 1109)
+++ t/op/my.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: my.t,v $
-
 print "1..34\n";
 
 sub foo {
Index: t/op/do.t
===================================================================
--- t/op/do.t	(revision 1109)
+++ t/op/do.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: do.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:45 $
-
 sub foo1
 {
     ok($_[0]);
Index: t/op/append.t
===================================================================
--- t/op/append.t	(revision 1109)
+++ t/op/append.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: append.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:36 $
-
 print "1..13\n";
 
 $a = 'ab' . 'c';	# compile time
Index: t/op/auto.t
===================================================================
--- t/op/auto.t	(revision 1109)
+++ t/op/auto.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: auto.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:39 $
-
 print "1..37\n";
 
 $x = 10000;
Index: t/op/unshift.t
===================================================================
--- t/op/unshift.t	(revision 1109)
+++ t/op/unshift.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: unshift.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:35 $
-
 print "1..2\n";
 
 @a = (1,2,3);
Index: t/op/cond.t
===================================================================
--- t/op/cond.t	(revision 1109)
+++ t/op/cond.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: cond.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:41 $
-
 print "1..4\n";
 
 print 1 ? "ok 1\n" : "not ok 1\n";	# compile time
Index: t/op/push.t
===================================================================
--- t/op/push.t	(revision 1109)
+++ t/op/push.t	(working copy)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: push.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:13 $
-
 @tests = split(/\n/, <<EOF);
 0 3,			0 1 2,		3 4 5 6 7
 0 0 a b c,		,		a b c 0 1 2 3 4 5 6 7

Follow-Ups from:: Steve Peters <steve@fisharerojo.org>

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]