diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-07 22:50:19 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-08 12:24:51 -0700 |
| commit | 35fc9e3b896a3f92cdb1d1dc1f7d8250a830b3bc (patch) | |
| tree | dbcbdfd29c04b3d5c6dce9801ea6fd1c3372de4a /ext/B/t/concise.t | |
| parent | 483171d404245647cff3d48314fefbcd8bf28ac6 (diff) | |
| download | perl-35fc9e3b896a3f92cdb1d1dc1f7d8250a830b3bc.tar.gz | |
B::Concise: Fix -nobanner
It was only working when B::Concise was passed a code ref.
Diffstat (limited to 'ext/B/t/concise.t')
| -rw-r--r-- | ext/B/t/concise.t | 9 |
1 files changed, 8 insertions, 1 deletions
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__ |