r13487 - /scripts/qa/packagecheck

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Thu Jan 24 21:26:46 2008
New Revision: 13487

URL: http://svn.debian.org/wsvn/?sc=1&rev=13487
Log:
escape @ in Uploaders: email before feeding it to perl

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=13487&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Thu Jan 24 21:26:46 2008
@@ -121,9 +121,9 @@
 		# TODO: remove DPG from Uploaders if we've added it to Maintainer
 		if ! echo $OLDMAINT | grep pkg-perl-maintainers ; then
 			if grep Uploaders $TRUNK/$1/debian/control > /dev/null; then
-				perl -pi -e "s;(Uploaders:.+);\$1, $OLDMAINT;" $TRUNK/$1/debian/control
+				perl -pi -e "s;(Uploaders:.+);\$1, ${OLDMAINT/@/\@};" $TRUNK/$1/debian/control
 			else
-				perl -pi -e "s;(Maintainer:.+);\$1\nUploaders: $OLDMAINT;" $TRUNK/$1/debian/control
+				perl -pi -e "s;(Maintainer:.+);\$1\nUploaders: ${OLDMAINT/@/\@};" $TRUNK/$1/debian/control
 			fi
 			MSG_CONTROL_CH="${MSG_CONTROL_CH:+$MSG_CONTROL_CH; }$OLDMAINT moved to Uploaders"
 		fi