diff options
Diffstat (limited to 'docs/autodocifier.pl')
-rwxr-xr-x | docs/autodocifier.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl index c119215d4..9133afb98 100755 --- a/docs/autodocifier.pl +++ b/docs/autodocifier.pl | |||
@@ -11,7 +11,7 @@ sub continuation { | |||
11 | while (<$fh>) { | 11 | while (<$fh>) { |
12 | my $s = $_; | 12 | my $s = $_; |
13 | $s =~ s/\\\s*$//; | 13 | $s =~ s/\\\s*$//; |
14 | $s =~ s/#.*$//; | 14 | #$s =~ s/#.*$//; |
15 | push @line, $s; | 15 | push @line, $s; |
16 | last unless (/\\\s*$/); | 16 | last unless (/\\\s*$/); |
17 | } | 17 | } |
@@ -31,7 +31,7 @@ sub beautify { | |||
31 | s/"//g; | 31 | s/"//g; |
32 | s/%/%%/g; | 32 | s/%/%%/g; |
33 | s/\$/\\\$/g; | 33 | s/\$/\\\$/g; |
34 | eval qq[ sprintf(qq#$_#) ] | 34 | eval qq[ sprintf(qq{$_}) ] |
35 | } @line | 35 | } @line |
36 | ); | 36 | ); |
37 | return $text; | 37 | return $text; |
@@ -275,4 +275,4 @@ John BEPPU <beppu@lineo.com> | |||
275 | 275 | ||
276 | =cut | 276 | =cut |
277 | 277 | ||
278 | # $Id: autodocifier.pl,v 1.18 2001/04/05 19:35:17 beppu Exp $ | 278 | # $Id: autodocifier.pl,v 1.19 2001/04/05 20:03:33 beppu Exp $ |