From 3ec6ea71df430ae68c0f22391f75fee13107d26f Mon Sep 17 00:00:00 2001
From: Gedalya <gedalya@gedalya.net>
Date: Sat, 20 Jun 2015 14:33:14 +0100
Subject: [PATCH] Fix build script.  Bug 1646

---
 release-process/scripts/mk_exim_release.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/release-process/scripts/mk_exim_release.pl b/release-process/scripts/mk_exim_release.pl
index a68d1e66a..995720e2c 100755
--- a/release-process/scripts/mk_exim_release.pl
+++ b/release-process/scripts/mk_exim_release.pl
@@ -117,7 +117,7 @@ sub make_version_script {
     }
 
     my $srcdir    = File::Spec->catdir( $context->{release_tree}, 'src', 'src' );
-    chdir $srcdir or die "chdir $srcdir: $\n";
+    chdir $srcdir or die "chdir $srcdir: $!\n";
 
     if ( -f "version.sh" ) {
         print( "WARNING: version.sh already exists - leaving it in place\n" );
@@ -297,6 +297,7 @@ sub do_cleanup {
     my $context = shift;
 
     print "Cleaning up\n" if ($verbose);
+    chdir( $context->{directory} ) || die;
     rmtree( $context->{release_tree}, { verbose => $debug } );
     rmtree( $context->{docbook},      { verbose => $debug } );
     rmtree( $context->{pkgdirs},      { verbose => $debug } );
-- 
2.30.2