xmltv/grab/it tv_grab_it.PL,1.20,1.21

Update of /cvsroot/xmltv/xmltv/grab/it
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv30328/grab/it

Modified Files:
	tv_grab_it.PL 
Log Message:
Provide explicit paths to current directory for 'require's

Perl 5.26 drops "." from @INC by default, so ensure require/use/do
find files in currdir when necessary


Index: tv_grab_it.PL
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/it/tv_grab_it.PL,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** tv_grab_it.PL	24 Feb 2017 22:35:58 -0000	1.20
--- tv_grab_it.PL	18 Aug 2017 00:32:24 -0000	1.21
***************
*** 356,362 ****
  die "usage: $_ output_file share_dir" if @ARGV != 2;
  
! # Perl 5.24.1+ does not include '.' in @INC but we need some libs during build
! use lib '.';
! require 'lib/set_share_dir.pl';
  
  #warn "faccio $ARGV[0] $ARGV[1]\n";
--- 356,360 ----
  die "usage: $_ output_file share_dir" if @ARGV != 2;
  
! require './lib/set_share_dir.pl';
  
  #warn "faccio $ARGV[0] $ARGV[1]\n";


------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot