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.
27 lines
720 B
Perl
27 lines
720 B
Perl
$NetBSD: patch-perllib_sdf_topod.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/topod.pl.orig 1998-10-23 22:59:43.000000000 +0000
|
|
+++ perllib/sdf/topod.pl
|
|
@@ -388,19 +388,11 @@ sub _PodFinalise {
|
|
sub _PodEscape {
|
|
local($text, $nested) = @_;
|
|
# local($result);
|
|
- local($old_match_flag);
|
|
-
|
|
- # Enable multi-line matching
|
|
- $old_match_flag = $*;
|
|
- $* = 1;
|
|
|
|
# Escape the symbols
|
|
my $gt = $nested ? 'E<gt>' : '>';
|
|
$text =~ s/([A-Z])\<|\>/length($&) == 1 ? $gt : "$1E<lt>"/eg;
|
|
|
|
- # Reset multi-line matching flag
|
|
- $* = $old_match_flag;
|
|
-
|
|
# Return result
|
|
$text;
|
|
}
|