summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
inline | side by side (from parent 1:
2e90ec3)
This never happens unless taint mode is off.
t/20-good.t
t/21-bad.t
t/22-bad-mixed.t
t/20-good.t
t/21-bad.t
t/22-bad-mixed.t
t/30-scope.t
t/40-threads.t
t/41-memory.t
t/30-scope.t
t/40-threads.t
t/41-memory.t
--- /dev/null
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+{
+ my @warns;
+ {
+ no indirect hook => sub { push @warns, \@_ };
+ eval { meh { } };
+ }
+ is_deeply \@warns, [ [ '{', 'meh', $0, __LINE__-2 ] ], 'covering OP_CONST';
+}