[Rt-commit] r19727 - rt/3.999/trunk/lib/RT

[sartak at bestpractical.com]

Author: sartak
Date: Tue May 19 12:05:06 2009
New Revision: 19727

Modified:
   rt/3.999/trunk/lib/RT/CurrentUser.pm

Log:
Better error message when there's no current user object

Modified: rt/3.999/trunk/lib/RT/CurrentUser.pm
==============================================================================
--- rt/3.999/trunk/lib/RT/CurrentUser.pm	(original)
+++ rt/3.999/trunk/lib/RT/CurrentUser.pm	Tue May 19 12:05:06 2009
@@ -192,7 +192,7 @@
 
 sub principal {
     my $self = shift;
-    Carp::confess unless ( $self->user_object );
+    Carp::confess("No user object for current_user") unless ( $self->user_object );
     return $self->user_object->principal;
 }
 1;