From 0f7d87412907ac1dd652d14f95636e8c6d49808b Mon Sep 17 00:00:00 2001
From: Jonathan Campbell <jonathan@castus.tv>
Date: Fri, 16 Feb 2018 10:32:23 -0800
Subject: [PATCH] Windows perl script fixup

---
 make-windows-release.pl | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/make-windows-release.pl b/make-windows-release.pl
index 1cf8c3075..0752eeff7 100644
--- a/make-windows-release.pl
+++ b/make-windows-release.pl
@@ -11,8 +11,19 @@ die unless -f $ziptool;
 
 my $subdir="release/windows";
 
-my $branch=`git branch | grep \\\* | cut -d ' ' -f 2`;
-chomp $branch;
+my $brancha=`git branch`;
+my $branch;
+
+my @a = split(/\n/,$brancha);
+for ($i=0;$i < @a;$i++) {
+	my $line = $a[$i];
+	chomp $line;
+
+	if ($line =~ s/^\* +//) {
+		$branch = $line;
+	}
+}
+
 if ( "$branch" eq "develop-win-sdl1-async-hack-201802" ) {
     $subdir="release/windows-async";
 }