diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
| commit | 6b88bc9c1f6d4b32c70e7ef68f8c65266e431623 (patch) | |
| tree | fe4f20be7c31cd96c8757067c3aefe35ea971694 /ext/DB_File | |
| parent | 045c1f128ac729dc76c4da7e8ffe34bf12692b94 (diff) | |
| download | perl-6b88bc9c1f6d4b32c70e7ef68f8c65266e431623.tar.gz | |
complete s/foo/PL_foo/ changes (all escaped cases identified with
brute force search script). Result builds and passes all tests on
Solaris. win32 and PERL_OBJECT are still untested.
p4raw-id: //depot/perl@1578
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 28 | ||||
| -rw-r--r-- | ext/DB_File/typemap | 8 |
2 files changed, 18 insertions, 18 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index 237f2e4e7a..c661023a33 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -718,11 +718,11 @@ SV * sv ; #endif svp = hv_fetch(action, "bfname", 6, FALSE); if (svp && SvOK(*svp)) { - char * ptr = SvPV(*svp,na) ; + char * ptr = SvPV(*svp,PL_na) ; #ifdef DB_VERSION_MAJOR - name = (char*) na ? ptr : NULL ; + name = (char*) PL_na ? ptr : NULL ; #else - info->db_RE_bfname = (char*) (na ? ptr : NULL) ; + info->db_RE_bfname = (char*) (PL_na ? ptr : NULL) ; #endif } else @@ -738,7 +738,7 @@ SV * sv ; { int value ; if (SvPOK(*svp)) - value = (int)*SvPV(*svp, na) ; + value = (int)*SvPV(*svp, PL_na) ; else value = SvIV(*svp) ; @@ -756,7 +756,7 @@ SV * sv ; if (svp && SvOK(*svp)) { if (SvPOK(*svp)) - info->db_RE_bval = (u_char)*SvPV(*svp, na) ; + info->db_RE_bval = (u_char)*SvPV(*svp, PL_na) ; else info->db_RE_bval = (u_char)(unsigned long) SvIV(*svp) ; DB_flags(info->flags, DB_DELIMITER) ; @@ -1102,7 +1102,7 @@ db_DoTie_(isHASH, dbtype, name=undef, flags=O_CREAT|O_RDWR, mode=0666, type=DB_H SV * sv = (SV *) NULL ; if (items >= 3 && SvOK(ST(2))) - name = (char*) SvPV(ST(2), na) ; + name = (char*) SvPV(ST(2), PL_na) ; if (items == 6) sv = ST(5) ; @@ -1245,8 +1245,8 @@ unshift(db, ...) #endif for (i = items-1 ; i > 0 ; --i) { - value.data = SvPV(ST(i), na) ; - value.size = na ; + value.data = SvPV(ST(i), PL_na) ; + value.size = PL_na ; One = 1 ; key.data = &One ; key.size = sizeof(int) ; @@ -1286,7 +1286,7 @@ pop(db) OutputValue(ST(0), value) ; RETVAL = db_del(db, key, R_CURSOR) ; if (RETVAL != 0) - sv_setsv(ST(0), &sv_undef); + sv_setsv(ST(0), &PL_sv_undef); } } @@ -1313,7 +1313,7 @@ shift(db) OutputValue(ST(0), value) ; RETVAL = db_del(db, key, R_CURSOR) ; if (RETVAL != 0) - sv_setsv (ST(0), &sv_undef) ; + sv_setsv (ST(0), &PL_sv_undef) ; } } @@ -1344,8 +1344,8 @@ push(db, ...) { ++ (* (int*)key.data) ; - value.data = SvPV(ST(i), na) ; - value.size = na ; + value.data = SvPV(ST(i), PL_na) ; + value.size = PL_na ; RETVAL = (Db->put)(Db, NULL, &key, &value, 0) ; if (RETVAL != 0) break; @@ -1353,8 +1353,8 @@ push(db, ...) #else for (i = items - 1 ; i > 0 ; --i) { - value.data = SvPV(ST(i), na) ; - value.size = na ; + value.data = SvPV(ST(i), PL_na) ; + value.size = PL_na ; RETVAL = (Db->put)(Db, keyptr, &value, R_IAFTER) ; if (RETVAL != 0) break; diff --git a/ext/DB_File/typemap b/ext/DB_File/typemap index 42c49d7dd1..7af55aec21 100644 --- a/ext/DB_File/typemap +++ b/ext/DB_File/typemap @@ -16,8 +16,8 @@ DBTKEY T_dbtkeydatum INPUT T_dbtkeydatum if (db->type != DB_RECNO) { - $var.data = SvPV($arg, na); - $var.size = (int)na; + $var.data = SvPV($arg, PL_na); + $var.size = (int)PL_na; DBT_flags($var); } else { @@ -27,8 +27,8 @@ T_dbtkeydatum DBT_flags($var); } T_dbtdatum - $var.data = SvPV($arg, na); - $var.size = (int)na; + $var.data = SvPV($arg, PL_na); + $var.size = (int)PL_na; DBT_flags($var); OUTPUT |