File tree Expand file tree Collapse file tree 1 file changed +20
-0
lines changed Expand file tree Collapse file tree 1 file changed +20
-0
lines changed Original file line number Diff line number Diff line change 1
1
use lib (' external/buildscripts/perl_lib' );
2
+ use Cwd ' abs_path' ;
3
+ use File::Basename;
2
4
use File::Copy::Recursive qw( dircopy rmove) ;
3
5
use File::Path;
4
6
use Tools qw( InstallNameTool) ;
5
7
8
+
9
+ my $monoroot = File::Spec-> rel2abs(dirname(__FILE__ ) . " /../.." );
10
+ my $monoroot = abs_path($monoroot );
11
+
6
12
my $path = " incomingbuilds/" ;
7
13
8
14
rmtree(" collectedbuilds" );
44
50
close (MYFILE);
45
51
46
52
system (" zip -r builds.zip *" ) eq 0 or die (" failed zipping up builds" );
53
+
54
+ if ($^O eq " linux" )
55
+ {
56
+ system (" $monoroot /../../mono-build-deps/build/7z/linux64/7za a builds.7z * -x!builds.zip" ) eq 0 or die (" failed 7z up builds" );
57
+ }
58
+ elsif ($^O eq ' darwin' )
59
+ {
60
+ system (" $monoroot /../../mono-build-deps/build/7z/osx/7za a builds.7z * -x!builds.zip" ) eq 0 or die (" failed 7z up builds" );
61
+ }
62
+ else
63
+ {
64
+ die (" Unsupported platform for build collection." )
65
+ }
66
+
You can’t perform that action at this time.
0 commit comments