[ID 19990821.001] [PATCH] perl5.005_60 cygwin port
Fifer, Eric [Fri, 20 Aug 1999 15:37:27 +0000 (16:37 +0100)]
To: perl5-porters@perl.org
Message-Id: <8A160D637356D311BC4300600849EC8122E217@POST>

p4raw-id: //depot/cfgperl@4066

cygwin/Makefile.SHs
ext/ByteLoader/byterun.h
ext/SDBM_File/sdbm/sdbm.c
hints/cygwin.sh
perl.h
pp_sys.c
t/io/fs.t
t/io/tell.t
t/lib/anydbm.t
t/op/stat.t

index e6a604d..4a37907 100644 (file)
@@ -132,6 +132,7 @@ miniperl: $& miniperlmain$(OBJ_EXT) $(LIBPERL)s$(LIB_EXT)
        ;;
 *)
 $spitshell >>Makefile <<'!NO!SUBS!'
+cwobj = $(obj)
 
 # perl library
 $(LIBPERL)$(LIB_EXT): $& perl$(OBJ_EXT) $(cwobj)
index 31a9033..9634688 100644 (file)
@@ -151,7 +151,12 @@ enum {
     OPt_COP            /* 10 */
 };
 
-EXT void byterun(pTHXo_ struct bytestream bs);
+#if defined(CYGWIN)
+extern
+#else
+EXT
+#endif
+void byterun(pTHXo_ struct bytestream bs);
 
 #define INIT_SPECIALSV_LIST STMT_START { \
        PL_specialsv_list[0] = Nullsv; \
index c1e2e4a..499871d 100644 (file)
@@ -128,7 +128,7 @@ sdbm_prep(char *dirname, char *pagname, int flags, int mode)
  * open the files in sequence, and stat the dirfile.
  * If we fail anywhere, undo everything, return NULL.
  */
-#if defined(OS2) || defined(MSDOS) || defined(WIN32)
+#if defined(OS2) || defined(MSDOS) || defined(WIN32) || defined(CYGWIN)
        flags |= O_BINARY;
 #      endif
        if ((db->pagf = open(pagname, flags, mode)) > -1) {
index e6d466b..23d055f 100644 (file)
@@ -25,6 +25,7 @@ lddlflags='-L/usr/local/lib'
 useshrplib='true'
 libperl='libperl.a'
 dlext='dll'
+dynamic_ext=' '
 
 man1dir=/usr/local/man/man1
 man3dir=/usr/local/man/man3
diff --git a/perl.h b/perl.h
index 0674771..613f84f 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2576,7 +2576,7 @@ struct perl_vars {
 EXT struct perl_vars PL_Vars;
 EXT struct perl_vars *PL_VarsPtr INIT(&PL_Vars);
 #else /* PERL_CORE */
-#if !defined(__GNUC__) || !(defined(WIN32) || defined(CYGWIN))
+#if !defined(__GNUC__) || !defined(WIN32)
 EXT
 #endif /* WIN32 */
 struct perl_vars *PL_VarsPtr;
index 8c0820f..3149f24 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4740,7 +4740,7 @@ PP(pp_gpwent)
 PP(pp_spwent)
 {
     djSP;
-#if defined(HAS_PASSWD) && defined(HAS_SETPWENT) && !defined(CYGWIN)
+#if defined(HAS_PASSWD) && defined(HAS_SETPWENT)
     setpwent();
 #   ifdef HAS_SETSPENT
     setspent();
index b74c9ca..087021b 100755 (executable)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -10,7 +10,7 @@ BEGIN {
 use Config;
 
 $Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
-             $^O eq 'os2' or $^O eq 'mint' or $^O =~ /cygwin/);
+             $^O eq 'os2' or $^O eq 'mint');
 
 print "1..28\n";
 
index 8df0228..31287e1 100755 (executable)
@@ -7,7 +7,7 @@ print "1..21\n";
 $TST = 'tst';
 
 $Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
-             $^O eq 'os2' or $^O eq 'mint' or $^O =~ /cygwin/);
+             $^O eq 'os2' or $^O eq 'mint');
 
 open($TST, '../Configure') || (die "Can't open ../Configure");
 binmode $TST if $Is_Dosish;
index ed83a56..9efe5e9 100755 (executable)
@@ -13,7 +13,7 @@ use Fcntl;
 print "1..12\n";
 
 $Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' or $^O eq 'dos' or
-             $^O eq 'os2' or $^O eq 'mint' or $^O =~ /cygwin/);
+             $^O eq 'os2' or $^O eq 'mint');
 
 unlink <Op_dbmx*>;
 
index 60c70f2..0af55bb 100755 (executable)
@@ -13,7 +13,7 @@ print "1..58\n";
 
 $Is_MSWin32 = $^O eq 'MSWin32';
 $Is_Dos = $^O eq 'dos';
-$Is_Dosish = $Is_Dos || $^O eq 'os2' || $Is_MSWin32 || $^O =~ /cygwin/;
+$Is_Dosish = $Is_Dos || $^O eq 'os2' || $Is_MSWin32;
 chop($cwd = ($Is_MSWin32 ? `cd` : `pwd`));
 
 $DEV = `ls -l /dev` unless $Is_Dosish;