This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tru64 oops
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 3 Aug 2006 22:59:37 +0000 (01:59 +0300)
committerSteve Peters <steve@fisharerojo.org>
Thu, 3 Aug 2006 20:18:28 +0000 (20:18 +0000)
Message-Id: <200608031959.k73JxbsC395856@kosh.hut.fi>

p4raw-id: //depot/perl@28655

pp_sys.c

index 34ddf8c..690bc9d 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -197,7 +197,7 @@ void setservent(int);
 void endservent(void);
 #endif
 
-#if defined(__osf__) && !defined(_XOPEN_SOURCE_EXTENDED)
+#if defined(__osf__) && defined(__cplusplus) && !defined(_XOPEN_SOURCE_EXTENDED)
 extern int readlink(const char *, char *, size_t);
 extern int fchdir(int);
 #endif