pwd zjistovana pomoci modulu FindBin

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