Re: Nesting scrolled windows

[Torsten Schoenfeld <kaffeetisch gmx de>]

Kevin Ryde wrote:

>>  @{$categories->{data}} = @data;
> 
> Incidentally with 1.190 or the current cvs and the debian i386 5.10.0
> I get a segv at this line.

This seems to be a bug in perl 5.10.0.  The attached program (which doesn't use
Gtk2 or Glib at all), crashes too.  Will report to perl5-porters as soon as I
verified that bleadperl is affected as well.

> Inserting before it
> 
>    $categories->{data} = [];
> 
> seems to work.

This completely gets rid of the magic tie() status of $categories->{data}.

-Torsten

#!/usr/bin/perl
use warnings;
use strict;

tie my @a, 'TiedList';
@a = ('a');

package TiedList;

use strict;
use warnings;

sub TIEARRAY {
	return bless {}, shift;
}

sub STORE {
	tie my @row, 'TiedRow';
}

sub CLEAR {}

sub EXTEND {}

package TiedRow;

use strict;
use warnings;

sub TIEARRAY {
	return bless {}, shift;
}

sub STORE {}