| Subject: | Segmentation fault in tied module |
| Date: | Sun, 30 May 2010 23:14:37 +0300 |
| To: | bug-Want [...] rt.cpan.org |
| From: | Gabor Szabo <szabgab [...] gmail.com> |
use strict;
use warnings;
tie my $z, 'X', 1;
print $z;
package X;
use strict;
use warnings;
use Want;
sub TIESCALAR {
my ($class, $self) = @_;
return bless \$self, $class,
}
sub FETCH {
my ($self) = @_;
print "ok" if want('BOOL');
return $$self;
}
the response was:
Segmentation fault
found on 5.10.1 and checked on 5.12.0