Integrate:

[ 22337]
fix write test: -small_number may be displayed as 00.00 or -0.00

[ 22343]
-Dx could coredump on threaded builds because consts are now
stored in the pad

[ 22351]
remove a split test's dependence on -Dx output
(needed after change #22343)

[ 22371]
Fix a segfault during optree construction. (bug #27024)

[ 22372]
Enhance test cleanliness by a very small factor.

[ 22373]
[perl #26959] fix memory leak in @_ = ...; goto &sub

[ 22375]
Skip the Net/Ping/450_service failures on HP-UX for the time being	
p4raw-link: @22375 on //depot/perl: ff4091f15699664c73b1648f3e0ba5ff2c76be14
p4raw-link: @22373 on //depot/perl: 0a76ff6528f0ab52947d4f1b9664310ce137b9a0
p4raw-link: @22372 on //depot/perl: 1bca678fff053a0e59f0fc9898b8d61aeda6473e
p4raw-link: @22371 on //depot/perl: e1548254d1365ef0342d5b64bb1fd1d996c1f70f
p4raw-link: @22351 on //depot/perl: e550c049a174d317e4e17172c9276b8aca255fd8
p4raw-link: @22343 on //depot/perl: b6a15bc5202dd52395ce566b43e1490d38dc2141
p4raw-link: @22337 on //depot/perl: 8975a8c255049aa172fbac58615aa6b8f5076610

p4raw-id: //depot/maint-5.8/perl@22395
p4raw-edited: from //depot/perl@22394 'edit in' t/comp/parser.t
	(@22371..)
p4raw-integrated: from //depot/perl@22394 'copy in' t/op/split.t
	(@19135..) lib/Net/Ping/t/450_service.t (@20021..) 'merge in'
	t/op/write.t (@22203..) pp_ctl.c (@22369..)
p4raw-integrated: from //depot/perl@22371 'merge in' op.c (@22357..)
p4raw-integrated: from //depot/perl@22343 'merge in' dump.c (@22315..)

1 files changed, 6 insertions, 3 deletions

diff --git a/t/op/write.t b/t/op/write.t
index ab721f7a37..7b88c40582 100755
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -33,7 +33,7 @@ my @NumTests = (
                 999.99499, '999.99',      -100, '######' ],
 
     [ '@0#.##',         0, '000.00',         1, '001.00',       10, '010.00',
-                  -0.0001, '-00.00' ],
+                  -0.0001, qr/^[\-0]00\.00$/ ],
 
 );
 
@@ -486,8 +486,11 @@ for my $tref ( @NumTests ){
 	my $expected = shift @$tref;
         my $writeres = swrite( $writefmt, $val );
         $nt++;
-
-        print $expected eq $writeres
+	my $ok = ref($expected)
+		 ? $writeres =~ $expected
+		 : $writeres eq $expected;
+	
+        print $ok
 	    ? "ok $nt\n"
 	    : "not ok $nt\n# f=[$writefmt] exp=[$expected] got=[$writeres]\n";
     }