}
-plan tests => 2512; # Update this when adding/deleting tests.
+plan tests => 2514; # Update this when adding/deleting tests.
run_tests() unless caller;
func "standalone";
$_ = "x"; s/x/func "in subst"/e;
$_ = "x"; s/x/func "in multiline subst"/em;
-
- #
- # Next two give 'panic: malloc'.
- # Outcommented, using two TODOs.
- #
- local $TODO = 'panic: malloc';
- local $Message = 'Postponed regexp and propaged modifier';
- # ok 0 for 1 .. 2;
- SKIP: {
- skip "panic: malloc", 2;
- $_ = "x"; /x(?{func "in regexp"})/;
- $_ = "x"; /x(?{func "in multiline regexp"})/m;
- }
+ $_ = "x"; /x(?{func "in regexp"})/;
+ $_ = "x"; /x(?{func "in multiline regexp"})/m;
}