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.
Perl · Nov 2, 2021 · 994b363 · 994b363
1 parent 4457f3f
commit 994b363
Show file tree

Hide file tree

Showing 15 changed files with 14 additions and 158 deletions.
diff --git a/MANIFEST b/MANIFEST
@@ -4752,7 +4752,6 @@ hints/unicos.sh			Hints for named architecture
 hints/unicosmk.sh		Hints for named architecture
 hints/unisysdynix.sh		Hints for named architecture
 hints/utekv.sh			Hints for named architecture
-hints/uwin.sh			Hints for named architecture
 hints/vos.sh			Hints for named architecture
 hv.c				Hash value code
 hv.h				Hash value header

diff --git a/Porting/checkURL.pl b/Porting/checkURL.pl
@@ -242,7 +242,6 @@ sub work {
 http://www.leo.org
 http://www.madgoat.com
 http://www.mks.com/s390/gnu/
-http://www.research.att.com/sw/tools/uwin/
 http://www.tpj.com/
 http://safaribooksonline.com/
 http://use.perl.org/~autrijus/journal/25768

diff --git a/README.cygwin b/README.cygwin
@@ -595,7 +595,6 @@ be kept as clean as possible.
  regen_lib.pl          - file permissions
 
  plan9/mkfile
- hints/uwin.sh
  vms/descrip_mms.template
  win32/Makefile
 

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
@@ -1348,11 +1348,11 @@ static NV_PAYLOAD_TYPE S_getpayload(NV nv)
 #include <fcntl.h>
 
 #ifdef HAS_TZNAME
-#  if !defined(WIN32) && !defined(__CYGWIN__) && !defined(__UWIN__)
+#  if !defined(WIN32) && !defined(__CYGWIN__)
 extern char *tzname[];
 #  endif
 #else
-#if !defined(WIN32) && !defined(__UWIN__) || (defined(__MINGW32__) && !defined(tzname))
+#if !defined(WIN32) || (defined(__MINGW32__) && !defined(tzname))
 char *tzname[] = { "" , "" };
 #endif
 #endif

diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm
@@ -4,7 +4,7 @@ use warnings;
 
 our ($AUTOLOAD, %SIGRT);
 
-our $VERSION = '2.01';
+our $VERSION = '2.02';
 
 require XSLoader;
 

diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t
@@ -27,7 +27,6 @@ $| = 1;
 $Is_W32     = $^O eq 'MSWin32';
 $Is_VMS     = $^O eq 'VMS';
 $Is_OS2     = $^O eq 'os2';
-$Is_UWin    = $^O eq 'uwin';
 $Is_OS390   = $^O eq 'os390';
 
 my $vms_unix_rpt = 0;
@@ -468,7 +467,7 @@ if ($^O eq 'vos') {
 } else {
  $| = 0;
  # The following line assumes buffered output, which may be not true:
- print '@#!*$@(!@#$' unless ($Is_OS2 || $Is_UWin || $Is_OS390 ||
+ print '@#!*$@(!@#$' unless ($Is_OS2 || $Is_OS390 ||
                             $Is_VMS ||
 			    (defined $ENV{PERLIO} &&
 			     $ENV{PERLIO} eq 'unix' &&

diff --git a/hints/uwin.sh b/hints/uwin.sh
diff --git a/installman b/installman
@@ -154,7 +154,7 @@ sub pod2man {
 	    next;
 	}
 
-	if ($^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'uwin' || $^O eq 'cygwin') {
+	if ($^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'cygwin') {
             $manpage =~ s#::#.#g;
 	}
         my $tmp = "${mandir}/${manpage}.tmp";

diff --git a/makedepend_file.SH b/makedepend_file.SH
@@ -65,7 +65,6 @@ amigaos) cat=/bin/cat ;; # must be absolute
 esac
 
     case "$osname" in
-    uwin)     uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g" ;;
     os2)      uwinfix="-e s,\\\\\\\\,/,g" ;;
     cygwin)   uwinfix="-e s,\\\\\\\\,/,g" ;;
     posix-bc) uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/" ;;

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
@@ -321,6 +321,11 @@ DJGPP is a port of the GNU toolchain to 32-bit x86 systems running
 DOS.  The last known attempt to build Perl on it was on 5.20, which
 only got as far as building miniperl.
 
+=item AT&T UWIN
+
+UWIN is a UNIX compatibility layer for Windows.  It was last released
+in 2012 and has been superseded by Cygwin these days.
+
 =back
 
 =head2 Platform-Specific Notes

diff --git a/pod/perlport.pod b/pod/perlport.pod
@@ -1036,11 +1036,6 @@ as L<perlcygwin>), L<https://www.cygwin.com/>
 
 =item *
 
-The U/WIN environment for Win32,
-L<http://www.research.att.com/sw/tools/uwin/>
-
-=item *
-
 Build instructions for OS/2, L<perlos2>
 
 =back
@@ -2362,6 +2357,8 @@ as of 5.36:
 
 =item DOS/DJGPP
 
+=item AT&T UWIN
+
 =back
 
 =head2 (Perl 5.20)

diff --git a/t/io/layers.t b/t/io/layers.t
@@ -20,7 +20,6 @@ BEGIN {
 use Config;
 
 my $DOSISH    = $^O =~ /^(?:MSWin32|os2)$/ ? 1 : 0;
-   $DOSISH    = 1 if !$DOSISH and $^O =~ /^uwin/;
 my $NONSTDIO  = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio'     ? 1 : 0;
 my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio}      ? 1 : 0;
 my $UTF8_STDIN;

diff --git a/t/io/tell.t b/t/io/tell.t
@@ -11,8 +11,7 @@ plan(36);
 $TST = 'TST';
 
 $Is_Dosish = ($^O eq 'MSWin32' or
-              $^O eq 'os2' or $^O eq 'cygwin' or
-              $^O =~ /^uwin/);
+              $^O eq 'os2' or $^O eq 'cygwin');
 
 open($TST, 'harness') || (die "Can't open harness");
 binmode $TST if $Is_Dosish;

diff --git a/t/loc_tools.pl b/t/loc_tools.pl
@@ -388,9 +388,6 @@ ($;$)
     return if (($^O eq 'MSWin32' && !$winxp)
                 && $Config{cc} =~ /^(cl|gcc|g\+\+|ici)/i);
 
-    # UWIN seems to loop after taint tests, just skip for now
-    return if ($^O =~ /^uwin/);
-
     my @Locale;
     _trylocale("C", \@categories, \@Locale, $allow_incompatible);
     _trylocale("POSIX", \@categories, \@Locale, $allow_incompatible);

diff --git a/t/op/chdir.t b/t/op/chdir.t
@@ -29,9 +29,7 @@ use File::Spec::Functions qw(:DEFAULT splitdir rel2abs splitpath);
 # Can't use Cwd::abs_path() because it has different ideas about
 # path separators than File::Spec.
 sub abs_path {
-    my $d = rel2abs(curdir);
-    $d = lc($d) if $^O =~ /^uwin/;
-    $d;
+    return rel2abs(curdir);
 }
 
 my $Cwd = abs_path;