This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pulling ancient RCS comments
authorAndy Lester <andy@petdance.com>
Sat, 19 Nov 2005 00:16:39 +0000 (18:16 -0600)
committerSteve Peters <steve@fisharerojo.org>
Sun, 20 Nov 2005 02:41:01 +0000 (02:41 +0000)
Message-ID: <20051119061639.GA25086@petdance.com>

p4raw-id: //depot/perl@26178

29 files changed:
lib/AnyDBM_File.t
lib/importenv.pl
lib/stat.pl
lib/validate.pl
t/base/cond.t
t/base/if.t
t/base/pat.t
t/base/term.t
t/cmd/elsif.t
t/cmd/mod.t
t/cmd/subval.t
t/cmd/switch.t
t/comp/cmdopt.t
t/comp/cpp.t
t/comp/decl.t
t/io/inplace.t
t/io/read.t
t/io/tell.t
t/op/append.t
t/op/auto.t
t/op/cond.t
t/op/do.t
t/op/flip.t
t/op/goto_xs.t
t/op/my.t
t/op/push.t
t/op/read.t
t/op/time.t
t/op/unshift.t

index b87d26a..cb9eee9 100755 (executable)
@@ -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 c28ffd0..0401127 100644 (file)
@@ -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 f7c240a..c6682b9 100644 (file)
@@ -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 ec4a04b..c655872 100644 (file)
@@ -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 9a57348..e2ef358 100755 (executable)
@@ -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 12db765..f093b0d 100755 (executable)
@@ -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 c689f45..9e3f615 100755 (executable)
@@ -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 2d3fe5a..83a32aa 100755 (executable)
@@ -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 7eace16..536358c 100755 (executable)
@@ -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 d427d78..07617f5 100755 (executable)
@@ -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 67a4ebf..0999ff9 100755 (executable)
@@ -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 faa5de4..82f417f 100755 (executable)
@@ -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 3f701a4..f72ddb3 100755 (executable)
@@ -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 48250c2..80add81 100755 (executable)
@@ -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 32b8509..a4b898c 100755 (executable)
@@ -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 a97add5..9b5be2a 100755 (executable)
@@ -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 6d590ff..2665ecb 100755 (executable)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile$
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
index 9527876..4881d43 100755 (executable)
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: tell.t,v $$Revision$$Date$
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
index 9d6c1d5..21af62c 100755 (executable)
@@ -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 2eb0097..818db4f 100755 (executable)
@@ -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 427efb4..0a0d1e1 100755 (executable)
@@ -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 b611d0d..9775331 100755 (executable)
--- a/t/op/do.t
+++ b/t/op/do.t
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: do.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:45 $
-
 sub foo1
 {
     ok($_[0]);
index 70666ac..5a4e8d0 100755 (executable)
@@ -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 2c95139..6505889 100755 (executable)
@@ -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 6feabe4..d219f80 100755 (executable)
--- a/t/op/my.t
+++ b/t/op/my.t
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile: my.t,v $
-
 print "1..34\n";
 
 sub foo {
index a67caed..8b12e61 100755 (executable)
@@ -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
index 99a6216..8235bc2 100755 (executable)
@@ -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 2105e9d..fc73a7b 100755 (executable)
@@ -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 68d3775..0c26623 100755 (executable)
@@ -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);