From 35fc9e3b896a3f92cdb1d1dc1f7d8250a830b3bc Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 7 Aug 2012 22:50:19 -0700
Subject: B::Concise: Fix -nobanner

It was only working when B::Concise was passed a code ref.
---
 ext/B/t/concise.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'ext/B/t')

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index faff8a36de..ec911a0d8c 100644
--- a/ext/B/t/concise.t
+++ b/ext/B/t/concise.t
@@ -10,7 +10,7 @@ BEGIN {
     require 'test.pl';		# we use runperl from 'test.pl', so can't use Test::More
 }
 
-plan tests => 159;
+plan tests => 160;
 
 require_ok("B::Concise");
 
@@ -448,4 +448,11 @@ ok index $out=~s/\r\n/\n/gr=~s/gvsv\(\*_\)/gvsv[*_]/r, <<'end'=~s/\r\n/\n/gr =>>
                            `-ex-rv2sv---<4>gvsv[*_]
 end
 
+# -nobanner
+$out =
+ runperl(
+  switches => ["-MO=Concise,-nobanner,foo"], prog=>'sub foo{}', stderr => 1
+ );
+unlike $out, 'main::foo', '-nobanner';
+
 __END__
-- 
cgit v1.2.1