--- perl-5.8.0/perl.h.orig	2002-12-28 13:23:06.000000000 +0200
+++ perl-5.8.0/perl.h	2002-12-28 13:23:47.000000000 +0200
@@ -717,7 +717,7 @@
 /* sockatmark() is so new (2001) that many places might have it hidden
  * behind some -D_BLAH_BLAH_SOURCE guard. */
 #if defined(HAS_SOCKATMARK) && !defined(HAS_SOCKATMARK_PROTO)
-int sockatmark(int);
+int sockatmark(int) __THROW;
 #endif
 
 #ifdef SETERRNO