develooper Front page | perl.perl5.porters | Postings from February 2000

[PATCH 5.5640]updates to perlport.pod for VOS and MPE/iX

From:
Prymmer/Kahn
Date:
February 7, 2000 08:34
Subject:
[PATCH 5.5640]updates to perlport.pod for VOS and MPE/iX
Message ID:
Pine.BSF.4.21.0002070832050.24154-100000@shell8.ba.best.com


Enclosed is a patch that incorporates Paul Green's suggested changes to
the 5.5640 perlport.pod (from 
ftp://ftp.stratus.com/pub/vos/customers/perl/vos_perl5.005_63_updates.tar.gz) 
along with mention of the 32 character limit on VOS, as
well as some MPE/ix specific updates (extracted from README.mpeix).


--- perlport.pod.orig	Mon Feb  7 08:02:22 2000
+++ perlport.pod	Mon Feb  7 08:25:13 2000
@@ -870,7 +870,8 @@
 names, because the VOS port of Perl interprets it as a pathname
 delimiting character, VOS files, directories, or links whose names
 contain a slash character cannot be processed.  Such files must be
-renamed before they can be processed by Perl.
+renamed before they can be processed by Perl.  Note that VOS limits
+file names to 32 or fewer characters.
 
 The following C functions are unimplemented on VOS, and any attempt by
 Perl to use them will result in a fatal error message and an immediate
@@ -883,7 +884,7 @@
 you are running on without resorting to loading all of C<%Config> you
 can examine the content of the C<@INC> array like so:
 
-    if (grep(/VOS/, @INC)) {
+    if (grep(/VOS/, $^O)) {
         print "I'm on a Stratus box!\n";
     } else {
         print "I'm not on a Stratus box!\n";
@@ -894,13 +895,13 @@
         print "This box is a Stratus XA/R!\n";
 
     } elsif (grep(/7100/, @INC)) {
-        print "This box is a Stratus HP 7100 or 8000!\n";
+        print "This box is a Stratus HP 7100 or 8xxx!\n";
 
     } elsif (grep(/8000/, @INC)) {
-        print "This box is a Stratus HP 8000!\n";
+        print "This box is a Stratus HP 8xxx!\n";
 
     } else {
-        print "This box is a Stratus 68K...\n";
+        print "This box is a Stratus 68K!\n";
     }
 
 Also see:
@@ -1401,11 +1402,11 @@
 
 =item endpwent
 
-Not implemented. (S<Mac OS>, Win32, VM/ESA)
+Not implemented.  (S<Mac OS>, MPE/iX, VM/ESA, Win32)
 
 =item endgrent
 
-Not implemented. (S<Mac OS>, Win32, VMS, S<RISC OS>, VM/ESA)
+Not implemented.  (S<Mac OS>, MPE/iX, S<RISC OS>, VM/ESA, VMS, Win32)
 
 =item endhostent
 
@@ -1462,7 +1463,7 @@
 
 =item link OLDFILE,NEWFILE
 
-Not implemented. (S<Mac OS>, Win32, VMS, S<RISC OS>)
+Not implemented.  (S<Mac OS>, MPE/iX, S<RISC OS>, VMS, Win32)
 
 Link count not updated because hard links are not quite that hard
 (They are sort of half-way between hard and soft links). (AmigaOS)
@@ -1522,6 +1523,10 @@
 
 Not implemented. (S<Mac OS>, Win32, VMS, S<RISC OS>, VOS)
 
+=item setgrent
+
+Not implemented.  (MPE/iX)
+
 =item setpgrp PID,PGRP
 
 Not implemented. (S<Mac OS>, Win32, VMS, S<RISC OS>, VOS)
@@ -1529,6 +1534,10 @@
 =item setpriority WHICH,WHO,PRIORITY
 
 Not implemented. (S<Mac OS>, Win32, VMS, S<RISC OS>, VOS)
+
+=item setpwent
+
+Not implemented.  (MPE/iX)
 
 =item setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL
End of Patch.

Peter Prymmer
 






nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About