$#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

1 files changed, 6 insertions, 2 deletions

diff --git a/t/op/bop.t b/t/op/bop.t
index b93b3c52f6..87291676ef 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?" );
+}