summaryrefslogtreecommitdiff
path: root/ext/Fcntl/Fcntl.xs
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-11-11 23:08:54 +0000
committerGurusamy Sarathy <gsar@cpan.org>1997-11-11 23:08:54 +0000
commite7cd54d7e2bd82a89f30e2f71675be1f5d3be34d (patch)
treef6873b8c4849ed68422779287f972403412a3412 /ext/Fcntl/Fcntl.xs
parent1d64a758d60d7ded97c59c753fea85d3365ca0df (diff)
parent004955206412e3e53b76d4dad6bc7ac3032c300a (diff)
downloadperl-e7cd54d7e2bd82a89f30e2f71675be1f5d3be34d.tar.gz
Initial (untested) integration of mainline changes.
p4raw-id: //depot/win32/perl@234
Diffstat (limited to 'ext/Fcntl/Fcntl.xs')
-rw-r--r--ext/Fcntl/Fcntl.xs7
1 files changed, 2 insertions, 5 deletions
diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index 9034031c9c..251f3f4176 100644
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -23,17 +23,14 @@
*/
static int
-not_here(s)
-char *s;
+not_here(char *s)
{
croak("%s not implemented on this architecture", s);
return -1;
}
static double
-constant(name, arg)
-char *name;
-int arg;
+constant(char *name, int arg)
{
errno = 0;
switch (*name) {