summaryrefslogtreecommitdiff
path: root/cpan
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2010-07-25 14:01:47 +0200
committerFlorian Ragwitz <rafl@debian.org>2010-07-25 14:01:47 +0200
commit74bdedfd4eb4e4e235cabead69022ccc9ab96b19 (patch)
tree21a7d1bdd0eabaddeaa057758f91f3a4b24627d5 /cpan
parent01604df22e5410212145819f949c3f6ca82726d0 (diff)
downloadperl-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.pm4
-rw-r--r--cpan/B-Lint/lib/B/Lint/Debug.pm2
-rw-r--r--cpan/B-Lint/t/lint.t5
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,
);