Borland/Win32 tuning

p4raw-id: //depot/perlio@14625

diff --git a/makedef.pl b/makedef.pl
index 3bddf39..178c229 100644 (file)
--- 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 (file)
--- 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 (executable)
--- 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 (file)
--- 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 ""