diff options
author | Florian Ragwitz <rafl@debian.org> | 2010-07-25 14:01:47 +0200 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2010-07-25 14:01:47 +0200 |
commit | 74bdedfd4eb4e4e235cabead69022ccc9ab96b19 (patch) | |
tree | 21a7d1bdd0eabaddeaa057758f91f3a4b24627d5 /cpan | |
parent | 01604df22e5410212145819f949c3f6ca82726d0 (diff) | |
download | perl-74bdedfd4eb4e4e235cabead69022ccc9ab96b19.tar.gz |
Update B-Lint from version 1.11 to 1.12
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/B-Lint/lib/B/Lint.pm | 4 | ||||
-rw-r--r-- | cpan/B-Lint/lib/B/Lint/Debug.pm | 2 | ||||
-rw-r--r-- | cpan/B-Lint/t/lint.t | 5 |
3 files changed, 6 insertions, 5 deletions
diff --git a/cpan/B-Lint/lib/B/Lint.pm b/cpan/B-Lint/lib/B/Lint.pm index b039215ad7..9db07ead38 100644 --- a/cpan/B-Lint/lib/B/Lint.pm +++ b/cpan/B-Lint/lib/B/Lint.pm @@ -1,6 +1,6 @@ package B::Lint; -our $VERSION = '1.11_01'; ## no critic +our $VERSION = '1.12'; ## no critic =head1 NAME @@ -626,7 +626,7 @@ UNDEFINED_SUBS: { no strict 'refs'; ## no critic strict if ( not exists &$subname ) { $subname =~ s/\Amain:://; - warning q[Nonexistant subroutine '%s' called], $subname; + warning q[Nonexistent subroutine '%s' called], $subname; } elsif ( not defined &$subname ) { $subname =~ s/\A\&?main:://; diff --git a/cpan/B-Lint/lib/B/Lint/Debug.pm b/cpan/B-Lint/lib/B/Lint/Debug.pm index 5929bb6d42..1a4bf31f7f 100644 --- a/cpan/B-Lint/lib/B/Lint/Debug.pm +++ b/cpan/B-Lint/lib/B/Lint/Debug.pm @@ -1,6 +1,6 @@ package B::Lint::Debug; -our $VERSION = '0.01'; +our $VERSION = '1.12'; =head1 NAME diff --git a/cpan/B-Lint/t/lint.t b/cpan/B-Lint/t/lint.t index 07271146ff..7317b1d746 100644 --- a/cpan/B-Lint/t/lint.t +++ b/cpan/B-Lint/t/lint.t @@ -10,6 +10,7 @@ BEGIN { } require 'test.pl'; } + use strict; use warnings; @@ -98,7 +99,7 @@ RESULT 'private-names (method)'; runlint 'undefined-subs', 'foo()', <<'RESULT'; -Nonexistant subroutine 'foo' called at -e line 1 +Nonexistent subroutine 'foo' called at -e line 1 RESULT runlint 'undefined-subs', 'foo();sub foo;', <<'RESULT'; @@ -126,7 +127,7 @@ RESULT # preloaded mdoules would register themselves with B::Lint. my $res = runperl( switches => ["-MB::Lint"], - prog => + prog => 'BEGIN{B::Lint->register_plugin(X=>[q[x]])};use O(qw[Lint x]);sub X::match{warn qq[X ok.\n]};dummy()', stderr => 1, ); |