diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2011-09-10 17:21:58 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2011-09-10 18:16:59 +0100 |
| commit | 378eeda70cc27194f0f718b4c65b8ba147259910 (patch) | |
| tree | 26c3c6b5adb9c5027a78c6143cdced30ce57a9d4 /ext | |
| parent | 528bd3ce854c33aaf668dd3aa007a60a4994edac (diff) | |
| download | perl-378eeda70cc27194f0f718b4c65b8ba147259910.tar.gz | |
The Borland Chainsaw Massacre
Remove support for the Borland C++ compiler on Win32, as agreed here:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2011-09/msg00034.html
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 10 | ||||
| -rw-r--r-- | ext/IPC-Open3/t/IPC-Open2.t | 6 | ||||
| -rw-r--r-- | ext/IPC-Open3/t/IPC-Open3.t | 4 | ||||
| -rw-r--r-- | ext/POSIX/POSIX.xs | 3 | ||||
| -rw-r--r-- | ext/POSIX/lib/POSIX.pm | 2 |
5 files changed, 8 insertions, 17 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 56bc815002..7cd7a249d2 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -2,7 +2,7 @@ use ExtUtils::MakeMaker; use Config; use strict; -our $VERSION = "1.13"; +our $VERSION = "1.14"; my %err = (); my %wsa = (); @@ -184,13 +184,7 @@ sub get_files { die "Cannot exec $cpp"; } - my $pat; - if (($IsMSWin32 || $^O eq 'NetWare') and $Config{cc} =~ /^bcc/i) { - $pat = '^/\*\s+(.+)\s+\d+\s*:\s+\*/'; - } - else { - $pat = '^#\s*(?:line)?\s*\d+\s+"([^"]+)"'; - } + my $pat = '^#\s*(?:line)?\s*\d+\s+"([^"]+)"'; while(<CPPO>) { if ($^O eq 'os2' or $IsMSWin32 or $^O eq 'NetWare') { if (/$pat/o) { diff --git a/ext/IPC-Open3/t/IPC-Open2.t b/ext/IPC-Open3/t/IPC-Open2.t index fecb209663..e0be5dbf52 100644 --- a/ext/IPC-Open3/t/IPC-Open2.t +++ b/ext/IPC-Open3/t/IPC-Open2.t @@ -4,10 +4,10 @@ use Config; BEGIN { require Test::More; if (!$Config{'d_fork'} - # open2/3 supported on win32 (but not Borland due to CRT bugs) - && (($^O ne 'MSWin32' && $^O ne 'NetWare') || $Config{'cc'} =~ /^bcc/i)) + # open2/3 supported on win32 + && $^O ne 'MSWin32' && $^O ne 'NetWare') { - Test::More->import(skip_all => 'open2/3 not available with MSWin32+Netware+cc=bcc'); + Test::More->import(skip_all => 'open2/3 not available with MSWin32+Netware'); exit 0; } # make warnings fatal diff --git a/ext/IPC-Open3/t/IPC-Open3.t b/ext/IPC-Open3/t/IPC-Open3.t index 0ecb841b13..7b85b825e2 100644 --- a/ext/IPC-Open3/t/IPC-Open3.t +++ b/ext/IPC-Open3/t/IPC-Open3.t @@ -3,8 +3,8 @@ BEGIN { require Config; import Config; if (!$Config{'d_fork'} - # open2/3 supported on win32 (but not Borland due to CRT bugs) - && (($^O ne 'MSWin32' && $^O ne 'NetWare') || $Config{'cc'} =~ /^bcc/i)) + # open2/3 supported on win32 + && $^O ne 'MSWin32' && $^O ne 'NetWare') { print "1..0\n"; exit 0; diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 8dc1f5a308..41f53d9df9 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -160,9 +160,6 @@ char *tzname[] = { "" , "" }; # define ttyname(a) (char*)not_here("ttyname") # define sigset_t long # define pid_t long -# ifdef __BORLANDC__ -# define tzname _tzname -# endif # ifdef _MSC_VER # define mode_t short # endif diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm index 75785f81e9..149ad326a5 100644 --- a/ext/POSIX/lib/POSIX.pm +++ b/ext/POSIX/lib/POSIX.pm @@ -4,7 +4,7 @@ use warnings; our ($AUTOLOAD, %SIGRT); -our $VERSION = '1.25'; +our $VERSION = '1.26'; require XSLoader; |