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 58ed604..cd66a03 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -418,11 +418,15 @@
$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, $_));
$_;