diff options
Diffstat (limited to 'new-infra/TLSRC.pm')
-rw-r--r-- | new-infra/TLSRC.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/new-infra/TLSRC.pm b/new-infra/TLSRC.pm index 06beb58cac3..5effd8451e2 100644 --- a/new-infra/TLSRC.pm +++ b/new-infra/TLSRC.pm @@ -134,7 +134,11 @@ sub writeout { print $fd "name ", $self->name, "\n"; print $fd "catalogue $self->{'catalogue'}\n"; defined($self->{'shortdesc'}) && print $fd "shortdesc $self->{'shortdesc'}\n"; - defined($self->{'longdesc'}) && print $fd "longdesc $self->{'longdesc'}\n"; + if (defined($self->{'longdesc'})) { + my $tmp = $self->{'longdesc'}; + $~ = "multilineformat"; + write $fd; + } if (defined($self->{'depends'})) { foreach (@{$self->{'depends'}}) { print $fd "depend $_\n"; @@ -334,6 +338,14 @@ sub executes { 1; +# FORMATS +format multilineformat = +^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< +$tmp + ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~ +$tmp +. + ### Local Variables: ### perl-indent-level: 4 ### tab-width: 4 |