diff -ruN -X exclude-diffs ../bleadperl/ext/B/t/optree_specials.t
25352/ext/B/t/optree_specials.t
--- ../bleadperl/ext/B/t/optree_specials.t 2005-06-13 10:52:00.0
-0600
+++ 25352/ext/B/t/optree_specials.t 2005-09-03 20:28:59.0 -0600
@@ -27,7 +27,7 @@
use OptreeCheck; # ALSO DOES @ARGV HANDLING !!
use Config;
-plan tests = 6;
+plan tests = 7;
require_ok(B::Concise);
@@ -237,3 +237,40 @@
# q 1 postinc[t2] sK/1
# r 1 leavesub[1 ref] K/REFC,1
EONT_EONT
+
+
+# perl -I../lib -MO=Concise,BEGIN,CHECK,INIT,END,-exec -e '$a=$b print
q/foo/'
+
+
+
+checkOptree ( name = 'regression test for patch 25352',
+ bcopts= [qw/ BEGIN END INIT CHECK -exec /],
+ prog = 'print q/foo/',
+ @warnings_todo,
+ expect= 'EOT_EOT', expect_nt = 'EONT_EONT');
+# BEGIN 1:
+# 1 ; nextstate(B::Concise -234 Concise.pm:359) v/2
+# 2 $ const[PV warnings.pm] s/BARE
+# 3 1 require sK/1
+# 4 ; nextstate(B::Concise -234 Concise.pm:359) v/2
+# 5 ; nextstate(B::Concise -234 Concise.pm:359) /2
+# 6 0 pushmark s
+# 7 $ const[PV warnings] sM
+# 8 $ const[PV qw] sM
+# 9 $ method_named[PV unimport]
+# a 1 entersub[t1] KS*/TARG,2
+# b 1 leavesub[1 ref] K/REFC,1
+EOT_EOT
+# BEGIN 1:
+# 1 ; nextstate(B::Concise -234 Concise.pm:359) v/2
+# 2 $ const(PV warnings.pm) s/BARE
+# 3 1 require sK/1
+# 4 ; nextstate(B::Concise -234 Concise.pm:359) v/2
+# 5 ; nextstate(B::Concise -234 Concise.pm:359) /2
+# 6 0 pushmark s
+# 7 $ const(PV warnings) sM
+# 8 $ const(PV qw) sM
+# 9 $ method_named(PV unimport)
+# a 1 entersub[t1] KS*/TARG,2
+# b 1 leavesub[1 ref] K/REFC,1
+EONT_EONT
