Changeset 2202

Timestamp:

04/24/08 20:35:06 (3 weeks ago)

Author:

anarcat

Message:

revert part of last patch: we need to initialize $listname from the
regex to make perl think it's safe

Files:

• alternc-mailman/trunk/src/mailman.create (modified) (1 diff)

alternc-mailman/trunk/src/mailman.create

@@ -27 +27 @@
-    die "List name is incorrect.";
-}
+$listname=$1;
-
-if (!($email =~ /^([a-z0-9_\+\.-]+\@[a-z0-9\.-]+)$/)) {