greg/stasis-aries-wal
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix memory bug in perl binding

Browse source
This commit is contained in:
Sears Russell 2009-12-10 02:38:31 +00:00
parent efc6a0eabd
commit 230d863ff7
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lang/perl/Stasis.pm
View file

@ -47,9 +47,7 @@ sub TIEHASH {
sub FETCH {
my $this = shift;
my $key = shift;
my $ret = Stasis::ThashLookup($$this{xid}, $$this{rid}, $key);
## Oddly, returning without the defined() check leads to a segfault(??)
if(defined($ret)) { return $ret; } else { return; }
return Stasis::ThashLookup($$this{xid}, $$this{rid}, $key);
}
sub STORE {
my $this = shift;
@ -291,7 +289,7 @@ SV* stasis_perl_ThashLookup(int xid, recordid hash, SV * key) {
free(valb);
return ret;
} else {
return 0;
return &PL_sv_undef;
}
}