xmltv/lib Augment.pm,1.20,1.21

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

Modified Files:
	Augment.pm 
Log Message:
bug #503 : don't remove trailing period from title or sub-title if it could be an abbreviation, e.g. 'M.I.A.'

Index: Augment.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Augment.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Augment.pm	12 Jul 2016 01:30:08 -0000	1.20
--- Augment.pm	11 Dec 2016 09:43:07 -0000	1.21
***************
*** 335,339 ****
  
  			# remove trailing character if any of .,:;-| and not ellipsis
! 			$prog->{'title'}[$i][0] =~ s/[|\.,:;-]$//  if $prog->{'title'}[$i][0] !~ m/\.{3}$/;
  		}
      }
--- 335,340 ----
  
  			# remove trailing character if any of .,:;-| and not ellipsis
! 			# bug #503 : don't remove trailing period if it could be an abbreviation, e.g. 'M.I.A.'
! 			$prog->{'title'}[$i][0] =~ s/[|\.,:;-]$//  if $prog->{'title'}[$i][0] !~ m/\.{3}$/ && $prog->{'title'}[$i][0] !~ m/\..\.$/;
  		}
      }
***************
*** 353,357 ****
  
  			# remove trailing character if any of .,:;-| and not ellipsis
! 			$prog->{'sub-title'}[$i][0] =~ s/[|\.,:;-]$//g  if $prog->{'sub-title'}[$i][0] !~ m/\.{3}$/;
  		}
  	}
--- 354,359 ----
  
  			# remove trailing character if any of .,:;-| and not ellipsis
! 			# bug #503 : don't remove trailing period if it could be an abbreviation, e.g. 'In the U.S.'
! 			$prog->{'sub-title'}[$i][0] =~ s/[|\.,:;-]$//g  if $prog->{'sub-title'}[$i][0] !~ m/\.{3}$/ && $prog->{'sub-title'}[$i][0] !~ m/\..\.$/;
  		}
  	}


------------------------------------------------------------------------------
Developer Access Program for Intel Xeon Phi Processors
Access to Intel Xeon Phi processor-based developer platforms.
With one year of Intel Parallel Studio XE.
Training and support from Colfax.
Order your platform today.http://sdm.link/xeonphi