|
Last change
on this file since 18959 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
|
| Rev | Line | |
|---|
| [18942] | 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 |
|
|---|
| [18959] | 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");
|
|---|
| [18942] | 25 |
|
|---|
| [18959] | 26 | &util::envvar_append("PATH",$video_bin);
|
|---|
| [18942] | 27 |
|
|---|
| 28 | # For Linux (no harm is setting is this for MacOs)
|
|---|
| [18959] | 29 | &util::envvar_append("LD_LIBRARY_PATH",$video_lib);
|
|---|
| [18942] | 30 |
|
|---|
| 31 | # For MacOs (no harm is setting is this for Linux etc)
|
|---|
| [18959] | 32 | &util::envvar_append("DYLD_LIBRARY_PATH",$video_lib);
|
|---|
| [18942] | 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.
