X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/92e8e65053b85a7f695f0a1b5270a3567df87863..c4874d8a25094b3c3426b7831ebba86fc934a652:/lib/B/Deparse-core.t

diff --git a/lib/B/Deparse-core.t b/lib/B/Deparse-core.t
index 2ed797a..6ee935f 100644
--- a/lib/B/Deparse-core.t
+++ b/lib/B/Deparse-core.t
@@ -80,21 +80,23 @@ sub testit {
 	$desc .= " (lex sub)" if $lexsub;
 
 
+        my $code;
 	my $code_ref;
 	if ($lexsub) {
 	    package lexsubtest;
 	    no warnings 'experimental::lexical_subs';
 	    use feature 'lexical_subs';
 	    no strict 'vars';
-	    $code_ref =
-		eval "sub { state sub $keyword; ${vars}() = $expr }"
-			    || die "$@ in $expr";
+            $code = "sub { state sub $keyword; ${vars}() = $expr }";
+	    $code_ref = eval $code
+			    or die "$@ in $expr";
 	}
 	else {
 	    package test;
 	    use subs ();
 	    import subs $keyword;
-	    $code_ref = eval "no strict 'vars'; sub { ${vars}() = $expr }"
+	    $code = "no strict 'vars'; sub { ${vars}() = $expr }";
+	    $code_ref = eval $code
 			    or die "$@ in $expr";
 	}
 
@@ -115,7 +117,8 @@ sub testit {
 	}
 
 	my $got_expr = $1;
-	is $got_expr, $expected_expr, $desc;
+	is $got_expr, $expected_expr, $desc
+            or ::diag("ORIGINAL CODE:\n$code");;
     }
 }
 
@@ -639,7 +642,7 @@ sprintf          123   p
 sqrt             01    $
 srand            01    -
 stat             01    $
-state            123   p+ # skip with 0 args, as state() => ()
+state            123   p1+ # skip with 0 args, as state() => ()
 study            01    $+
 # sub handled specially
 substr           234   p