Skip to content

Commit 994b363

Browse files
committed
Remove AT&T UWIN support
UWIN is a UNIX compatibility layer for Windows. It was last released in 2012 and has been superseded by Cygwin these days.
1 parent 4457f3f commit 994b363

15 files changed

+14
-158
lines changed

MANIFEST

-1
Original file line numberDiff line numberDiff line change
@@ -4752,7 +4752,6 @@ hints/unicos.sh Hints for named architecture
47524752
hints/unicosmk.sh Hints for named architecture
47534753
hints/unisysdynix.sh Hints for named architecture
47544754
hints/utekv.sh Hints for named architecture
4755-
hints/uwin.sh Hints for named architecture
47564755
hints/vos.sh Hints for named architecture
47574756
hv.c Hash value code
47584757
hv.h Hash value header

Porting/checkURL.pl

-1
Original file line numberDiff line numberDiff line change
@@ -242,7 +242,6 @@ sub work {
242242
http://www.leo.org
243243
http://www.madgoat.com
244244
http://www.mks.com/s390/gnu/
245-
http://www.research.att.com/sw/tools/uwin/
246245
http://www.tpj.com/
247246
http://safaribooksonline.com/
248247
http://use.perl.org/~autrijus/journal/25768

README.cygwin

-1
Original file line numberDiff line numberDiff line change
@@ -595,7 +595,6 @@ be kept as clean as possible.
595595
regen_lib.pl - file permissions
596596

597597
plan9/mkfile
598-
hints/uwin.sh
599598
vms/descrip_mms.template
600599
win32/Makefile
601600

ext/POSIX/POSIX.xs

+2-2
Original file line numberDiff line numberDiff line change
@@ -1348,11 +1348,11 @@ static NV_PAYLOAD_TYPE S_getpayload(NV nv)
13481348
#include <fcntl.h>
13491349

13501350
#ifdef HAS_TZNAME
1351-
# if !defined(WIN32) && !defined(__CYGWIN__) && !defined(__UWIN__)
1351+
# if !defined(WIN32) && !defined(__CYGWIN__)
13521352
extern char *tzname[];
13531353
# endif
13541354
#else
1355-
#if !defined(WIN32) && !defined(__UWIN__) || (defined(__MINGW32__) && !defined(tzname))
1355+
#if !defined(WIN32) || (defined(__MINGW32__) && !defined(tzname))
13561356
char *tzname[] = { "" , "" };
13571357
#endif
13581358
#endif

ext/POSIX/lib/POSIX.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ use warnings;
44

55
our ($AUTOLOAD, %SIGRT);
66

7-
our $VERSION = '2.01';
7+
our $VERSION = '2.02';
88

99
require XSLoader;
1010

ext/POSIX/t/posix.t

+1-2
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,6 @@ $| = 1;
2727
$Is_W32 = $^O eq 'MSWin32';
2828
$Is_VMS = $^O eq 'VMS';
2929
$Is_OS2 = $^O eq 'os2';
30-
$Is_UWin = $^O eq 'uwin';
3130
$Is_OS390 = $^O eq 'os390';
3231

3332
my $vms_unix_rpt = 0;
@@ -468,7 +467,7 @@ if ($^O eq 'vos') {
468467
} else {
469468
$| = 0;
470469
# The following line assumes buffered output, which may be not true:
471-
print '@#!*$@(!@#$' unless ($Is_OS2 || $Is_UWin || $Is_OS390 ||
470+
print '@#!*$@(!@#$' unless ($Is_OS2 || $Is_OS390 ||
472471
$Is_VMS ||
473472
(defined $ENV{PERLIO} &&
474473
$ENV{PERLIO} eq 'unix' &&

hints/uwin.sh

-134
This file was deleted.

installman

+1-1
Original file line numberDiff line numberDiff line change
@@ -154,7 +154,7 @@ sub pod2man {
154154
next;
155155
}
156156

157-
if ($^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'uwin' || $^O eq 'cygwin') {
157+
if ($^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'cygwin') {
158158
$manpage =~ s#::#.#g;
159159
}
160160
my $tmp = "${mandir}/${manpage}.tmp";

makedepend_file.SH

-1
Original file line numberDiff line numberDiff line change
@@ -65,7 +65,6 @@ amigaos) cat=/bin/cat ;; # must be absolute
6565
esac
6666
6767
case "$osname" in
68-
uwin) uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g" ;;
6968
os2) uwinfix="-e s,\\\\\\\\,/,g" ;;
7069
cygwin) uwinfix="-e s,\\\\\\\\,/,g" ;;
7170
posix-bc) uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/" ;;

pod/perldelta.pod

+5
Original file line numberDiff line numberDiff line change
@@ -321,6 +321,11 @@ DJGPP is a port of the GNU toolchain to 32-bit x86 systems running
321321
DOS. The last known attempt to build Perl on it was on 5.20, which
322322
only got as far as building miniperl.
323323

324+
=item AT&T UWIN
325+
326+
UWIN is a UNIX compatibility layer for Windows. It was last released
327+
in 2012 and has been superseded by Cygwin these days.
328+
324329
=back
325330

326331
=head2 Platform-Specific Notes

pod/perlport.pod

+2-5
Original file line numberDiff line numberDiff line change
@@ -1036,11 +1036,6 @@ as L<perlcygwin>), L<https://www.cygwin.com/>
10361036

