Usually you want these solutions to add directories to the path, not just overwrite the current list with a new list.

As noted in the threads you mentioned, some versions of some operating systems notice that perl is exec'ing perl (itself) and then avoid repeating some of the work of loading dependencies. This can lead to this solution still not working.

That is why some of the solutions previously provided did something like:

    exec "env", $^X, $0, @ARGV
    #    ^^^^^ have perl exec env that execs perl
[download]

In my case, I do want it to overwrite the path, because the 'default' environment "they" have picked for us has a bunch of crap in LD_LIBRARY_PATH, and I want shared lib paths to default to the path that the other shared libs were compiled under, not get overridden by LD_LIBRARY_PATH.

E.g., (On Solaris) I've compiled a new libxml2 in a non-standard place, and compiled XML::LibXML against that new version. With LD_LIBRARY_PATH unset, it finds the right libxml2. If I leave LD_LIBRARY_PATH set, it finds the old version and complains. I've tried adding '-i' to the LDDLFLAGS when compiling XML::LibXML to try and say 'ignore LD_LIBRARY_PATH' (-R/path was already being used), but it doesn't seem to work, so this is my BandAid(tm).

And it seems to work ok without the "env" (though if this were a universal portable solution, I'd put it in).

Oh, and if you want to add paths instead of overwrite it, I'm sure you could just pass the current value of LD_LIBRARY_PATH in to the import list along with other paths.

Update: AFAICT, my main issue seems to be that "they" decided to put "/usr/lib" in LD_LIBRARY_PATH, which, if my recent research has led me to a correct conclusion, is a bad bad thing.

sub import {
  return if $ENV{FIXINIT_PM};
  my $class = shift;
  my @chk = $^C ? '-c' : ();
  $ENV{FIXINIT_PM} = 1;
  my @path = split /:/, $ENV{LD_LIBRARY_PATH};
  while ( my $dir = shift @_ ) {
    last if $dir eq "--";
    if ( $dir =~ s/^-// ) {
      if ($dir eq 'all') {
        @path = ();
        next;
      }
      @path = grep $_ ne $dir, @path;
      next;
    }
    if ( $dir =~ s/^\+// ) {
      unshift @path, $dir;
      next;
    }
    push @path, $dir;
  }
  $ENV{LD_LIBRARY_PATH} = join ":", @path;
  my %env = @_;
  $ENV{keys %env} = values %env;
  exec $^X => @chk, $0, @ARGV;
  die "Could not exec $^X $0: $!";
}
[download]

=head1 SYNOPSIS

  # Use before all other use statements
  # Unset LD_LIBRARY_PATH
  use FixInit;

  # Add paths to end of LD_LIBRARY_PATH and set some variables
  # "--" divides paths and env variables
  use FixInit qw(libpath1 libpath2 -- env1 value1 env2 value2);

  # Add paths to beginning of LD_LIBRARY_PATH
  # (Will get added in reverse order)
  use FixInit qw(+libpath2 +libpath1);

  # Remove paths from LD_LIBRARY_PATH
  use FixInit qw(-libpath1 -libpath2);
[download]