projects
/
p5sagit/Eval-WithLexicals.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
protect against empty string in PV
[p5sagit/Eval-WithLexicals.git]
/
t
/
hints.t
diff --git
a/t/hints.t
b/t/hints.t
index
5ce67d8
..
15db971
100644
(file)
--- a/
t/hints.t
+++ b/
t/hints.t
@@
-54,4
+54,10
@@
$eval->eval(q{ use hint_hash_pragma 'param' }),
is $eval->hints->{q{%^H}}->{hint_hash_pragma}, 'param',
"Lexical pragma captured";
+$eval->eval('my $x = 1');
+is_deeply(
+ $eval->lexicals->{'$x'}, \1,
+ 'Lexical captured when preserving hints',
+);
+
done_testing;