10371037
=item *
10381038

1039-
The U/WIN environment for Win32,
1040-
L<http://www.research.att.com/sw/tools/uwin/>
1041-
1042-
=item *
1043-
10441039
Build instructions for OS/2, L<perlos2>
10451040

10461041
=back
@@ -2362,6 +2357,8 @@ as of 5.36:
23622357

23632358
=item DOS/DJGPP
23642359

2360+
=item AT&T UWIN
2361+
23652362
=back
23662363

23672364
=head2 (Perl 5.20)

t/io/layers.t

-1
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,6 @@ BEGIN {
2020
use Config;
2121

2222
my $DOSISH = $^O =~ /^(?:MSWin32|os2)$/ ? 1 : 0;
23-
$DOSISH = 1 if !$DOSISH and $^O =~ /^uwin/;
2423
my $NONSTDIO = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio' ? 1 : 0;
2524
my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio} ? 1 : 0;
2625
my $UTF8_STDIN;

t/io/tell.t

+1-2
Original file line numberDiff line numberDiff line change
@@ -11,8 +11,7 @@ plan(36);
1111
$TST = 'TST';
1212

1313
$Is_Dosish = ($^O eq 'MSWin32' or
14-
$^O eq 'os2' or $^O eq 'cygwin' or
15-
$^O =~ /^uwin/);
14+
$^O eq 'os2' or $^O eq 'cygwin');
1615

1716
open($TST, 'harness') || (die "Can't open harness");
1817
binmode $TST if $Is_Dosish;

t/loc_tools.pl

-3
Original file line numberDiff line numberDiff line change
@@ -388,9 +388,6 @@ ($;$)
388388
return if (($^O eq 'MSWin32' && !$winxp)
389389
&& $Config{cc} =~ /^(cl|gcc|g\+\+|ici)/i);
390390

391-
# UWIN seems to loop after taint tests, just skip for now
392-
return if ($^O =~ /^uwin/);
393-
394391
my @Locale;
395392
_trylocale("C", \@categories, \@Locale, $allow_incompatible);
396393
_trylocale("POSIX", \@categories, \@Locale, $allow_incompatible);

t/op/chdir.t

+1-3
Original file line numberDiff line numberDiff line change
@@ -29,9 +29,7 @@ use File::Spec::Functions qw(:DEFAULT splitdir rel2abs splitpath);
2929
# Can't use Cwd::abs_path() because it has different ideas about
3030
# path separators than File::Spec.
3131
sub abs_path {
32-
my $d = rel2abs(curdir);
33-
$d = lc($d) if $^O =~ /^uwin/;
34-
$d;
32+
return rel2abs(curdir);
3533
}
3634

3735
my $Cwd = abs_path;

0 commit comments

Comments
 (0)