At 10:30 AM 4/23/2002 -0400, Michael G Schwern wrote:
>On Tue, Apr 23, 2002 at 12:55:27AM -0500, Craig A. Berry wrote:
>> Nope. I think you need something more like the following. At least it works for
>me:
>
>Ok, I'll take your word on that. In.
Actually yours works if I don't leave off the leading ^, but the extra
verbosity of mine perhaps makes clearer what's being done. Either way is
fine with me
>> --- lib/ExtUtils/MM_VMS.pm;-0 Tue Apr 23 01:36:06 2002
>> +++ lib/ExtUtils/MM_VMS.pm Tue Apr 23 01:49:09 2002
>> @@ -2176,6 +2176,7 @@
>> sub nicetext {
>>
>> my($self,$text) = @_;
>> + return $text if $text =~ m/^\w+\s*=/; # leave macro definitions alone
>> $text =~ s/([^\s:])(:+\s)/$1 $2/gs;
>> $text;
>> }
