The #9735 also changes the subtest 12.

[p5sagit/p5-mst-13.2.git] / t / lib / b.t

diff --git a/t/lib/b.t b/t/lib/b.t
index 9cadaf7..65a8013 100755 (executable)
--- a/t/lib/b.t
+++ b/t/lib/b.t
@@ -25,6 +25,16 @@ use B::Deparse;
 my $deparse = B::Deparse->new() or print "not ";
 ok;
 
+# Tell B::Deparse about our ambient pragmas
+{ my ($hint_bits, $warning_bits);
+ BEGIN {($hint_bits, $warning_bits) = ($^H, ${^WARNING_BITS})}
+ $deparse->ambient_pragmas (
+     hint_bits    => $hint_bits,
+     warning_bits => $warning_bits,
+     '$['         => 0 + $[
+ );
+}
+
 print "not " if "{\n    1;\n}" ne $deparse->coderef2text(sub {1});
 ok;
 
@@ -97,7 +107,7 @@ $b = <<'EOF';
 
 LINE: while (defined($_ = <ARGV>)) {
     chomp $_;
-    @F = split(/\s+/, $_, 0);
+    @F = split(" ", $_, 0);
     '???';
 }