Integrate with Sarathy.

p4raw-id: //depot/cfgperl@3742

7 files changed, 32 insertions, 4 deletions

diff --git a/t/harness b/t/harness
index c46a87090c..b89b35ac85 100644
--- a/t/harness
+++ b/t/harness
@@ -57,7 +57,7 @@ EOT
 @tests = grep (!$infinite{$_}, @tests);
 @tests = map {
          my $new = $_;
-	 if ($datahandle{$_} && !( -f $new.t) ) {
+	 if ($datahandle{$_} && !( -f "$new.t") ) {
              $new .= '.t';
              local(*F, *T);
              open(F,"<$_") or die "Can't open $_: $!";
diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t
index 8547024df3..3d5145ec5e 100755
--- a/t/lib/io_udp.t
+++ b/t/lib/io_udp.t
@@ -31,6 +31,7 @@ BEGIN {
 }
 
 sub compare_addr {
+    no utf8;
     my $a = shift;
     my $b = shift;
     if (length($a) != length $b) {
diff --git a/t/op/each.t b/t/op/each.t
index 9063c2c3ed..879c0d0fd3 100755
--- a/t/op/each.t
+++ b/t/op/each.t
@@ -1,8 +1,6 @@
 #!./perl
 
-# $RCSfile: each.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:47 $
-
-print "1..16\n";
+print "1..19\n";
 
 $h{'abc'} = 'ABC';
 $h{'def'} = 'DEF';
@@ -120,3 +118,16 @@ while (($key, $value) = each(h)) {
 	}
 }
 if ($i == 5) { print "ok 16\n" } else { print "not ok\n" }
+
+{
+    package Obj;
+    sub DESTROY { print "ok 18\n"; }
+    {
+	my $h = { A => bless [], __PACKAGE__ };
+        while (my($k,$v) = each %$h) {
+	    print "ok 17\n" if $k eq 'A' and ref($v) eq 'Obj';
+	}
+    }
+    print "ok 19\n";
+}
+
diff --git a/t/op/misc.t b/t/op/misc.t
index 8281bf0e77..926c7f38d0 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -497,3 +497,11 @@ END { print $foo }
 ';
 EXPECT
 ZZZ
+########
+-w
+if (@ARGV) { print "" }
+else {
+  if ($x == 0) { print "" } else { print $x }
+}
+EXPECT
+Use of uninitialized value at - line 4.
diff --git a/t/op/re_tests b/t/op/re_tests
index cbcb7251b1..34b6e29414 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -714,3 +714,4 @@ a(?{$a=2;$b=3;($b)=$a})b	yabz	y	$b	2
 round\(((?>[^()]+))\)	_I(round(xs * sz),1)	y	$1	xs * sz
 '((?x:.) )'	x 	y	$1-	x -
 '((?-x:.) )'x	x 	y	$1-	x-
+foo.bart	foo.bart	y	-	-
diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index f6b0f2d189..4999617d51 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -11,6 +11,7 @@ BEGIN {
 }
 
 use strict;
+no utf8;
 
 my $debug = 1;
 
diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot
index 60490bcd6a..f586b2540c 100644
--- a/t/pragma/warn/pp_hot
+++ b/t/pragma/warn/pp_hot
@@ -54,6 +54,12 @@ print getc(FOO);
 read(FOO,$_,1);
 no warning 'io' ;
 print STDIN "anc";
+###############################################################
+#                            N O T E                          #
+# This test is known to fail on Linux systems with glibc.     #
+# The glibc development team is aware of the problem, and has #
+# determined a fix for the next release of that library.      #
+###############################################################
 EXPECT
 Filehandle main::STDIN opened only for input at - line 3.
 Filehandle main::STDOUT opened only for output at - line 4.