From: Vincent Pit <vince@profvince.com>
Date: Tue, 14 Jul 2009 16:44:15 +0000 (+0200)
Subject: Cover ck_scope actually handling an OP_SCOPE
X-Git-Tag: v0.16~1
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=0bab4804e04c39ec8e6141b4fa78ee6a43a59491

Cover ck_scope actually handling an OP_SCOPE

This never happens unless taint mode is off.
---

diff --git a/MANIFEST b/MANIFEST
index 4088973..cab1db4 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -13,6 +13,7 @@ t/11-line.t
 t/20-good.t
 t/21-bad.t
 t/22-bad-mixed.t
+t/23-bad-notaint.t
 t/30-scope.t
 t/40-threads.t
 t/41-memory.t
diff --git a/t/23-bad-notaint.t b/t/23-bad-notaint.t
new file mode 100644
index 0000000..cb7580b
--- /dev/null
+++ b/t/23-bad-notaint.t
@@ -0,0 +1,15 @@
+#!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';
+}