… | |
… | |
6 | # appreciated. |
6 | # appreciated. |
7 | $ENV{LC_NUMERIC} = "C"; |
7 | $ENV{LC_NUMERIC} = "C"; |
8 | $ENV{LANG} = delete $ENV{LC_ALL} if exists $ENV{LC_ALL}; |
8 | $ENV{LANG} = delete $ENV{LC_ALL} if exists $ENV{LC_ALL}; |
9 | } |
9 | } |
10 | |
10 | |
11 | use Gtk2; qw(-init -threads-init); BEGIN { Gtk2::Gdk::Threads->enter }; |
11 | use Gtk2; qw(-init -threads-init); |
|
|
12 | BEGIN { Gtk2::Gdk::Threads->enter }; |
12 | |
13 | |
13 | BEGIN { |
14 | BEGIN { |
14 | require Gtk2::CV::Plugin; |
15 | require Gtk2::CV::Plugin; |
15 | require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc"; |
16 | require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc"; |
16 | } |
17 | } |