Partial GUI compatibility with XS data

This commit is contained in:
Alessandro Ranellucci 2013-07-07 18:43:04 +02:00
parent 8380ca812b
commit 5409c27852
4 changed files with 11 additions and 14 deletions

View file

@ -22,11 +22,6 @@ sub clone {
Storable::dclone($_[0])
}
sub threadsafe_clone {
my $self = shift;
return (ref $self)->new(map $_->threadsafe_clone, @$self);
}
sub serialize {
my $self = shift;
return pack 'l*', map @$_, @$self;