From 54748a5fa27eaa987e94296dcf3c76f4108d0f4e Mon Sep 17 00:00:00 2001
From: Laurent Rineau <Laurent.Rineau__CGAL@normalesup.org>
Date: Tue, 13 Nov 2012 16:15:18 +0100
Subject: [PATCH] Yet another fix

Scripts/developer_scripts/create_internal_release is difficult to test
without commiting it. :-(
---
 Scripts/developer_scripts/create_internal_release | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Scripts/developer_scripts/create_internal_release b/Scripts/developer_scripts/create_internal_release
index 1ef07343019..adf976fb9d6 100755
--- a/Scripts/developer_scripts/create_internal_release
+++ b/Scripts/developer_scripts/create_internal_release
@@ -207,7 +207,7 @@ sub install_packages() {
   }
   close(LOG_CONFLICTS);
   unlink 'temppack.tar';
-  [ -d .git ] && git status --short -b >> .scm-urls
+  ( -d "$ALLPACKAGESDIR/.git" ) && system("echo 'SCM branch:' > .scm-branch; git --git-dir=$ALLPACKAGESDIR/.git --work-tree=$ALLPACKAGESDIR status --short -b | head -1 >> .scm-branch");
   # foreach my $file (sort keys(%files)) {
   #   print "$files{$file}: $file\n";
   # }