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

[svn at pti.co.il]

Author: gabor
Date: 2005-02-03 07:17:45 +0200 (Thu, 03 Feb 2005)
New Revision: 73

Modified:
   trunk/lib/CPAN/Forum.pm
Log:
make less noise on error

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-02-03 05:13:31 UTC (rev 72)
+++ trunk/lib/CPAN/Forum.pm	2005-02-03 05:17:45 UTC (rev 73)
@@ -814,7 +814,10 @@
 
 sub internal_error {
 	my ($self, $msg, $tag) = @_;
-	cluck $msg if $msg;
+	if ($msg) {
+		warn $msg;
+		$self->log->debug($msg);
+	}
 	my $t = $self->load_tmpl("internal_error.tmpl");
 	$t->param($tag => 1) if $tag;
 	$t->output;