From 791ae2eb868f67f589c58dfb839d10c9dd475b5a Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Mon, 9 Feb 2015 16:02:32 +0100
Subject: [PATCH] pwd zjistovana pomoci modulu FindBin

---
 src/warden-client/bin/info.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/warden-client/bin/info.pl b/src/warden-client/bin/info.pl
index d7137da..c466f2e 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
-- 
GitLab