#!/usr/bin/perl

exit if($^O !~ /freebsd/i);

my $libdirs .= <<EOM;
/lib
/usr/lib
/usr/lib/compat
/usr/local/lib
/usr/X11R6/lib
/usr/local/lib/mysql
/usr/local/lib/compat/pkg
/compat/ia32/usr/lib
/compat/ia32/usr/lib/compat
/compat/ia32/usr/local/lib
EOM

my(@RLIBDIRS);
my @LIBDIRS=split(/\n/, $libdirs);
foreach my $libdir (@LIBDIRS) {
	if (-e $libdir) {
		push(@RLIBDIRS,$libdir);
	}
}
system("/sbin/ldconfig","-m",@RLIBDIRS);