Last change
on this file since 19785 was 18959, checked in by davidb, 15 years ago |
Adjusted setup.pl to use the new location of bin and lib files
|
File size:
1.1 KB
|
Line | |
---|
1 |
|
---|
2 | BEGIN {
|
---|
3 | die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
|
---|
4 | die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
|
---|
5 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
|
---|
6 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
|
---|
7 | }
|
---|
8 |
|
---|
9 | use Cwd;
|
---|
10 | require util;
|
---|
11 |
|
---|
12 | if (!defined $ENV{'GEXTVIDEO'}) {
|
---|
13 |
|
---|
14 |
|
---|
15 | $ENV{'GEXTVIDEO'} = cwd();
|
---|
16 | print STDERR "**** GEXTVIDEO=$ENV{'GEXTVIDEO'}\n";
|
---|
17 |
|
---|
18 | $ENV{'GEXTVIDEO_INSTALLED'}
|
---|
19 | = &util::filename_cat($ENV{'GEXTVIDEO'},"installed");
|
---|
20 |
|
---|
21 | my $video_bin
|
---|
22 | = &util::filename_cat($ENV{'GEXTVIDEO_INSTALLED'},$ENV{'GSDLOS'},"bin");
|
---|
23 | my $video_lib
|
---|
24 | = &util::filename_cat($ENV{'GEXTVIDEO_INSTALLED'},$ENV{'GSDLOS'},"lib");
|
---|
25 |
|
---|
26 | &util::envvar_append("PATH",$video_bin);
|
---|
27 |
|
---|
28 | # For Linux (no harm is setting is this for MacOs)
|
---|
29 | &util::envvar_append("LD_LIBRARY_PATH",$video_lib);
|
---|
30 |
|
---|
31 | # For MacOs (no harm is setting is this for Linux etc)
|
---|
32 | &util::envvar_append("DYLD_LIBRARY_PATH",$video_lib);
|
---|
33 |
|
---|
34 |
|
---|
35 | # GSDLEXTS always uses : as a separator
|
---|
36 | if (defined $ENV{'GSDLEXTS'}) {
|
---|
37 | $ENV{'GSDLEXTS'} .= ":video" ;
|
---|
38 | }
|
---|
39 | else {
|
---|
40 | $ENV{'GSDLEXTS'} .="video";
|
---|
41 | }
|
---|
42 |
|
---|
43 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.