From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 10 Feb 2002 18:02:21 +0000 (+0000)
Subject: Borland/Win32 tuning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63bdf6c46bdb41db47bb6419a9ba900979734ce0;p=p5sagit%2Fp5-mst-13.2.git

Borland/Win32 tuning

p4raw-id: //depot/perlio@14625
---

diff --git a/makedef.pl b/makedef.pl
index 3bddf39..178c229 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -652,6 +652,7 @@ my @layer_syms = qw(
 			 PerlIO_allocate
 			 PerlIO_arg_fetch
 			 PerlIO_define_layer
+	                 PerlIO_modestr
 			 PerlIO_pending
 			 PerlIO_push
 			 PerlIO_sv_dup
diff --git a/perlio.sym b/perlio.sym
index a68382e..66a3d1b 100644
--- a/perlio.sym
+++ b/perlio.sym
@@ -26,3 +26,4 @@ PerlIO_setpos
 PerlIO_getpos
 PerlIO_vsprintf
 PerlIO_sprintf
+PerlIO_modestr
\ No newline at end of file
diff --git a/t/op/stat.t b/t/op/stat.t
index 312dd1d..791f7e5 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -380,7 +380,7 @@ my @r = \stat(".");
 is(scalar @r, 13,   'stat returns full 13 elements');
 
 SKIP: {
-    skip "No lstat", 2 unless $Config{d_lstat};
+    skip "No lstat", 4 unless $Config{d_lstat};
 
     stat $0;
     eval { lstat _ };
diff --git a/win32/config_H.bc b/win32/config_H.bc
index 2a60f05..a8b039b 100644
--- a/win32/config_H.bc
+++ b/win32/config_H.bc
@@ -13,7 +13,7 @@
 /*
  * Package name      : perl5
  * Source directory  : 
- * Configuration time: Sat Jan 26 22:15:41 2002
+ * Configuration time: Tue Jan 29 08:04:05 2002
  * Configured by     : nick
  * Target system     : 
  */
@@ -1114,7 +1114,7 @@
  *	This symbol is intended to be used along with CPPRUN in the same manner
  *	symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
  */
-#define CPPSTDIN "cpp32 -oCON"
+#define CPPSTDIN "cppstdin"
 #define CPPMINUS ""
 #define CPPRUN "cpp32 -oCON"
 #define CPPLAST ""