diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-01-09 12:55:09 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:53:53 +0000 |
| commit | 8c52afecd5252bed5ed8df3a63a6cd9affde4ab4 (patch) | |
| tree | bf76561b68d175b89a738902a9cce82ceb3cb23c /ext/DB_File | |
| parent | cdaebead333273a920fe10cbcb2213a9fbefa241 (diff) | |
| download | perl-8c52afecd5252bed5ed8df3a63a6cd9affde4ab4.tar.gz | |
Newer -DLEAKTEST patch
p4raw-id: //depot/perl@466
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index f77757caa4..8f2eda10b0 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -560,12 +560,13 @@ SV * sv ; { SV ** svp; HV * action ; - DB_File RETVAL = (DB_File)safemalloc(sizeof(DB_File_type)) ; + DB_File RETVAL; void * openinfo = NULL ; - INFO * info = &RETVAL->info ; + INFO * info; /* printf("In ParseOpenInfo name=[%s] flags=[%d] mode = [%d]\n", name, flags, mode) ; */ - Zero(RETVAL, 1, DB_File_type) ; + Newz(777, RETVAL, 1, DB_File_type) ; + info = &RETVAL->info ; /* Default to HASH */ RETVAL->hash = RETVAL->compare = RETVAL->prefix = NULL ; |