From: Fred Drake <fdrake@acm.org>
Date: Fri, 10 Aug 2001 20:12:09 +0000 (+0000)
Subject: Remove the use of the "cat" program.  This improves portability to non-Unix
X-Git-Tag: v2.2a3~665
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9443dc31c1f0fc7a5eb352afa7e6f86f7ae2bf80;p=thirdparty%2FPython%2Fcpython.git

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

This is part the response to SF patch #429611.
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 58ed604c223b..cd66a0320290 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, $_));
     $_;