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/ODBM_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/ODBM_File')
| -rw-r--r-- | ext/ODBM_File/ODBM_File.xs | 2 | ||||
| -rw-r--r-- | ext/ODBM_File/typemap | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs index 5127ea52a3..892c038a9c 100644 --- a/ext/ODBM_File/ODBM_File.xs +++ b/ext/ODBM_File/ODBM_File.xs @@ -76,7 +76,7 @@ odbm_TIEHASH(dbtype, filename, flags, mode) croak("ODBM_FILE: Can't open %s", filename); } RETVAL = (void*)(dbminit(filename) >= 0 ? &dbmrefcnt : 0); - ST(0) = sv_mortalcopy(&sv_undef); + ST(0) = sv_mortalcopy(&PL_sv_undef); sv_setptrobj(ST(0), RETVAL, dbtype); } diff --git a/ext/ODBM_File/typemap b/ext/ODBM_File/typemap index a6b0e5faa8..5e12e73933 100644 --- a/ext/ODBM_File/typemap +++ b/ext/ODBM_File/typemap @@ -14,8 +14,8 @@ FATALFUNC T_OPAQUEPTR INPUT T_DATUM - $var.dptr = SvPV($arg, na); - $var.dsize = (int)na; + $var.dptr = SvPV($arg, PL_na); + $var.dsize = (int)PL_na; T_GDATUM UNIMPLEMENTED OUTPUT |