… | |
… | |
41 | # nop at compiletime |
41 | # nop at compiletime |
42 | } |
42 | } |
43 | |
43 | |
44 | BEGIN { |
44 | BEGIN { |
45 | $SIG{__DIE__} = sub { |
45 | $SIG{__DIE__} = sub { |
46 | return if $^S; |
46 | return if $^S; # quick reject |
|
|
47 | |
|
|
48 | # return if there are any eval contexts in the csall stack |
|
|
49 | for my $i (0..999) { |
|
|
50 | my ($sub, $is_require) = (caller $i)[3, 7] |
|
|
51 | or last; |
|
|
52 | return if $sub eq "(eval)" && !$is_require; |
|
|
53 | } |
|
|
54 | |
47 | crash "CRASH/DIE: $_[0]" => 1; |
55 | crash "CRASH/DIE: $_[0]" => 1; |
48 | DC::fatal Carp::longmess "$_[0]"; |
56 | DC::fatal Carp::longmess "$_[0]"; |
49 | } |
57 | } |
50 | } |
58 | } |
51 | |
59 | |
… | |
… | |
1842 | |
1850 | |
1843 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Data Directory"); |
1851 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Data Directory"); |
1844 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $Deliantra::VARDIR, tooltip => ""); |
1852 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $Deliantra::VARDIR, tooltip => ""); |
1845 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Database Directory"); |
1853 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Database Directory"); |
1846 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $DC::DB::DBDIR, tooltip => ""); |
1854 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $DC::DB::DBDIR, tooltip => ""); |
|
|
1855 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Urlader (Prebuilt)"); |
|
|
1856 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $ENV{URLADER_VERSION}, tooltip => ""); |
1847 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Branch (Prebuilt)"); |
1857 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Branch (Prebuilt)"); |
1848 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $::EXE_ID, tooltip => ""); |
1858 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $ENV{URLADER_EXE_ID}, tooltip => ""); |
1849 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Version (Prebuilt)"); |
1859 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Version (Prebuilt)"); |
1850 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $::EXE_VER, tooltip => ""); |
1860 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $ENV{URLADER_EXE_VER}, tooltip => ""); |
1851 | $table->add_at (0, $row , new DC::UI::Label align => 1, text => "Update (Prebuilt)"); |
|
|
1852 | $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $::UPDPAR, tooltip => ""); |
|
|
1853 | } |
1861 | } |
1854 | |
1862 | |
1855 | $vbox |
1863 | $vbox |
1856 | } |
1864 | } |
1857 | |
1865 | |
… | |
… | |
2840 | } |
2848 | } |
2841 | } |
2849 | } |
2842 | } |
2850 | } |
2843 | |
2851 | |
2844 | # fontconfig doesn't support relative paths anymore, so use abs_path and keep fingers crossed |
2852 | # fontconfig doesn't support relative paths anymore, so use abs_path and keep fingers crossed |
|
|
2853 | # these are ignored under windows, for some reason, and thus set in the loader |
2845 | $ENV{FONTCONFIG_FILE} = "fonts.conf"; |
2854 | $ENV{FONTCONFIG_FILE} = "fonts.conf"; |
2846 | $ENV{FONTCONFIG_PATH} = Cwd::abs_path DC::find_rcfile "fonts"; |
2855 | $ENV{FONTCONFIG_PATH} = Cwd::abs_path DC::find_rcfile "fonts"; |
2847 | $ENV{FONTCONFIG_DIR} = $ENV{FONTCONFIG_PATH}; |
2856 | $ENV{FONTCONFIG_DIR} = $ENV{FONTCONFIG_PATH}; # helps with older versions |
2848 | |
2857 | |
2849 | { |
2858 | { |
2850 | my @fonts = map DC::find_rcfile "fonts/$_", qw( |
2859 | my @fonts = map DC::find_rcfile "fonts/$_", qw( |
2851 | DejaVuSans.ttf |
2860 | DejaVuSans.ttf |
2852 | DejaVuSansMono.ttf |
2861 | DejaVuSansMono.ttf |