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

[svn at pti.co.il]

Author: gabor
Date: 2005-02-03 08:44:00 +0200 (Thu, 03 Feb 2005)
New Revision: 74

Modified:
   trunk/lib/CPAN/Forum.pm
Log:
add referer to the error log

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-02-03 05:17:45 UTC (rev 73)
+++ trunk/lib/CPAN/Forum.pm	2005-02-03 06:44:00 UTC (rev 74)
@@ -815,6 +815,7 @@
 sub internal_error {
 	my ($self, $msg, $tag) = @_;
 	if ($msg) {
+		$msg .= " REFERER: $ENV{HTTP_REFERER}" if $ENV{HTTP_REFERER};
 		warn $msg;
 		$self->log->debug($msg);
 	}