diff options
| -rw-r--r-- | Doc/perl/l2hinit.perl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 58ed604..cd66a03 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -418,11 +418,15 @@ sub do_cmd_textohtmlinfopage { $the_version .= ", Release $PACKAGE_VERSION$RELEASE_INFO"; } } + my $about; + open(ABOUT, "<$ABOUT_FILE") || die "\n$!\n"; + sysread(ABOUT, $about, 1024*1024); + close(ABOUT); $_ = (($INFO == 1) ? join('', $close_all, "<strong>$t_title</strong>$the_version\n", - `cat $ABOUT_FILE`, + $about, $open_all, $_) : join('', $close_all, $INFO,"\n", $open_all, $_)); $_; |