f319e43c26
SDF (Simple Document Format) is a freely available document development system which generates high quality outputs in a variety of formats from a single source. The output formats supported include PostScript, HTML, POD, plain text, man pages, LaTeX, SGML, Windows help, MIF and RTF. If the idea of specifying documents in a logical manner via a simple markup language sounds appealing, SDF may be useful to you. SDF documents are simple to create and maintain, minimising the time spent on documentation. In particular, SDF directly supports the creation and maintenance of large, on-line documentation systems (including intranets) via centralised hypertext management and rule-based hypertext generation.
48 lines
1.1 KiB
Perl
48 lines
1.1 KiB
Perl
$NetBSD: patch-perllib_sdf_tohtml.pl,v 1.1 2019/09/10 21:20:35 schmonz Exp $
|
|
|
|
Use /m instead of $*, no longer available in Perl 5.30.
|
|
Patch from Debian: 005_multiline.diff
|
|
|
|
--- perllib/sdf/tohtml.pl.orig 1998-10-23 22:59:44.000000000 +0000
|
|
+++ perllib/sdf/tohtml.pl
|
|
@@ -759,19 +759,12 @@ sub _HtmlEscape {
|
|
# local($result);
|
|
local($old_match_flag);
|
|
|
|
- # Enable multi-line matching
|
|
- $old_match_flag = $*;
|
|
- $* = 1;
|
|
-
|
|
# Escape the symbols
|
|
$text =~ s/\&/&/g;
|
|
$text =~ s/\</</g;
|
|
$text =~ s/\>/>/g;
|
|
$text =~ s/\"/"/g;
|
|
|
|
- # Reset multi-line matching flag
|
|
- $* = $old_match_flag;
|
|
-
|
|
# Return result
|
|
$text;
|
|
}
|
|
@@ -865,10 +858,6 @@ sub _HtmlAddAnchors {
|
|
local($user_ext);
|
|
local($old_match_flag);
|
|
|
|
- # Enable multi-line matching
|
|
- $old_match_flag = $*;
|
|
- $* = 1;
|
|
-
|
|
# For hypertext jumps, surround the text. If the
|
|
# text contains a jump, the existing jump is removed.
|
|
if ($attr{'jump'} ne '') {
|
|
@@ -904,9 +893,6 @@ sub _HtmlAddAnchors {
|
|
$result++;
|
|
}
|
|
|
|
- # Reset multi-line matching flag
|
|
- $* = $old_match_flag;
|
|
-
|
|
# Return result
|
|
return $result;
|
|
}
|