--- reg +++ reg @@ -8 +8 @@ - # Switch off context substring retention +#~ # Switch off context substring retention @@ -117 +117 @@ -for my $str( q/[false,true,null]/ , ){ +for my $str( q/[ -2.0, 4.333e333, 600 ]/ , ){