Remove the use of the "cat" program. This improves portability to non-Unix

platforms.

This is part the response to SF patch #429611.
This commit is contained in:
Fred Drake 2001-08-10 20:12:09 +00:00
parent 8a7b59e7b4
commit 9443dc31c1
1 changed files with 5 additions and 1 deletions

View File

@ -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, $_));
$_;