diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-06-05 14:20:51 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-06-05 14:20:51 +0000 |
| commit | e858de61083066071eb1526df39bdaa094032c61 (patch) | |
| tree | a59a60b162edf35b5557f553d4812553b75a996d /ext/DB_File | |
| parent | 5196be3eab7cb5c37d1fce858e95874c8439e54f (diff) | |
| download | perl-e858de61083066071eb1526df39bdaa094032c61.tar.gz | |
More fixups for thrperl integration.
p4raw-id: //depot/perl@27
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 10 | ||||
| -rw-r--r-- | ext/DB_File/DB_File.xs | 8 |
2 files changed, 13 insertions, 5 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index 2d5e744671..e097046718 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -1,8 +1,8 @@ # DB_File.pm -- Perl 5 interface to Berkeley DB # # written by Paul Marquess (pmarquess@bfsec.bt.co.uk) -# last modified 30th Apr 1997 -# version 1.14 +# last modified 31st May 1997 +# version 1.15 # # Copyright (c) 1995, 1996, 1997 Paul Marquess. All rights reserved. # This program is free software; you can redistribute it and/or @@ -146,7 +146,7 @@ use vars qw($VERSION @ISA @EXPORT $AUTOLOAD $DB_BTREE $DB_HASH $DB_RECNO) ; use Carp; -$VERSION = "1.14" ; +$VERSION = "1.15" ; #typedef enum { DB_BTREE, DB_HASH, DB_RECNO } DBTYPE; $DB_BTREE = new DB_File::BTREEINFO ; @@ -1666,6 +1666,10 @@ Minor changes to DB_FIle.xs and DB_File.pm Made it illegal to tie an associative array to a RECNO database and an ordinary array to a HASH or BTREE database. +=item 1.15 + +Minor changes to DB_File.xs to support multithreaded perl. + =back =head1 BUGS diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index 8d01d91642..cc70b5d7b9 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -3,8 +3,8 @@ DB_File.xs -- Perl 5 interface to Berkeley DB written by Paul Marquess (pmarquess@bfsec.bt.co.uk) - last modified 30th Apr 1997 - version 1.14 + last modified 31st May 1997 + version 1.15 All comments/suggestions/problems are welcome @@ -42,6 +42,7 @@ 1.13 - Tidied up a few casts. 1.14 - Made it illegal to tie an associative array to a RECNO database and an ordinary array to a HASH or BTREE database. + 1.15 - Minor additions to DB_File.xs to support multithreaded perl. */ @@ -134,6 +135,7 @@ btree_compare(key1, key2) const DBT * key1 ; const DBT * key2 ; { + dTHR ; dSP ; void * data1, * data2 ; int retval ; @@ -181,6 +183,7 @@ btree_prefix(key1, key2) const DBT * key1 ; const DBT * key2 ; { + dTHR ; dSP ; void * data1, * data2 ; int retval ; @@ -228,6 +231,7 @@ hash_cb(data, size) const void * data ; size_t size ; { + dTHR ; dSP ; int retval ; int count ; |