| Subject: | [PATCH] Fix tests for 5.17.4 |
PL_linestr always gets the "\n;" tacked on the end now for string eval, to make eval "q;;" and eval
"return; #comment;" work.
| Subject: | open_Pdb8V3vW.txt |
diff -rup B-Hooks-Parser-0.11/t/basic.t B-Hooks-Parser-0.11-pvSl9F/t/basic.t
--- B-Hooks-Parser-0.11/t/basic.t 2012-02-06 04:11:15.000000000 -0800
+++ B-Hooks-Parser-0.11-pvSl9F/t/basic.t 2012-10-08 23:00:52.000000000 -0700
@@ -14,7 +14,7 @@ sub eval_test($) {
my($src) = @_;
$x = undef;
is eval($src), 1;
- is $x, $src;
+ like $x, qr/^\Q$src\E(?:\n;)?/;
}
eval_test(qq{ BEGIN { \$x = B::Hooks::Parser::get_linestr(); } 1 ;});
eval_test(qq{ BEGIN { \$x = B::Hooks::Parser::get_linestr(); } q\x{0}1\x{0} ;});