At 9:17 PM -0400 4/22/02, Michael G Schwern wrote:
>Think this should do it.
[added /m to regex]
Nope. I think you need something more like the following. At least it works for 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;
}
--
____________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"Literary critics usually know what they're
talking about. Even if they're wrong."
-- Perl creator Larry Wall
