From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 12 Jul 1998 06:38:27 +0000 (+0000)
Subject: various tweaks for PERL_OBJECT build & test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d9b2e3c6958e5856b03a00694b8ae02817ed002;p=p5sagit%2Fp5-mst-13.2.git

various tweaks for PERL_OBJECT build & test

p4raw-id: //depot/perl@1450
---

diff --git a/globals.c b/globals.c
index 451b461..ba4d872 100644
--- a/globals.c
+++ b/globals.c
@@ -727,6 +727,7 @@ OP * (CPERLscope(*check)[]) _((OP *op)) = {
 	ck_null,	/* readline */
 	ck_null,	/* rcatline */
 	ck_fun,		/* regcmaybe */
+	ck_fun,		/* regcreset */
 	ck_null,	/* regcomp */
 	ck_match,	/* match */
 	ck_null,	/* subst */
@@ -1076,6 +1077,7 @@ OP * (CPERLscope(*ppaddr)[])(ARGSproto) = {
 	pp_readline,
 	pp_rcatline,
 	pp_regcmaybe,
+	pp_regcreset,
 	pp_regcomp,
 	pp_match,
 	pp_subst,
diff --git a/iperlsys.h b/iperlsys.h
index 2febe6e..ebffcc3 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -473,7 +473,7 @@ public:
 			     int pmode, int &err) = 0;	
     virtual int		Read(int handle, void *buffer,
 			     unsigned int count, int &err) = 0;
-    virtual int		Rename(const char *oldname,
+    virtual int		Rename(const char *oname,
 			       const char *newname, int &err) = 0;
     virtual int		Setmode(int handle, int mode, int &err) = 0;
     virtual int		NameStat(const char *path,
@@ -520,8 +520,8 @@ public:
 	piLIO->Open((file), (flag), (perm), ErrorNo())
 #define PerlLIO_read(fd, buf, count)					\
 	piLIO->Read((fd), (buf), (count), ErrorNo())
-#define PerlLIO_rename(oldname, newname)				\
-	piLIO->Rename((oldname), (newname), ErrorNo())
+#define PerlLIO_rename(oname, newname)					\
+	piLIO->Rename((oname), (newname), ErrorNo())
 #define PerlLIO_setmode(fd, mode)					\
 	piLIO->Setmode((fd), (mode), ErrorNo())
 #define PerlLIO_stat(name, buf)						\
diff --git a/win32/GenCAPI.pl b/win32/GenCAPI.pl
index 8f597a9..e220384 100644
--- a/win32/GenCAPI.pl
+++ b/win32/GenCAPI.pl
@@ -870,9 +870,9 @@ int          _win32_stat(const char *name,struct stat *sbufptr)
     return pPerl->piLIO->NameStat(name, sbufptr, ErrorNo());
 }
 
-int          _win32_rename(const char *oldname, const char *newname)
+int          _win32_rename(const char *oname, const char *newname)
 {
-    return pPerl->piLIO->Rename(oldname, newname, ErrorNo());
+    return pPerl->piLIO->Rename(oname, newname, ErrorNo());
 }
 
 int          _win32_setmode(int fd, int mode)
diff --git a/win32/Makefile b/win32/Makefile
index 4db5414..66d2a33 100644
--- a/win32/Makefile
+++ b/win32/Makefile
@@ -66,8 +66,8 @@ INST_VER	= \5.00471
 
 #
 # if you have the source for des_fcrypt(), uncomment this and make sure the
-# file exists (see README.win32).  File should be located at the perl
-# top level directory.
+# file exists (see README.win32).  File should be located in the same
+# directory as this file.
 #
 #CRYPT_SRC	= des_fcrypt.c
 
@@ -351,10 +351,6 @@ MICROCORE_SRC	=		\
 		..\universal.c	\
 		..\util.c
 
-!IF "$(CRYPT_SRC)" != ""
-MICROCORE_SRC	= $(MICROCORE_SRC) ..\$(CRYPT_SRC)
-!ENDIF
-
 !IF "$(PERL_MALLOC)" == "define"
 EXTRACORE_SRC	= $(EXTRACORE_SRC) ..\malloc.c
 !ENDIF
@@ -371,13 +367,17 @@ WIN32_SRC	=		\
 WIN32_SRC	= $(WIN32_SRC) .\win32thread.c 
 !ENDIF
 
+!IF "$(CRYPT_SRC)" != ""
+WIN32_SRC	= $(WIN32_SRC) .\$(CRYPT_SRC)
+!ENDIF
+
 PERL95_SRC	=		\
 		perl95.c	\
 		win32mt.c	\
 		win32sckmt.c
 
 !IF "$(CRYPT_SRC)" != ""
-PERL95_SRC	= $(PERL95_SRC) ..\$(CRYPT_SRC)
+PERL95_SRC	= $(PERL95_SRC) .\$(CRYPT_SRC)
 !ENDIF
 
 DLL_SRC		= $(DYNALOADER).c
diff --git a/win32/makefile.mk b/win32/makefile.mk
index 89477da..32f3a3d 100644
--- a/win32/makefile.mk
+++ b/win32/makefile.mk
@@ -73,8 +73,8 @@ CCTYPE		*= BORLAND
 
 #
 # if you have the source for des_fcrypt(), uncomment this and make sure the
-# file exists (see README.win32).  File should be located at the perl
-# top level directory.
+# file exists (see README.win32).  File should be located in the same
+# directory as this file.
 #
 #CRYPT_SRC	*= des_fcrypt.c
 
@@ -465,10 +465,6 @@ MICROCORE_SRC	=		\
 		..\universal.c	\
 		..\util.c
 
-.IF "$(CRYPT_SRC)" != ""
-MICROCORE_SRC	+= ..\$(CRYPT_SRC)
-.ENDIF
-
 .IF "$(PERL_MALLOC)" == "define"
 EXTRACORE_SRC	+= ..\malloc.c
 .ENDIF
@@ -485,13 +481,17 @@ WIN32_SRC	=		\
 WIN32_SRC	+= .\win32thread.c 
 .ENDIF
 
+.IF "$(CRYPT_SRC)" != ""
+WIN32_SRC	+= .\$(CRYPT_SRC)
+.ENDIF
+
 PERL95_SRC	=		\
 		perl95.c	\
 		win32mt.c	\
 		win32sckmt.c
 
 .IF "$(CRYPT_SRC)" != ""
-PERL95_SRC	+= ..\$(CRYPT_SRC)
+PERL95_SRC	+= .\$(CRYPT_SRC)
 .ENDIF
 
 DLL_SRC		= $(DYNALOADER).c
diff --git a/win32/win32.c b/win32/win32.c
index 24f42f7..7418fca 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -1732,18 +1732,18 @@ win32_pclose(FILE *pf)
 }
 
 DllExport int
-win32_rename(const char *oldname, const char *newname)
+win32_rename(const char *oname, const char *newname)
 {
     char szNewWorkName[MAX_PATH+1];
     WIN32_FIND_DATA fdOldFile, fdNewFile;
     HANDLE handle;
     char *ptr;
 
-    if ((strchr(oldname, '\\') || strchr(oldname, '/'))
+    if ((strchr(oname, '\\') || strchr(oname, '/'))
 	&& strchr(newname, '\\') == NULL
 	&& strchr(newname, '/') == NULL)
     {
-	strcpy(szNewWorkName, oldname);
+	strcpy(szNewWorkName, oname);
 	if ((ptr = strrchr(szNewWorkName, '\\')) == NULL)
 	    ptr = strrchr(szNewWorkName, '/');
 	strcpy(++ptr, newname);
@@ -1751,14 +1751,14 @@ win32_rename(const char *oldname, const char *newname)
     else
 	strcpy(szNewWorkName, newname);
 
-    if (stricmp(oldname, szNewWorkName) != 0) {
+    if (stricmp(oname, szNewWorkName) != 0) {
 	// check that we're not being fooled by relative paths
 	// and only delete the new file
 	//  1) if it exists
 	//  2) it is not the same file as the old file
 	//  3) old file exist
 	// GetFullPathName does not return the long file name on some systems
-	handle = FindFirstFile(oldname, &fdOldFile);
+	handle = FindFirstFile(oname, &fdOldFile);
 	if (handle != INVALID_HANDLE_VALUE) {
 	    FindClose(handle);
     
@@ -1778,7 +1778,7 @@ win32_rename(const char *oldname, const char *newname)
 	    }
 	}
     }
-    return rename(oldname, newname);
+    return rename(oname, newname);
 }
 
 DllExport int
diff --git a/win32/win32iop.h b/win32/win32iop.h
index a83ebd5..cf2bd75 100644
--- a/win32/win32iop.h
+++ b/win32/win32iop.h
@@ -74,7 +74,7 @@ DllExport  int  	win32_stat(const char *name,struct stat *sbufptr);
 DllExport  int		win32_pipe( int *phandles, unsigned int psize, int textmode );
 DllExport  FILE*	win32_popen( const char *command, const char *mode );
 DllExport  int		win32_pclose( FILE *pf);
-DllExport  int		win32_rename( const char *oldname, const char *newname);
+DllExport  int		win32_rename( const char *oname, const char *newname);
 DllExport  int		win32_setmode( int fd, int mode);
 DllExport  long		win32_lseek( int fd, long offset, int origin);
 DllExport  long		win32_tell( int fd);