| … | |
… | |
| 45 | |
45 | |
| 46 | BEGIN { |
46 | BEGIN { |
| 47 | $SIG{__DIE__} = sub { |
47 | $SIG{__DIE__} = sub { |
| 48 | return if $^S; # quick reject |
48 | return if $^S; # quick reject |
| 49 | |
49 | |
| 50 | # return if there are any eval contexts in the csall stack |
50 | # return if there are any eval contexts in the call stack |
| 51 | for my $i (0..999) { |
51 | for my $i (0..999) { |
| 52 | my ($sub, $is_require) = (caller $i)[3, 7] |
52 | my ($sub, $is_require) = (caller $i)[3, 7] |
| 53 | or last; |
53 | or last; |
| 54 | return if $sub eq "(eval)" && !$is_require; |
54 | return if $sub eq "(eval)" && !$is_require; |
| 55 | } |
55 | } |
| … | |
… | |
| 2661 | DC::set_theme $CFG->{uitheme}; |
2661 | DC::set_theme $CFG->{uitheme}; |
| 2662 | |
2662 | |
| 2663 | DC::SDL_InitSubSystem DC::SDL_INIT_VIDEO if $SDL_REINIT; |
2663 | DC::SDL_InitSubSystem DC::SDL_INIT_VIDEO if $SDL_REINIT; |
| 2664 | $SDL_REINIT = 0; |
2664 | $SDL_REINIT = 0; |
| 2665 | |
2665 | |
| 2666 | @SDL_MODES = DC::SDL_ListModes 8, $CFG->{disable_alpha} ? 0 : 8; |
2666 | @SDL_MODES = DC::SDL_ListModes 8, $CFG->{disable_alpha} ? 0 : 2; |
| 2667 | @SDL_MODES = DC::SDL_ListModes 8, 8 unless @SDL_MODES; |
2667 | @SDL_MODES = DC::SDL_ListModes 8, 8 unless @SDL_MODES; |
| 2668 | @SDL_MODES = DC::SDL_ListModes 5, 0 unless @SDL_MODES; |
2668 | @SDL_MODES = DC::SDL_ListModes 5, 0 unless @SDL_MODES; |
| 2669 | @SDL_MODES or DC::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)"; |
2669 | @SDL_MODES or DC::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)"; |
| 2670 | |
2670 | |
| 2671 | @SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES; |
2671 | @SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES; |
