[Cpan-forum-commit] rev 108 - trunk/lib/CPAN

[svn at pti.co.il]

Author: gabor
Date: 2005-02-07 21:27:37 +0200 (Mon, 07 Feb 2005)
New Revision: 108

Modified:
   trunk/lib/CPAN/Forum.pm
Log:
pwreminder was crashing, fix it

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-02-07 18:08:09 UTC (rev 107)
+++ trunk/lib/CPAN/Forum.pm	2005-02-07 19:27:37 UTC (rev 108)
@@ -248,6 +248,8 @@
   Maybe it should fetch all the data to memory and work there.
 - make paging available responses 1..10, 11.20, etc, 
 
+- replace the e-mail address checking by  if ($q->param('email') !~ $Email::Address::addr_spec) {
+
 - Enable people to edit their posts 
    - Shall we track changes ? 
    - Shall we display the orinal date and the last update date ?
@@ -1096,7 +1098,7 @@
 	);
 
 	$t->param($errs) if $errs;
-	$t->param($q->param('field') => 1);
+	$t->param($q->param('field') => 1) if $q->param('field') and $q->param('field') =~ /^username|email$/;
 	return $t->output;
 }