xmltv/lib Augment.pm,1.16,1.17

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

Modified Files:
	Augment.pm 
Log Message:
Update process_subtitle_remove_text()

* Update sub-title match regex to:
   i) remove unneeded quoting in character class
  ii) match removal text to very end of sub-title (no trailing chars)

* Upper-case first letter of new sub-title after text has been removed


Index: Augment.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Augment.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Augment.pm	12 Jul 2016 01:29:21 -0000	1.16
--- Augment.pm	12 Jul 2016 01:29:32 -0000	1.17
***************
*** 2002,2007 ****
              if ($prog->{'_title'} eq $key) {
  
!                 if ( $prog->{'_episode'} =~ s/^\Q$value\E[\s\.,:;-]*//i
! 				 ||  $prog->{'_episode'} =~ s/[\s\.,:;-]*\Q$value\E[\s\.]*$//i ) {
  
                      l(sprintf("\t Removed text '%s' from subtitle. New subtitle is '%s' (#%s.%s)",
--- 2002,2009 ----
              if ($prog->{'_title'} eq $key) {
  
!                 if ( $prog->{'_episode'} =~ s/^\Q$value\E\s*[.,:;-]?\s*//i
! 				 ||  $prog->{'_episode'} =~ s/\s*[.,:;-]?\s*\Q$value\E$//i ) {
! 
!                     $prog->{'_episode'} = ucfirst($prog->{'_episode'});
  
                      l(sprintf("\t Removed text '%s' from subtitle. New subtitle is '%s' (#%s.%s)",


------------------------------------------------------------------------------
What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic
patterns at an interface-level. Reveals which users, apps, and protocols are 
consuming the most bandwidth. Provides multi-vendor support for NetFlow, 
J-Flow, sFlow and other flows. Make informed decisions using capacity planning
reports.http://sdm.link/zohodev2dev