| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
| 2 | |
2 | |
| 3 | ############################################################################# |
3 | use Deliantra::Client; |
| 4 | # prepend private library directory |
|
|
| 5 | for (grep !ref, @INC) { |
|
|
| 6 | my $path = "$_/Deliantra/Client/private"; |
|
|
| 7 | if (-d $path) { |
|
|
| 8 | unshift @INC, $path; |
|
|
| 9 | last; |
|
|
| 10 | } |
|
|
| 11 | } |
|
|
| 12 | |
4 | |
| 13 | ############################################################################# |
5 | use DC::Main; |
| 14 | # load and run the main program |
|
|
| 15 | |
6 | |
| 16 | require DC::Main; |
|
|
| 17 | |
|
|
| 18 | DC::Main::run (); |
7 | DC::Main::run; |
| 19 | |
8 | |
| 20 | 1; # this file is require'd in the binary client package |
9 | 1; # this file is require'd in the binary client package |
| 21 | |
10 | |
| 22 | =head1 NAME |
11 | =head1 NAME |
| 23 | |
12 | |
