mirror of
https://github.com/joncampbell123/dosbox-x.git
synced 2025-10-14 02:17:36 +08:00
Windows perl script fixup
This commit is contained in:
@@ -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";
|
||||
}
|
||||
|
Reference in New Issue
Block a user