pridano nacitani adresare lib a modulu WardenClient.pm pomoci promenne __FILE__

src/warden-client/bin/receiver.pl

@@ -7,6 +7,8 @@
 use strict;
 use warnings;
 
+use File::Basename;
+
 #------------------------------------------------------------------------------
 # Warden 2.2 Client, Receiver, Example
 #
@@ -18,11 +20,10 @@ use warnings;
 #------------------------------------------------------------------------------
 # This code should developer add into his/her application.
 
-# Path to warden-client directory
-my $warden_path = '/opt/warden-client/';
-
-# Inclusion of warden-client receiving functionality
-require $warden_path . '/lib/WardenClient.pm';
+# Load Warden client library and use main module
+my $bin = File::Basename::dirname(__FILE__);
+use lib "$bin/../lib";
+use WardenClient;
 
 # Definition of requested event type. This attributes is also set on server
 # and must not change.