diff options
author | Fred Drake <fdrake@acm.org> | 2001-08-10 20:12:09 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 2001-08-10 20:12:09 (GMT) |
commit | 9443dc31c1f0fc7a5eb352afa7e6f86f7ae2bf80 (patch) | |
tree | f74089d0a0fccd164f85a18e853aeec4728cb0bd | |
parent | 8a7b59e7b4e134e0d8f0fae3193322f9a4906cce (diff) | |
download | cpython-9443dc31c1f0fc7a5eb352afa7e6f86f7ae2bf80.zip cpython-9443dc31c1f0fc7a5eb352afa7e6f86f7ae2bf80.tar.gz cpython-9443dc31c1f0fc7a5eb352afa7e6f86f7ae2bf80.tar.bz2 |
Remove the use of the "cat" program. This improves portability to non-Unix
platforms.
This is part the response to SF patch #429611.
-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, $_)); $_; |