[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[commit-womb] gnumaint gm-read.pl
From: |
karl |
Subject: |
[commit-womb] gnumaint gm-read.pl |
Date: |
Wed, 13 May 2015 23:20:17 +0000 |
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};
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [commit-womb] gnumaint gm-read.pl,
karl <=