equal
deleted
inserted
replaced
40 { |
40 { |
41 $gscm_lib = "C:/apps/base-apps/lib"; # TODO: remove hardcoded path! |
41 $gscm_lib = "C:/apps/base-apps/lib"; # TODO: remove hardcoded path! |
42 } |
42 } |
43 else |
43 else |
44 { |
44 { |
45 $gscm_lib = $ENV{'CCM_HOME'} . "/../gscm-apps/lib"; # TODO: remove hardcoded path! |
45 use File::Basename; |
|
46 |
|
47 # Do not use .. because evaluation get wrong under 64-bit Linux |
|
48 $gscm_lib = dirname($ENV{'CCM_HOME'}) . "/gscm-apps/lib"; # TODO: remove hardcoded path! |
46 } |
49 } |
47 my ($perl_version) = $Config{version} =~ /^(\d+\.\d+)/; |
50 my ($perl_version) = $Config{version} =~ /^(\d+\.\d+)/; |
48 unshift @INC, "$gscm_lib/$perl_version/$archname", "$gscm_lib/$perl_version", $gscm_lib; |
51 unshift @INC, "$gscm_lib/$perl_version/$archname", "$gscm_lib/$perl_version", $gscm_lib; |
49 } |
52 } |
50 |
53 |