This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
$#a>>=1 relies on malloc wrap to avoid the segfault, so need to
authorNicholas Clark <nick@ccl4.org>
Tue, 21 Dec 2004 20:31:57 +0000 (20:31 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 21 Dec 2004 20:31:57 +0000 (20:31 +0000)
skip the test on platforms where it's not available

p4raw-id: //depot/perl@23666

t/op/bop.t

index b93b3c5..8729167 100755 (executable)
@@ -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?" );
+}