xmltv/lib Augment.pm,1.4,1.5

Update of /cvsroot/xmltv/xmltv/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1136/lib

Modified Files:
	Augment.pm 
Log Message:
Quote possible metacharacters in regex

Index: Augment.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Augment.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Augment.pm	23 May 2016 17:02:49 -0000	1.4
--- Augment.pm	27 Jun 2016 23:54:23 -0000	1.5
***************
*** 2174,2178 ****
  			my $_key = $self->replace_wild($key);
  
!       if ($prog->{'_title'} =~ m/$_key/i ) {
  				#_d(4,dd(4,$prog->{'_genres'}));
  
--- 2174,2178 ----
  			my $_key = $self->replace_wild($key);
  
!       if ($prog->{'_title'} =~ m/\Q$_key\E/i ) {
  				#_d(4,dd(4,$prog->{'_genres'}));
  


------------------------------------------------------------------------------
Attend Shape: An AT&T Tech Expo July 15-16. Meet us at AT&T Park in San
Francisco, CA to explore cutting-edge tech and listen to tech luminaries
present their vision of the future. This family event has something for
everyone, including kids. Get more information and register today.
http://sdm.link/attshape