---------- Forwarded message ----------
From: mraptor <[email protected]>
Date: Mon, Sep 30, 2013 at 9:44 PM
Subject: Re: [Perldl] What does this error mean ?
To: Craig DeForest <[email protected]>
I think I have narrowed it down.. let me show you some pseudo code...
I have :
package Base;
sub set { $_[0]->{$_[1]} = $_[2] }
sub get { $_[0]->{$_[1]} }
....
1;
Then I have :
package Base::Simple;
use parent qw(Base);
...
1;
then in another class I have something like this :
my $tmp = zeros 20;
$self->{base_simple_obj}->set('blah', $tmp);
and this is where it blows up with this error..
BTW if I make my Base::Simple like this :
package Base::Simple;
use parent qw(Base);
sub set { $_[0]->{$_[1]} = $_[2] }
sub get { $_[0]->{$_[1]} }
...
1;
and of course remove it from Base.pm it works...
PS> if I use $self->{base_obj} in the first case it seems to work too ...
>>Sorry about the reply, google alway replies to one person by default<<
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
