diff options
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, ); |