Permalink
Browse files

5.18 bytecode todos

  • Loading branch information...
1 parent 8949966 commit bb47fa9735ad381bf198b9fd4e25cce3547bbd13 Reini Urban committed Feb 19, 2014
Showing with 2 additions and 2 deletions.
  1. +1 −1 t/issue237.t
  2. +1 −1 t/issue59.t
View
@@ -11,4 +11,4 @@ my $cmt = '#237 NULL in strings';
my $script = 'print "\000\000\000\000_"';
my $exp = "^\000\000\000\000_\$";
ctest(1, $exp, 'C,-O3', 'ccode237i', $script, 'C '.$cmt);
-plctest(2, $exp, 'ccode237i', $script, "BC ".$cmt);
+plctest(2, $exp, 'ccode237i', $script, "BC ".$cmt.($]>=5.018?" TODO 5.18 bc":""));
View
@@ -32,7 +32,7 @@ my $result = qx($runperl $name.pl);
my $canconnect = $result eq $expected ? 1 : 0;
my $cmt = ($canconnect ? "" : "TODO ") ."connect to http://perl.org:80 via IO::Socket";
-plctestok(1, $name, $script, $cmt);
+plctestok(1, $name, $script, $cmt.($]>=5.018?" TODO 5.18 bc":""));
SKIP: {
skip "eats memory on 5.6", 2 if $] <= 5.008001;

0 comments on commit bb47fa9

Please sign in to comment.