From 2d499f1fb22308d2ea44314c8be0db7dea45f8e4 Mon Sep 17 00:00:00 2001 From: Tomas Plesnik <plesnik@ics.muni.cz> Date: Mon, 9 Feb 2015 16:02:41 +0100 Subject: [PATCH] pwd zjistovana pomoci modulu FindBin --- src/warden-client/bin/receiver.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/warden-client/bin/receiver.pl b/src/warden-client/bin/receiver.pl index b9d4542..f80afbe 100755 --- a/src/warden-client/bin/receiver.pl +++ b/src/warden-client/bin/receiver.pl @@ -7,7 +7,8 @@ use strict; use warnings; -use File::Basename; +use FindBin qw($RealBin $RealScript); +FindBin::again(); #------------------------------------------------------------------------------ # Warden 2.2 Client, Receiver, 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; # Definition of requested event type. This attributes is also set on server -- GitLab