- unless ( ref( $self->{'user'}) ) {
- $RT::Logger->err( "$self was created without a CurrentUser\n" . Carp::cluck() );
- return (0);
+ unless ( ref $self->{'user'} && $self->{'user'}->isa('RT::CurrentUser') ) {
+ my $msg = "$self was created without a CurrentUser."
+ ." Any RT object which is subclass of RT::Base must be created"
+ ." with a RT::CurrentUser or a RT::User object as the first argument.";
+ $msg .= "\n". Carp::longmess() if @_;
+
+ $RT::Logger->error( $msg );
+ return $self->{'user'} = undef;