Change 23666: $#a>>=1 relies on malloc wrap to avoid the segfault, so need to

[Nicholas Clark]

Change 23666 by [EMAIL PROTECTED] on 2004/12/21 20:31:57

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

Affected files ...

... //depot/perl/t/op/bop.t#26 edit

Differences ...

==== //depot/perl/t/op/bop.t#26 (xtext) ====
Index: perl/t/op/bop.t
--- perl/t/op/bop.t#25~23660~   Thu Dec 16 08:09:20 2004
+++ perl/t/op/bop.t     Tue Dec 21 12:31:57 2004
@@ -8,6 +8,7 @@
     chdir 't' if -d 't';
     @INC = '../lib';
     require "./test.pl";
+    require Config;
 }
 
 # Tests don't have names yet.
@@ -323,5 +324,8 @@
 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?" );
+}
End of Patch.