diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
| commit | 3280af22f58e7b37514ed104858e2c2fc55ceeeb (patch) | |
| tree | 8fd8328859f022068272656f072a7ec4eecac0a6 /ext/ODBM_File | |
| parent | ef6361f9c2260919aefcc17b1b80f8857c67a84a (diff) | |
| download | perl-3280af22f58e7b37514ed104858e2c2fc55ceeeb.tar.gz | |
PL_ prefix to all perlvars, part1
Builds and passes all tests at one limit i.e. -DPERL_GLOBAL_STRUCT
p4raw-id: //depot/ansiperl@1532
Diffstat (limited to 'ext/ODBM_File')
| -rw-r--r-- | ext/ODBM_File/ODBM_File.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs index 53d1930c54..5127ea52a3 100644 --- a/ext/ODBM_File/ODBM_File.xs +++ b/ext/ODBM_File/ODBM_File.xs @@ -64,7 +64,7 @@ odbm_TIEHASH(dbtype, filename, flags, mode) New(0, tmpbuf, strlen(filename) + 5, char); SAVEFREEPV(tmpbuf); sprintf(tmpbuf,"%s.dir",filename); - if (stat(tmpbuf, &statbuf) < 0) { + if (stat(tmpbuf, &PL_statbuf) < 0) { if (flags & O_CREAT) { if (mode < 0 || close(creat(tmpbuf,mode)) < 0) croak("ODBM_File: Can't create %s", filename); |