Christopher L. Everett ([EMAIL PROTECTED]) said something to this effect on 
01/28/2001:
> package simian;
> use fields qw (name);
> sub new {
>   my $type = shift;
>   my class1 $self = fields::new(ref $type || $type);
>   $self->{name} = 'Jane';
>   return $self->{name};     # error here
> }

Why aren't you returning $self?

Change the return line to return $self.

(darren)

-- 
The great artist and thinker are the simplifiers.

Reply via email to