diff options
| author | John Beppu <beppu@lbox.org> | 2001-04-05 20:03:33 +0000 |
|---|---|---|
| committer | John Beppu <beppu@lbox.org> | 2001-04-05 20:03:33 +0000 |
| commit | 79359d87e86963607ea11dddd9b18cb43896b765 (patch) | |
| tree | 1e24c8165d32a7e892f3461abd87f7aa7acafb4b /docs/autodocifier.pl | |
| parent | 94e505485e7cd3a4061371774d9d66c65a053887 (diff) | |
| download | busybox-79359d87e86963607ea11dddd9b18cb43896b765.tar.gz | |
- autodocifier.pl :: continuation() was modified such that '#'
is handled correctly.
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 { while (<$fh>) { my $s = $_; $s =~ s/\\\s*$//; - $s =~ s/#.*$//; + #$s =~ s/#.*$//; push @line, $s; last unless (/\\\s*$/); } @@ -31,7 +31,7 @@ sub beautify { s/"//g; s/%/%%/g; s/\$/\\\$/g; - eval qq[ sprintf(qq#$_#) ] + eval qq[ sprintf(qq{$_}) ] } @line ); return $text; @@ -275,4 +275,4 @@ John BEPPU <beppu@lineo.com> =cut -# $Id: autodocifier.pl,v 1.18 2001/04/05 19:35:17 beppu Exp $ +# $Id: autodocifier.pl,v 1.19 2001/04/05 20:03:33 beppu Exp $ |