[exim-cvs] Fix doc/ directory assembly in build-script.

Commit:     821bc55f156537c5d7ad99b648e14fc2e2e88be7
Parent:     2799857cb7b4195c20e20f34022b270c0266b766
Author:     Phil Pennock <pdp@???>
AuthorDate: Mon Feb 21 03:06:10 2011 -0500
Committer:  Phil Pennock <pdp@???>
CommitDate: Mon Feb 21 03:06:10 2011 -0500

    Fix doc/ directory assembly in build-script.
---
 release-process/scripts/mk_exim_release.pl |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/release-process/scripts/mk_exim_release.pl b/release-process/scripts/mk_exim_release.pl
index f9dbe21..566f261 100755
--- a/release-process/scripts/mk_exim_release.pl
+++ b/release-process/scripts/mk_exim_release.pl
@@ -223,7 +223,8 @@ sub build_documentation {
 sub move_text_docs_into_pkg {
     my $context = shift;

-    my $old_docdir = File::Spec->catdir( $context->{eximpkgdir}, 'doc', 'doc-docbook' );
+    my $old_docdir = File::Spec->catdir( $context->{release_tree}, 'doc', 'doc-docbook' );
+    my $old_txtdir = File::Spec->catdir( $context->{release_tree}, 'doc', 'doc-txt' );
     my $new_docdir = File::Spec->catdir( $context->{eximpkgdir}, 'doc' );
     mkpath( $new_docdir, { verbose => ( $verbose || $debug ) } );

@@ -233,7 +234,7 @@ sub move_text_docs_into_pkg {
     }

     # move text documents across
-    foreach my $file ( glob( File::Spec->catfile( 'doc/doc-txt', '*' ) ) ) {
+    foreach my $file ( glob( File::Spec->catfile( $old_txtdir, '*' ) ) ) {

         # skip a few we dont want
         my $fn = ( File::Spec->splitpath($file) )[2];