aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2003-07-28 23:00:56 +0000
committerDaniel Stenberg <daniel@haxx.se>2003-07-28 23:00:56 +0000
commitaa7b0648ffd87636e520e2dc7363189f2695a7b8 (patch)
tree2ad99ea06bfae476d7762e6c8946b0036ff6b08d
parent2fbe61960f6d9bcf659cc2a31fd2a38ad6f2a4be (diff)
Fixes based on Gisle Vanem's input since this script failed due to
possibly crlf newlines.
-rw-r--r--src/mkhelp.pl16
1 files changed, 13 insertions, 3 deletions
diff --git a/src/mkhelp.pl b/src/mkhelp.pl
index 731f6598f..2e1e6985a 100644
--- a/src/mkhelp.pl
+++ b/src/mkhelp.pl
@@ -6,6 +6,12 @@
# THEY DON'T FIT ME :-)
# Get readme file as parameter:
+
+if($ARGV[0] eq "-c") {
+ $c=1;
+ shift @ARGV;
+}
+
my $README = $ARGV[0];
if($README eq "") {
@@ -20,6 +26,7 @@ push @out, " / __| | | | |_) | | \n";
push @out, " | (__| |_| | _ <| |___ \n";
push @out, " \\___|\\___/|_| \\_\\_____|\n";
+my $olen=0;
while (<STDIN>) {
my $line = $_;
@@ -70,16 +77,19 @@ close(READ);
if($c) {
my @test = `gzip --version 2>&1`;
if($test[0] =~ /gzip/) {
- open(GZIP, "|gzip -9 >dumpit.gz") ||
- die "can't run gzip, try without -c";
+ open(GZIP, ">dumpit") ||
+ die "can't create the dumpit file, try without -c";
binmode GZIP;
for(@out) {
print GZIP $_;
$gzip += length($_);
}
close(GZIP);
+
+ system("gzip --best --no-name dumpit");
- open(GZIP, "<dumpit.gz");
+ open(GZIP, "<dumpit.gz") ||
+ die "can't read the dumpit.gz file, try without -c";
binmode GZIP;
while(<GZIP>) {
push @gzip, $_;