New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
[PATCH] perl5.005_60 cygwin port #411
Comments
From EFifer@sanwaint.comSome minor fixes/cleanup of the Cygwin port. diff -ur perl5.005_60.orig/cygwin/Makefile.SHs Inline Patch--- perl5.005_60.orig/cygwin/Makefile.SHs Sun Aug 01 21:25:26 1999
+++ perl5.005_60/cygwin/Makefile.SHs Tue Aug 10 12:39:49 1999
@@ -132,6 +132,7 @@
;;
*)
$spitshell >>Makefile <<'!NO!SUBS!'
+cwobj = $(obj)
# perl library
$(LIBPERL)$(LIB_EXT): $& perl$(OBJ_EXT) $(cwobj)
diff -ur perl5.005_60.orig/ext/ByteLoader/byterun.h
Inline Patch--- perl5.005_60.orig/ext/ByteLoader/byterun.h Tue Jul 20 18:17:55 1999
+++ perl5.005_60/ext/ByteLoader/byterun.h Fri Aug 06 11:10:39 1999
@@ -151,7 +151,12 @@
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; \
diff -ur perl5.005_60.orig/ext/SDBM_File/sdbm/sdbm.c
Inline Patch--- perl5.005_60.orig/ext/SDBM_File/sdbm/sdbm.c Tue Jul 20 18:17:56 1999
+++ perl5.005_60/ext/SDBM_File/sdbm/sdbm.c Fri Aug 06 11:10:39 1999
@@ -128,7 +128,7 @@
* 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) {
diff -ur perl5.005_60.orig/hints/cygwin.sh perl5.005_60/hints/cygwin.sh
--- perl5.005_60.orig/hints/cygwin.sh Sun Aug 01 21:25:26 1999
+++ perl5.005_60/hints/cygwin.sh Fri Aug 06 16:49:23 1999
@@ -25,6 +25,7 @@
useshrplib='true'
libperl='libperl.a'
dlext='dll'
+dynamic_ext=' '
man1dir=/usr/local/man/man1
man3dir=/usr/local/man/man3
diff -ur perl5.005_60.orig/perl.h perl5.005_60/perl.h
--- perl5.005_60.orig/perl.h Mon Aug 02 21:21:56 1999
+++ perl5.005_60/perl.h Fri Aug 06 11:10:39 1999
@@ -2491,7 +2491,7 @@
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;
diff -ur perl5.005_60.orig/pp_sys.c perl5.005_60/pp_sys.c
--- perl5.005_60.orig/pp_sys.c Mon Aug 02 17:07:41 1999
+++ perl5.005_60/pp_sys.c Fri Aug 06 11:10:39 1999
@@ -4739,7 +4739,7 @@
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();
diff -ur perl5.005_60.orig/t/io/fs.t perl5.005_60/t/io/fs.t
--- perl5.005_60.orig/t/io/fs.t Tue Jul 20 18:18:12 1999
+++ perl5.005_60/t/io/fs.t Fri Aug 06 13:26:49 1999
@@ -10,7 +10,7 @@
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";
diff -ur perl5.005_60.orig/t/io/tell.t perl5.005_60/t/io/tell.t
--- perl5.005_60.orig/t/io/tell.t Tue Jul 20 18:18:12 1999
+++ perl5.005_60/t/io/tell.t Fri Aug 06 13:26:58 1999
@@ -7,7 +7,7 @@
$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;
diff -ur perl5.005_60.orig/t/lib/anydbm.t perl5.005_60/t/lib/anydbm.t
--- perl5.005_60.orig/t/lib/anydbm.t Tue Jul 20 18:18:12 1999
+++ perl5.005_60/t/lib/anydbm.t Fri Aug 06 13:27:07 1999
@@ -13,7 +13,7 @@
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*>;
diff -ur perl5.005_60.orig/t/op/stat.t perl5.005_60/t/op/stat.t
--- perl5.005_60.orig/t/op/stat.t Tue Jul 20 18:18:15 1999
+++ perl5.005_60/t/op/stat.t Fri Aug 06 13:27:40 1999
@@ -13,7 +13,7 @@
$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;
-----------------------------------------------------------------
---
Configured by FiferE at Fri Aug 6 11:18:13 BST 1999. Summary of my perl5 (revision 5.0 version 5 subversion 60) configuration: Locally applied patches: @INC for perl 5.00560: Environment for perl 5.00560: PATH=/opt/cygnus/cygwin-b20/H-i586-cygwin32/bin:/usr/local/bin:/usr/X11R6.4/ |
Migrated from rt.perl.org#1246 (status was 'resolved')
Searchable as RT1246$
The text was updated successfully, but these errors were encountered: