Vodafone.pt Grabber - load channel.list by using the grabber path

grab/pt_vodafone/tv_grab_pt_vodafone

@@ -118,6 +118,10 @@ use URI::Escape qw/ uri_escape /;
 use URI::Encode qw/ uri_encode uri_decode/;
 # use Data::Dump qw/pp/; # uncomment to debug
 
+# needed to find the channel.list location
+use File::Basename;
+my $dirname = dirname(__FILE__);
+
 my $maxdays = 1+6; # data source is limited to 7 days (including today)
 
 my $grabber_name = 'tv_grab_pt_vodafone';
@@ -127,7 +131,7 @@ my $json_baseurl = 'https://cdn.pt.vtv.vodafone.com/epg/';
 
 # Generate with:
 # jq -r '.channels[]|(.epgId,.title,.logo.color.uri)' channel.list.new | sed 'N;N; s/\n/\t/g' | sort > channel.list
-my $input_file = 'channel.list';
+my $input_file = $dirname . '/channel.list';
 
 my $ua = LWP::UserAgent->new(ssl_opts => {
     SSL_cipher_list => 'DEFAULT:!DH',