File tree Expand file tree Collapse file tree 1 file changed +18
-9
lines changed
Expand file tree Collapse file tree 1 file changed +18
-9
lines changed Original file line number Diff line number Diff line change 11# !/usr/bin/perl
22package launch_java ;
3- @ISA = qw( Exporter) ;
4- @EXPORT = qw( launch_java) ;
3+ @ISA = qw( Exporter) ;
4+ @EXPORT = qw( launch_java) ;
55
66# launch_java determines trick_home based on execution location of the calling script.
77use File::Basename ;
8- use Cwd ' abs_path' ;
8+ use Cwd ' abs_path' ;
99use gte ;
1010
1111sub launch_java ($$) {
@@ -26,6 +26,10 @@ sub launch_java($$) {
2626 $lib_dir = " lib" ;
2727 }
2828 $java_dir = " $ENV {TRICK_HOME}/$lib_dir /trick/java" ;
29+
30+ $javac_version = ` javac -version 2>&1` ;
31+ $javac_version =~ / (\d +)/ ;
32+ $javac_version = $1 ;
2933
3034 $host_cpu = gte(" TRICK_HOST_CPU" ) ;
3135 chomp ($host_cpu ) ;
@@ -35,18 +39,23 @@ sub launch_java($$) {
3539 $command = " java -classpath $java_dir /dist/*:$java_dir /lib/*:$java_dir /lib/ \\
3640 -Xdock:name=\" $name \" \\
3741 -Xdock:icon=$java_dir /resources/trick_icon.png \\
38- -Djava.net.preferIPv4Stack=true \\
39- $application " ;
42+ -Djava.net.preferIPv4Stack=true \\ " ;
4043 } else {
41- $command = " java -cp $java_dir /dist/*:$java_dir /lib/*:$java_dir /lib/ $application " ;
44+ $command = " java -cp $java_dir /dist/*:$java_dir /lib/*:$java_dir /lib/ \\ " ;
45+ }
46+ if ( ($javac_version eq " 9" ) or ($javac_version eq " 10" ) ) {
47+ $command .= "
48+ --add-modules java.se.ee \\ " ;
4249 }
50+ $command .= "
51+ $application " ;
4352
4453 foreach (@ARGV ) {
45- $command .= " $_ " ;
54+ $command .= " $_ " ;
4655 }
4756
4857 system $command ;
49- exit $? >> 8;
58+ exit $? >> 8 ;
5059}
5160
52- 1;
61+ 1 ;
You can’t perform that action at this time.
0 commit comments