--- nfo/perl/libs/Data/Rap/Engine.pm	2004/05/12 14:23:31	1.14
+++ nfo/perl/libs/Data/Rap/Engine.pm	2004/06/16 16:37:59	1.15
@@ -1,9 +1,12 @@
 ## ----------------------------------------------------------------------
-##  $Id: Engine.pm,v 1.14 2004/05/12 14:23:31 jonen Exp $
+##  $Id: Engine.pm,v 1.15 2004/06/16 16:37:59 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Engine.pm,v $
+##  Revision 1.15  2004/06/16 16:37:59  joko
+##  attempt to get things going in a generic way (Linux/FreeBSD/Win32)
+##
 ##  Revision 1.14  2004/05/12 14:23:31  jonen
-##  add comment/code related to PERL5LIB var at different OS's
+##   add comment/code related to PERL5LIB var at different OS's
 ##
 ##  Revision 1.13  2003/12/05 05:02:08  joko
 ##  + minor update: disabled some unnecessary loggers or changed to debug-level
@@ -63,7 +66,7 @@
 use Hash::Merge qw( merge );
 use Iterate;
 
-use shortcuts qw( run_cmd );
+use shortcuts qw( run_cmd RUNNING_IN_HELL );
 use Data::Mungle::Code::Ref qw( ref_slot );
 use Data::Mungle::Transform::Deep qw( expand deep_copy );
 use File::Temp qw/ tempfile tempdir /;
@@ -420,12 +423,15 @@
       #print "command: $cmd", "\n";
     
     # start process
-      # 2004-05-11 - seems like only ONE args is valid at PERL5LIB,
-      #     so we use V2!
+      # 2004-05-11 - seems like only ONE args is valid at PERL5LIB, so we use V2!
+      # 2004-06-16 - found out delimiter required for PERL5LIB, reverting back to V1!
+      
       # V1: join all args
-      #$ENV{PERL5LIB} = join(' ', @INC);      
+      my $delimiter = ':';
+      $delimiter = ';' if RUNNING_IN_HELL();
+      $ENV{PERL5LIB} = join($delimiter, @INC);
       # V2: insert only FIRST arg
-      $ENV{PERL5LIB} = $INC[0];
+      #$ENV{PERL5LIB} = $INC[0];
       # WARNING: at (free)BSD our var is the SECOND, NOT FIRST!!
       # FIXME!! Do this in an abstract way!!
       #$ENV{PERL5LIB} = $INC[1];