diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1998-02-23 10:47:26 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-25 15:18:06 +0000 |
| commit | ee02776e1e319bf3f9a6f0b42762f94334cfa372 (patch) | |
| tree | 1dc5920b004235b35e755d7f9587fa6f06dd736a /ext/DB_File | |
| parent | 07569ed3536e39e9dd5698939bf5a09a96521f3f (diff) | |
| download | perl-ee02776e1e319bf3f9a6f0b42762f94334cfa372.tar.gz | |
Back out DB_File patch (change _553) and tweak Configure.
Subject: ANNOUNCE: perl5.004_60 is available
p4raw-id: //depot/perl@578
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index b6da38609d..91b4dc2ad5 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -533,14 +533,6 @@ DB_File db ; DBT_flags(key) ; DBT_flags(value) ; RETVAL = do_SEQ(db, key, value, R_LAST) ; - if (RETVAL < 0 && errno == EBADF) - { - recno_t oops = -1; - key.data = &oops; - key.size = sizeof(oops); - db_get(db, key, value, 0); - RETVAL = do_SEQ(db, key, value, R_LAST) ; - } if (RETVAL == 0) RETVAL = *(I32 *)key.data ; else /* No key means empty file */ |