summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2001-08-10 20:12:09 (GMT)
committerFred Drake <fdrake@acm.org>2001-08-10 20:12:09 (GMT)
commit9443dc31c1f0fc7a5eb352afa7e6f86f7ae2bf80 (patch)
treef74089d0a0fccd164f85a18e853aeec4728cb0bd
parent8a7b59e7b4e134e0d8f0fae3193322f9a4906cce (diff)
downloadcpython-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.perl6
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, $_));
$_;