diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-03 01:26:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-03 01:26:09 +0000 |
| commit | 00dc2f4f23da07658d2634f904ac3a098aaa4153 (patch) | |
| tree | 70e408443b454ad52549f086f244101ab4c7098f /lib | |
| parent | a193d65404eecbf16bac86932344f43dcfdbcecd (diff) | |
| download | perl-00dc2f4f23da07658d2634f904ac3a098aaa4153.tar.gz | |
[asperl] add AS patch#15
p4raw-id: //depot/asperl@863
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index e5c4786e0c..5faa435e3a 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -2723,7 +2723,10 @@ sub ppd { push(@m, "ppd:\n"); push(@m, "\t\@\$(PERL) -e \"print qq{<SOFTPKG NAME=\\\"$self->{DISTNAME}\\\" VERSION=\\\"$pack_ver\\\">\\n}"); push(@m, ". qq{\\t<TITLE>$self->{DISTNAME}</TITLE>\\n}"); - push(@m, ". qq{\\t<ABSTRACT>$self->{ABSTRACT}</ABSTRACT>\\n}"); + my $abstract = $self->{ABSTRACT}; + $abstract =~ s/</</g; + $abstract =~ s/>/>/g; + push(@m, ". qq{\\t<ABSTRACT>$abstract</ABSTRACT>\\n}"); my ($author) = $self->{AUTHOR}; $author =~ s/@/\\@/g; push(@m, ". qq{\\t<AUTHOR>$author</AUTHOR>\\n}"); |