[commit-womb] gnumaint gm-read.pl

[karl]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     karl <karl>     15/05/13 23:20:17

Modified files:
        .              : gm-read.pl 

Log message:
        (read_maintainers): warn if any email value
        has two or more @ signs.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gm-read.pl?cvsroot=womb&r1=1.19&r2=1.20

Patches:
Index: gm-read.pl
===================================================================
RCS file: /sources/womb/gnumaint/gm-read.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- gm-read.pl  7 Jun 2014 13:26:05 -0000       1.19
+++ gm-read.pl  13 May 2015 23:20:16 -0000      1.20
@@ -1,4 +1,4 @@
-# $Id: gm-read.pl,v 1.19 2014/06/07 13:26:05 karl Exp $
+# $Id: gm-read.pl,v 1.20 2015/05/13 23:20:16 karl Exp $
 # Subroutines for gm script that read various external data file.
 # 
 # Copyright 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014
@@ -726,6 +726,12 @@
     # value is everything after the first colon and whitespace.
     my ($key,$val) = split (/:\s*/, $_, 2);
     
+    # check that an email value doesn't have two @'s.
+    if ($key =~ /email/ && $val =~ /@@/) {
+      warn "value for key $key has double \@: $val";
+      next;
+    }
+    
     # if key already exists, use | to separate values.
     $val = "$maint{$key}|$val" if exists $maint{$key};