perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

2 files changed, 3 insertions, 3 deletions

diff --git a/t/base/lex.t b/t/base/lex.t
index 1828ac62e8..f25cd2a12c 100755
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -65,7 +65,7 @@ print qq/ok 14\n/;
 print qq(ok 15\n);
 
 print qq
-ok 16\n
+[ok 16\n]
 ;
 
 print q<ok 17
diff --git a/t/base/term.t b/t/base/term.t
index 0f9a46f6c9..42cd56fe0b 100755
--- a/t/base/term.t
+++ b/t/base/term.t
@@ -29,7 +29,7 @@ if ($x == '1') {print "ok 4\n";} else {print "not ok 4\n";}
 
 # check <> pseudoliteral
 
-open(try, "/dev/null") || (die "Can't open /dev/null.");
+open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null.");
 if (<try> eq '') {
     print "ok 5\n";
 }
@@ -38,5 +38,5 @@ else {
     die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null';
 }
 
-open(try, "../Makefile") || (die "Can't open ../Makefile.");
+open(try, "../Configure") || (die "Can't open ../Configure.");
 if (<try> ne '') {print "ok 6\n";} else {print "not ok 6\n";}