From: Charles Bailey <bailey@newman.upenn.edu>
Date: Wed, 9 Feb 2000 09:52:06 +0000 (+0000)
Subject: Eliminate unnecessary (and sometimes confounding) test for
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c1c69de66de53cee7ab2bd05b0117a707d3ae7ff;p=p5sagit%2Fp5-mst-13.2.git

Eliminate unnecessary (and sometimes confounding) test for
       word boundary

p4raw-id: //depot/vmsperl@5051
---

diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm
index 5eccf78..44fa7e2 100644
--- a/lib/ExtUtils/MM_VMS.pm
+++ b/lib/ExtUtils/MM_VMS.pm
@@ -717,7 +717,7 @@ sub cflags {
 
     $self->{OPTIMIZE} ||= $flagoptstr || $Config{'optimize'};
     if ($self->{OPTIMIZE} !~ m!/!) {
-	if    ($self->{OPTIMIZE} =~ m!\b-g\b!) { $self->{OPTIMIZE} = '/Debug/NoOptimize' }
+	if    ($self->{OPTIMIZE} =~ m!-g!) { $self->{OPTIMIZE} = '/Debug/NoOptimize' }
 	elsif ($self->{OPTIMIZE} =~ /-O(\d*)/) {
 	    $self->{OPTIMIZE} = '/Optimize' . (defined($1) ? "=$1" : '');
 	}