- my $suffix = "\nExecution(?s:.*)";
- if ("$]" >= 5.011005) {
- $suffix = "(?:\nsalsify at -e line \\d+.){12}" . $suffix;
- } elsif ("$]" >= 5.011) {
- $suffix = "(?:\nsalsify at -e line \\d+.){3}" . $suffix;
- }
- like $output, expect('salsify', '-e', $suffix),
- 'die in free callback at compile time and not in eval string';
+ like $output, qr/^(?:raddish at -e line \d+\.\n)+Execution(?s:.*)/,
+ 'die in free callback at compile time and not in eval string';