]> git.vpit.fr Git - perl/modules/indirect.git/blob - 23-bad-notaint.t
cb7580beac51dc3b95510642e092a8fb09b81c7e
[perl/modules/indirect.git] / 23-bad-notaint.t
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 1;
7
8 {
9  my @warns;
10  {
11   no indirect hook => sub { push @warns, \@_ };
12   eval { meh { } };
13  }
14  is_deeply \@warns, [ [ '{', 'meh', $0, __LINE__-2 ] ], 'covering OP_CONST';
15 }