[ID 20010827.008] no-foo options broken in B::Lint

Message-Id: <200108272322.f7RNMKd02261@cs132170.pp.htv.fi>

p4raw-id: //depot/perl@11769

diff --git a/ext/B/B/Lint.pm b/ext/B/B/Lint.pm
index 094b3cf..f5186f1 100644 (file)
--- a/ext/B/B/Lint.pm
+++ b/ext/B/B/Lint.pm
@@ -345,7 +345,7 @@ sub compile {
            %check = ();
        }
        else {
-           if ($opt =~ s/^no-//) {
+           if ($opt =~ s/^no_//) {
                $check{$opt} = 0;
            }
            else {