Changeset 25414

Show
Ignore:
Timestamp:
18.04.2012 11:53:12 (8 years ago)
Author:
jmt12
Message:

Removing hardcoded Perl library path in favour of one that (hopefully) uses Perl version to determine appropriate path.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl

    r25402 r25414  
    4242 
    4343  # Manually installed CPAN package in GEXT*INSTALL 
    44   unshift (@INC, $ENV{'GEXTTDBEDIT_INSTALLED'} . "/share/perl/5.12.4"); 
     44  # - parse up version number 
     45  my ($major, $minor, $revision) = $] =~ /(\d+)\.(\d\d\d)(\d\d\d)/; 
     46  # - get rid of leading zeros by making them integers 
     47  $major += 0; 
     48  $minor += 0; 
     49  $revision += 0; 
     50  # - and add to Perl's path 
     51  unshift (@INC, $ENV{'GEXTTDBEDIT_INSTALLED'} . '/share/perl/' . $major . '.' . $minor . '.' . $revision); 
    4552} 
    4653