summaryrefslogtreecommitdiff
path: root/new-infra/TLSRC.pm
diff options
context:
space:
mode:
Diffstat (limited to 'new-infra/TLSRC.pm')
-rw-r--r--new-infra/TLSRC.pm14
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