perl 5.0 alpha 2perl-5a2

[editor's note: from history.perl.org.  The sparc executables
originally included in the distribution are not in this commit.]

9 files changed, 7 insertions, 107 deletions

diff --git a/t/io/argv.t b/t/io/argv.t
index 6f55896fdf..cee43fc46e 100644..100755
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: argv.t,v 4.0 91/03/20 01:50:46 lwall Locked $
+# $RCSfile: argv.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:25 $
 
 print "1..5\n";
 
diff --git a/t/io/dup.t b/t/io/dup.t
index e5ea7d410d..901642d8f6 100644..100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: dup.t,v 4.0 91/03/20 01:50:49 lwall Locked $
+# $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $
 
 print "1..6\n";
 
diff --git a/t/io/fs.t b/t/io/fs.t
index d298b29509..9eaf1da5f2 100644..100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: fs.t,v 4.0 91/03/20 01:50:55 lwall Locked $
+# $RCSfile: fs.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:28 $
 
 print "1..22\n";
 
diff --git a/t/io/fs.t.orig b/t/io/fs.t.orig
deleted file mode 100644
index 705523cffe..0000000000
--- a/t/io/fs.t.orig
+++ /dev/null
@@ -1,85 +0,0 @@
-#!./perl
-
-# $Header: fs.t,v 4.0 91/03/20 01:50:55 lwall Locked $
-
-print "1..22\n";
-
-$wd = `pwd`;
-chop($wd);
-
-`rm -f tmp 2>/dev/null; mkdir tmp 2>/dev/null`;
-chdir './tmp';
-`/bin/rm -rf a b c x`;
-
-umask(022);
-
-if (umask(0) == 022) {print "ok 1\n";} else {print "not ok 1\n";}
-open(fh,'>x') || die "Can't create x";
-close(fh);
-open(fh,'>a') || die "Can't create a";
-close(fh);
-
-if (link('a','b')) {print "ok 2\n";} else {print "not ok 2\n";}
-
-if (link('b','c')) {print "ok 3\n";} else {print "not ok 3\n";}
-
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('c');
-
-if ($nlink == 3) {print "ok 4\n";} else {print "not ok 4\n";}
-if (($mode & 0777) == 0666) {print "ok 5\n";} else {print "not ok 5\n";}
-
-if ((chmod 0777,'a') == 1) {print "ok 6\n";} else {print "not ok 6\n";}
-
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('c');
-if (($mode & 0777) == 0777) {print "ok 7\n";} else {print "not ok 7\n";}
-
-if ((chmod 0700,'c','x') == 2) {print "ok 8\n";} else {print "not ok 8\n";}
-
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('c');
-if (($mode & 0777) == 0700) {print "ok 9\n";} else {print "not ok 9\n";}
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('x');
-if (($mode & 0777) == 0700) {print "ok 10\n";} else {print "not ok 10\n";}
-
-if ((unlink 'b','x') == 2) {print "ok 11\n";} else {print "not ok 11\n";}
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('b');
-if ($ino == 0) {print "ok 12\n";} else {print "not ok 12\n";}
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('x');
-if ($ino == 0) {print "ok 13\n";} else {print "not ok 13\n";}
-
-if (rename('a','b')) {print "ok 14\n";} else {print "not ok 14\n";}
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('a');
-if ($ino == 0) {print "ok 15\n";} else {print "not ok 15\n";}
-$foo = (utime 500000000,500000001,'b');
-if ($foo == 1) {print "ok 16\n";} else {print "not ok 16 $foo\n";}
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('b');
-if ($ino) {print "ok 17\n";} else {print "not ok 17\n";}
-if (($atime == 500000000 && $mtime == 500000001) || $wd =~ m#/afs/#)
-    {print "ok 18\n";}
-else
-    {print "not ok 18 $atime $mtime\n";}
-
-if ((unlink 'b') == 1) {print "ok 19\n";} else {print "not ok 19\n";}
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-    $blksize,$blocks) = stat('b');
-if ($ino == 0) {print "ok 20\n";} else {print "not ok 20\n";}
-unlink 'c';
-
-chdir $wd || die "Can't cd back to $wd";
-
-unlink 'c';
-if (`ls -l perl 2>/dev/null` =~ /^l.*->/) {  # we have symbolic links
-    if (symlink("TEST","c")) {print "ok 21\n";} else {print "not ok 21\n";}
-    $foo = `grep perl c`;
-    if ($foo) {print "ok 22\n";} else {print "not ok 22\n";}
-}
-else {
-    print "ok 21\nok 22\n";
-}
diff --git a/t/io/fs.t.rej b/t/io/fs.t.rej
deleted file mode 100644
index e519af0ed8..0000000000
--- a/t/io/fs.t.rej
+++ /dev/null
@@ -1,15 +0,0 @@
-***************
-*** 1,6 ****
-  #!./perl
-  
-! # $Header: fs.t,v 4.0 1991/03/20 01:50:55 lwall Locked $
-  
-  print "1..22\n";
-  
---- 1,6 ----
-  #!./perl
-  
-! # $RCSfile: fs.t,v $$Revision: 4.0.1.1 $$Date: 1993/02/05 19:44:34 $
-  
-  print "1..22\n";
-  
diff --git a/t/io/inplace.t b/t/io/inplace.t
index b8a5649056..477add1942 100644..100755
--- a/t/io/inplace.t
+++ b/t/io/inplace.t
@@ -2,7 +2,7 @@
 
 $^I = '.bak';
 
-# $Header: inplace.t,v 4.0 91/03/20 01:50:59 lwall Locked $
+# $RCSfile: inplace.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:29 $
 
 print "1..2\n";
 
diff --git a/t/io/pipe.t b/t/io/pipe.t
index d41f5faaec..0133c39e49 100644..100755
--- a/t/io/pipe.t
+++ b/t/io/pipe.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: pipe.t,v 4.0 91/03/20 01:51:02 lwall Locked $
+# $RCSfile: pipe.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:31 $
 
 $| = 1;
 print "1..8\n";
diff --git a/t/io/print.t b/t/io/print.t
index 30294f51fa..180b1e88d7 100644..100755
--- a/t/io/print.t
+++ b/t/io/print.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: print.t,v 4.0 91/03/20 01:51:08 lwall Locked $
+# $RCSfile: print.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:32 $
 
 print "1..16\n";
 
diff --git a/t/io/tell.t b/t/io/tell.t
index cb1fc4c3be..af012b08cf 100644..100755
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: tell.t,v 4.0 91/03/20 01:51:14 lwall Locked $
+# $RCSfile: tell.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:33 $
 
 print "1..13\n";