diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-04 01:59:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-04 01:59:26 +0000 |
| commit | 79cb57f6e01f91d8fff40d69caa187aaa669671b (patch) | |
| tree | eabaee443cecc2e9ff909a291c140663c1fd4954 /ext/DB_File | |
| parent | 053fc87424630413980be29cbecbb76f658c5d74 (diff) | |
| download | perl-79cb57f6e01f91d8fff40d69caa187aaa669671b.tar.gz | |
correct places that said newSVpv() when they meant newSVpvn()
p4raw-id: //depot/perl@3217
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index 94113eb4e2..3f6c094395 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -382,7 +382,7 @@ const DBT * key2 ; data1 = key1->data ; data2 = key2->data ; - +#if 0 /* As newSVpv will assume that the data pointer is a null terminated C string if the size parameter is 0, make sure that data points to an empty string if the length is 0 @@ -391,14 +391,14 @@ const DBT * key2 ; data1 = "" ; if (key2->size == 0) data2 = "" ; - +#endif ENTER ; SAVETMPS; PUSHMARK(SP) ; EXTEND(SP,2) ; - PUSHs(sv_2mortal(newSVpv(data1,key1->size))); - PUSHs(sv_2mortal(newSVpv(data2,key2->size))); + PUSHs(sv_2mortal(newSVpvn(data1,key1->size))); + PUSHs(sv_2mortal(newSVpvn(data2,key2->size))); PUTBACK ; count = perl_call_sv(CurrentDB->compare, G_SCALAR); @@ -429,7 +429,7 @@ const DBT * key2 ; data1 = key1->data ; data2 = key2->data ; - +#if 0 /* As newSVpv will assume that the data pointer is a null terminated C string if the size parameter is 0, make sure that data points to an empty string if the length is 0 @@ -438,14 +438,14 @@ const DBT * key2 ; data1 = "" ; if (key2->size == 0) data2 = "" ; - +#endif ENTER ; SAVETMPS; PUSHMARK(SP) ; EXTEND(SP,2) ; - PUSHs(sv_2mortal(newSVpv(data1,key1->size))); - PUSHs(sv_2mortal(newSVpv(data2,key2->size))); + PUSHs(sv_2mortal(newSVpvn(data1,key1->size))); + PUSHs(sv_2mortal(newSVpvn(data2,key2->size))); PUTBACK ; count = perl_call_sv(CurrentDB->prefix, G_SCALAR); @@ -472,17 +472,17 @@ size_t size ; dSP ; int retval ; int count ; - +#if 0 if (size == 0) data = "" ; - +#endif /* DGH - Next two lines added to fix corrupted stack problem */ ENTER ; SAVETMPS; PUSHMARK(SP) ; - XPUSHs(sv_2mortal(newSVpv((char*)data,size))); + XPUSHs(sv_2mortal(newSVpvn((char*)data,size))); PUTBACK ; count = perl_call_sv(CurrentDB->hash, G_SCALAR); |