diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2004-08-07 16:22:09 +0100 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-07 15:10:39 +0000 |
| commit | 32babee08ee923133079392c9eae66cc543e1115 (patch) | |
| tree | d25cf8d9fb37da56450e7137666c6a3432f5e7c4 /ext/DB_File/DB_File.xs | |
| parent | 036c1c1eb70a0dfc5a7187959eb5e39d499c9396 (diff) | |
| download | perl-32babee08ee923133079392c9eae66cc543e1115.tar.gz | |
DB_File 1.810
From: "Paul Marquess" <Paul.Marquess@btinternet.com>
Message-Id: <20040807142059.CTQC10838.mta10-svc.ntlworld.com@MARQUESSPT21>
p4raw-id: //depot/perl@23202
Diffstat (limited to 'ext/DB_File/DB_File.xs')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index eb83670338..8f6cec1cc3 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 <pmqs@cpan.org> - last modified 20th June 2004 - version 1.809 + last modified 7th August 2004 + version 1.810 All comments/suggestions/problems are welcome @@ -109,6 +109,7 @@ 1.807 - no change 1.808 - leak fixed in ParseOpenInfo 1.809 - no change + 1.810 - no change */ @@ -397,8 +398,9 @@ typedef DBT DBTKEY ; #define OutputValue(arg, name) \ { if (RETVAL == 0) { \ + SvGETMAGIC(arg) ; \ my_sv_setpvn(arg, name.data, name.size) ; \ - TAINT; \ + TAINT; \ SvTAINTED_on(arg); \ SvUTF8_off(arg); \ DBM_ckFilter(arg, filter_fetch_value,"filter_fetch_value") ; \ @@ -408,12 +410,13 @@ typedef DBT DBTKEY ; #define OutputKey(arg, name) \ { if (RETVAL == 0) \ { \ + SvGETMAGIC(arg) ; \ if (db->type != DB_RECNO) { \ my_sv_setpvn(arg, name.data, name.size); \ } \ else \ sv_setiv(arg, (I32)*(I32*)name.data - 1); \ - TAINT; \ + TAINT; \ SvTAINTED_on(arg); \ SvUTF8_off(arg); \ DBM_ckFilter(arg, filter_fetch_key,"filter_fetch_key") ; \ |