Unportable subtest needs rethink.

p4raw-id: //depot/perl@20393

diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index 4ac8652..75fcf2e 100644 (file)
--- a/ext/B/t/bytecode.t
+++ b/ext/B/t/bytecode.t
@@ -97,10 +97,6 @@ my $i = 1;
 my $foo = sub {$i = shift if @_};
 &$foo(3);
 ############################################################
-print <.*>
->>>>
-..*
-############################################################
 $_="\xff\xff"; use utf8; utf8::encode $_; print $_
 >>>>
 \xc3\xbf\xc3\xbf