From 231d6904bc872e9d9141bc3dec64aa74b69431c6 Mon Sep 17 00:00:00 2001
From: Jonathan Campbell <jonathan@castus.tv>
Date: Thu, 8 Mar 2018 09:50:53 -0800
Subject: [PATCH] make-windows-releases attach suffix to ZIP archive name

---
 make-windows-release.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/make-windows-release.pl b/make-windows-release.pl
index 0752eeff709..27b61404dfa 100644
--- a/make-windows-release.pl
+++ b/make-windows-release.pl
@@ -1,14 +1,9 @@
 #!/usr/bin/perl
 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
 my $datestr = sprintf("%04u%02u%02u-%02u%02u%02u",$year+1900,$mon+1,$mday,$hour,$min,$sec);
-my $zipname = "dosbox-x-windows-$datestr.zip";
 
 my $ziptool = "vs2015/tool/zip.exe";
 
-exit 0 if -f $zipname;
-
-die unless -f $ziptool;
-
 my $subdir="release/windows";
 
 my $brancha=`git branch`;
@@ -28,11 +23,18 @@
     $subdir="release/windows-async";
 }
 
+$suffix = $subdir;
+$suffix =~ s/^.*\///g;
+
 mkdir "release" unless -d "release";
 mkdir "$subdir" unless -d "$subdir";
 
 die "bin directory not exist" unless -d "bin";
 
+my $zipname = "dosbox-x-windows-$datestr-$suffix.zip";
+exit 0 if -f $zipname;
+die unless -f $ziptool;
+
 print "$zipname\n";
 
 my @filelist = ();