diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 23:54:01 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 23:54:01 +0000 |
| commit | f0f333f45536802923a359d930d1dcfd5b4589ea (patch) | |
| tree | 6f746f4b9cda56e2432754d6816467676c601820 /ext/GDBM_File | |
| parent | 8ac853655d9b744749adcb9687c13d99cdd6e9fb (diff) | |
| download | perl-f0f333f45536802923a359d930d1dcfd5b4589ea.tar.gz | |
Further ANSI changes now builds and passes (most) tests
with gcc -x c++.
p4raw-id: //depot/ansiperl@196
Diffstat (limited to 'ext/GDBM_File')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.xs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs index a423c88c70..d3305ec38d 100644 --- a/ext/GDBM_File/GDBM_File.xs +++ b/ext/GDBM_File/GDBM_File.xs @@ -20,11 +20,10 @@ typedef GDBM_FILE GDBM_File; typedef datum gdatum; -typedef void (*FATALFUNC)(); +typedef void (*FATALFUNC)(...); static int -not_here(s) -char *s; +not_here(char *s) { croak("GDBM_File::%s not implemented on this architecture", s); return -1; @@ -41,9 +40,7 @@ char *s; #endif static double -constant(name, arg) -char *name; -int arg; +constant(char *name, int arg) { errno = 0; switch (*name) { |