diff --git a/src/warden-client/bin/info.pl b/src/warden-client/bin/info.pl index d7137dab8ea7bb7c646f1a11b4b9ab7358aea4a6..c466f2ed34c42b2be9e8de10e9890568da3beebf 100755 --- a/src/warden-client/bin/info.pl +++ b/src/warden-client/bin/info.pl @@ -7,7 +7,8 @@ use strict; use warnings; -use File::Basename; +use FindBin qw($RealBin); +FindBin::again(); #------------------------------------------------------------------------------ # Warden 2.2 Client, Info, Example @@ -21,8 +22,7 @@ use File::Basename; # This code should developer add into his/her application. # Load Warden client library and use main module -my $bin = File::Basename::dirname(__FILE__); -use lib "$bin/../lib"; +use lib "$RealBin/../lib"; use WardenClient; # obtain information about already registered clients