From: Ville Skyttä <scop@cs132170.pp.htv.fi>
Date: Tue, 28 Aug 2001 02:22:20 +0000 (+0300)
Subject: [ID 20010827.008] no-foo options broken in B::Lint
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f0faf35b479c8e2ccb91c0d387fb02bbef20b6f;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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 {