From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 21 Dec 2004 20:31:57 +0000 (+0000)
Subject: $#a>>=1 relies on malloc wrap to avoid the segfault, so need to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=784fea9c399df2b90bca112fecf00acbb3989212;p=p5sagit%2Fp5-mst-13.2.git

$#a>>=1 relies on malloc wrap to avoid the segfault, so need to
skip the test on platforms where it's not available

p4raw-id: //depot/perl@23666
---

diff --git a/t/op/bop.t b/t/op/bop.t
index b93b3c5..8729167 100755
--- a/t/op/bop.t
+++ b/t/op/bop.t
@@ -8,6 +8,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require "./test.pl";
+    require Config;
 }
 
 # Tests don't have names yet.
@@ -323,5 +324,8 @@ $a = ~$a;
 is($a, "\xFF", "~ works with utf-8");
 
 # [rt.perl.org 33003]
-# This would cause a segfault
-like( runperl(prog => 'eval q($#a>>=1); print 1'), "^1\n?" );
+# This would cause a segfault without malloc wrap
+SKIP: {
+  skip "No malloc wrap checks" unless $Config::Config{usemallocwrap};
+  like( runperl(prog => 'eval q($#a>>=1); print 1'), "^1\n?" );
+}