Changeset 25414 for gs2-extensions/tdb-edit

Timestamp:

2012-04-18T11:53:12+12:00 (12 years ago)

Author:

jmt12

Message:

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

File:

• gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl (modified) (1 diff)

gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl

@@ -42 +42 @@
 
   # Manually installed CPAN package in GEXT*INSTALL
-  unshift (@INC, $ENV{'GEXTTDBEDIT_INSTALLED'} . "/share/perl/5.12.4");
+  # - parse up version number
+  my ($major, $minor, $revision) = $] =~ /(\d+)\.(\d\d\d)(\d\d\d)/;
+  # - get rid of leading zeros by making them integers
+  $major += 0;
+  $minor += 0;
+  $revision += 0;
+  # - and add to Perl's path
+  unshift (@INC, $ENV{'GEXTTDBEDIT_INSTALLED'} . '/share/perl/' . $major . '.' . $minor . '.' . $revision);
 }