make-windows-releases attach suffix to ZIP archive name

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 = ();