Commit 20eddbea authored by Fred Drake's avatar Fred Drake

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

platforms.

This is part the response to SF patch #429611.
parent 3f6b085b
...@@ -418,11 +418,15 @@ sub do_cmd_textohtmlinfopage { ...@@ -418,11 +418,15 @@ sub do_cmd_textohtmlinfopage {
$the_version .= ", Release $PACKAGE_VERSION$RELEASE_INFO"; $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) $_ = (($INFO == 1)
? join('', ? join('',
$close_all, $close_all,
"<strong>$t_title</strong>$the_version\n", "<strong>$t_title</strong>$the_version\n",
`cat $ABOUT_FILE`, $about,
$open_all, $_) $open_all, $_)
: join('', $close_all, $INFO,"\n", $open_all, $_)); : join('', $close_all, $INFO,"\n", $open_all, $_));
$_; $_;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment