From 42d6dea61b14a608e987d417e5a2d6f2a742187e Mon Sep 17 00:00:00 2001
From: "lenz@mysql.com" <>
Date: Wed, 16 Jul 2003 12:06:55 +0200
Subject:  - fixed the automatic generation of support-files/MacOSX/ReadMe.txt
 -    a node name was changed in manual.texi which resulted in a very large   
 ReadMe.txt file, as the generating script could not find the (renamed)   
 ending node. Fixed the ending node name in Docs/Makefile.am and the   
 Docs/Support/generate-text-files.pl Perl script to make sure this does    not
 happen again (I only discovered this because the Do-pkg script was    not
 able to add the ReadMe.txt to the Apple Disk image because it ran out    of
 disk space due to the size of the file)

---
 Docs/Support/generate-text-files.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'Docs/Support')

diff --git a/Docs/Support/generate-text-files.pl b/Docs/Support/generate-text-files.pl
index 570e579d926..6470baaa6e9 100755
--- a/Docs/Support/generate-text-files.pl
+++ b/Docs/Support/generate-text-files.pl
@@ -1,11 +1,11 @@
-#!/my/gnu/bin/perl -w -*- perl -*-
+#!/usr/bin/perl -w -*- perl -*-
 # Generate text files from top directory from the manual.
 
 $from = shift(@ARGV);
 $fnode = shift(@ARGV);
 $tnode = shift(@ARGV);
 
-open(IN, "$from") || die;
+open(IN, "$from") || die "Cannot open $from: $!";
 
 $in = 0;
 
@@ -19,7 +19,7 @@ while (<IN>)
     }
     elsif (/^File: mysql.info/ || (/^/))
     {
-      # Just Skip node begginigs
+      # Just Skip node beginnings
     }
     else
     {
@@ -38,3 +38,6 @@ while (<IN>)
 }
 
 close(IN);
+
+die "Could not find node \"$tnode\"" if ($in == 1);
+exit 0;
-- 
cgit v1.2.1