use FindBin module to resolve the relative lib path.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8388 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
mxi1 2010-12-13 06:59:31 +00:00
parent 61d7f8402e
commit f159080112
3 changed files with 6 additions and 6 deletions

View File

@ -5,8 +5,6 @@ BEGIN
}
use lib "$::XCATROOT/lib/perl";
use lib "../imgutils";
use File::Basename;
use File::Path;
use File::Copy;
@ -14,6 +12,8 @@ use File::Find;
use Getopt::Long;
use Cwd qw(realpath);
use FindBin;
use lib "$FindBin::Bin/../imgutils";
use imgutils;
#use strict;

View File

@ -5,8 +5,6 @@ BEGIN
}
use lib "$::XCATROOT/lib/perl";
use lib "../imgutils";
use File::Basename;
use File::Path;
use File::Copy qw/copy cp mv move/;
@ -15,6 +13,8 @@ use Getopt::Long;
use Cwd qw(realpath);
use File::Temp qw/mkdtemp/;
use FindBin;
use lib "$FindBin::Bin/../imgutils";
use imgutils;
#use strict;

View File

@ -5,8 +5,6 @@ BEGIN
}
use lib "$::XCATROOT/lib/perl";
use lib "../imgutils";
use File::Basename;
use File::Path;
use File::Copy qw/copy cp mv move/;
@ -15,6 +13,8 @@ use Getopt::Long;
use Cwd qw(realpath);
use File::Temp qw/mkdtemp/;
use FindBin;
use lib "$FindBin::Bin/../imgutils";
use imgutils;
#use strict;