Chinaunix首页 | 论坛 | 博客
  • 博客访问: 940096
  • 博文数量: 146
  • 博客积分: 3321
  • 博客等级: 中校
  • 技术积分: 1523
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-29 10:32
文章分类

全部博文(146)

文章存档

2014年(2)

2013年(5)

2012年(4)

2011年(6)

2010年(30)

2009年(75)

2008年(24)

分类: PERL

2013-06-01 18:32:00

BEGIN {

        #需要加到LOADPATH的路径

my $need '/usr/local/nagios/pkg/ebase/';


push @INC$need;

if $^O !~ /MSWin32/ ) {

my $ld $ENV{DYLD_LIBRARY_PATH};

if ( !$ld ) {

$ENV{DYLD_LIBRARY_PATH} = $need;

}

elsif $ld !~ m#(^|:)\Q$need\E(:|$)# ) {

$ENV{DYLD_LIBRARY_PATH} .= ':' $need;

}

else {

$need "";

}

if ($need) {

exec 'env'$^X$0@ARGV;

}

}

}

阅读(2398) | 评论(0) | 转发(0) |
0

上一篇:perl storable

下一篇:用cpanm来安装perl模块

给主人留下些什么吧!~~