mysql-copyright:

  Cleaned-up trim_the_fat()

BitKeeper/etc/logging_ok

@@ -116,6 +116,7 @@ mskold@mysql.com
 msvensson@build.mysql.com
 mwagner@cash.mwagner.org
 mwagner@evoq.mwagner.org
+mwagner@here.mwagner.org
 mwagner@work.mysql.com
 mydev@mysql.com
 mysql@home.(none)

Build-tools/mysql-copyright

@@ -102,27 +102,13 @@ sub main
     # exist in the new mysql distributions, but let's be sure..
     unlink("$destdir/PUBLIC", "$destdir/README");
     copy("$WD/Docs/MySQLEULA.txt", "$destdir");
-    
-    # remove readline subdir and update configure accordingly
-    system("rm -rf $destdir/cmd-line-utils/readline");
-    if ($win_flag) {
-      chdir("$destdir") or (print "$! Unable to change directory to $desdir!\n" && exit(0));
-    } else {
-      chdir("$destdir");
-      unlink ("configure") or die "Can't delete $destdir/configure: $!\n";
-      open(CONFIGURE,"<configure.in") or die "$! Unable to open configure.in to read from!\n";
-      undef $/;
-      my $configure = <CONFIGURE>;
-      close(CONFIGURE);
-      $configure =~ s|cmd\-line\-utils/readline/Makefile dnl\n?||g;
-      open(CONFIGURE,">configure.in") or die "$! Unable to open configure.in to write to!\n";
-      print CONFIGURE $configure;
-      close(CONFIGURE);
-      `autoconf`;
-      if (! -f "configure") {
-        print "\"./configure\" was not produced, exiting!\n";
-        exit(0);
-      }
+
+    # remove readline, bdb subdirs and update 'configure'
+    my @extra_fat= ('cmd-line-utils/readline', 'bdb');
+
+    foreach my $fat (@extra_fat)
+    {
+	&trim_the_fat($fat);
     }
 
     # fix file copyrights
@@ -154,6 +140,37 @@ sub main
   exit(0);
 }  
 
+####
+#### This function will remove unwanted parts of a src tree for the mysqlcom
+#### distributions.
+####
+sub trim_the_fat
+{
+	my $the_fat= shift;
+
+	system("rm -rf $destdir/${the_fat}");
+	if ($win_flag)
+	{
+		chdir("$destdir") or die "Unable to change directory to $destdir!: $!\n";
+	}
+	else
+	{
+		chdir("$destdir");
+		unlink ("configure") or die "Can't delete $destdir/configure: $!\n";
+		open(CONFIGURE,"<configure.in") or die "Unable to open configure.in for read: $!\n";
+		undef $/;
+		my $configure= <CONFIGURE>;
+		close(CONFIGURE);
+		$configure=~ s|${the_fat}/Makefile dnl\n?||g;
+		open(CONFIGURE,">configure.in") or die "Unable to open configure.in for write: $!\n";
+		print CONFIGURE $configure;
+		close(CONFIGURE);
+		`autoconf`;
+		die "'./configure' was not produced!" unless (-f "configure")
+	}
+}
+
+
 ####
 #### mysqld and MySQL client programs have a usage printed with --help.
 #### This usage includes a copyright, which needs to be modified