| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
|
|
2 | |
|
|
3 | BEGIN { |
|
|
4 | # work around libraries (and perl) outputting numbers in weird formats |
|
|
5 | # when they shouldn't. this is somewhat brutal - better suggestions |
|
|
6 | # appreciated. |
|
|
7 | $ENV{LC_NUMERIC} = "C"; |
|
|
8 | $ENV{LANG} = delete $ENV{LC_ALL} if exists $ENV{LC_ALL}; |
|
|
9 | } |
| 2 | |
10 | |
| 3 | use common::sense; |
11 | use common::sense; |
| 4 | |
12 | |
| 5 | use Cwd (); |
13 | use Cwd (); |
| 6 | use Encode (); |
14 | use Encode (); |
| … | |
… | |
| 18 | BEGIN { |
26 | BEGIN { |
| 19 | require Gtk2::CV::Plugin; |
27 | require Gtk2::CV::Plugin; |
| 20 | require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc"; |
28 | require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc"; |
| 21 | } |
29 | } |
| 22 | |
30 | |
| 23 | use Carp (); $Carp::MaxArgLen = 256;#d# |
31 | use Carp (); $Carp::MaxArgLen = 256; |
| 24 | |
32 | |
| 25 | use Gtk2::CV::Plugin::NameCluster; |
33 | use Gtk2::CV::Plugin::NameCluster; |
| 26 | use Gtk2::CV::Plugin::RCluster; |
34 | use Gtk2::CV::Plugin::RCluster; |
| 27 | use Gtk2::CV::Plugin::PatRenamer; |
35 | use Gtk2::CV::Plugin::PatRenamer; |
| 28 | use Gtk2::CV::Plugin::MetaCluster; |
36 | use Gtk2::CV::Plugin::MetaCluster; |
