Greetings,
Enclosed patch affects:
* configure.com - add checks of newer style TCP/IP Services for VMS
hostname variables. While not needed at this point
but they should not hurt anyone and ought to
"future-proof" the procedure just a bit. Add
XS::TypeMap to the hard coded (but CaSe PrEsErViNg)
extension list. This latter addition was all that was
needed to get the t/lib/xs-typemap.t test working OK
with DEC C V6.2 and Compaq C V6.4. FOlks with older
compilers may want to check this module out a bit.
* lib/glob-basic.t - tweaked to work with ODS-2 and ODS-5 file
systems on VMS.
* lib/xs-typemap.t - added test skipping boiler plate so that this test
won't fail on platforms that do not build the
extension. Owing to the mod to configure.com VMS
will no longer need this test skip code, but it
should not hurt other platforms to make the check
and do the right thing(tm).
The two remaining test failures that I am seeing on VMS at this time are
t/lib/sigaction.t number 13 and number 18. In number 13 it appears that
the following variable does get defined to 1:
my $x=defined sigaction(SIGKILL, $newaction, $oldaction);
and that test fails. In the very last test there is no output at all in
either of my AXP VMS V7.1 or V7.2-1 build environments.
I have reason to believe that the long line in configure.com will get
wrappered or buggered up in transit. Hence I enclosed a uuencoded gzip
of the patch as well as clear text:
begin 664 9508.vms.patch.gz
M'XL("%D8R3H"`SDU,#@N=FUS+G!A=&-H`-U66V_:2!1^#K_BU(M$(L?&!D*:
M0;O+Q:9!*H:-Z89*T2)C#V%4XW'LH0FJLK]]C\?0$&X/?5P_>([/G/OE@X#-
M9J`E2XAI$NHW5\;'LL^C&7M<)E3W^4+RW[,*FJ8=$S_K\PCZ7@*5.E1,8IJD
M5H.*89@%554/V)+RK3@!J(!Y35"E>IW+-YN@F3?5RF4=5'F:!C2;!<B?;G%T
MYWQV^N?*E\ZXV'/LT>1VX(Z4"]`CFNJ@**![4:"#=D+#&O1;/6=;9W1K.Z#!
M6F>QFO-41-Z"PN\G/*J@Z`J^3WDHJ$6`7G?+I$Z?4EU1-E&JNU&..L/>\'1F
MIW2.YZ:>RFW?ZWYVA[P4X$A^N=OCWNY;=_;:C-/JV\K%KUER['MWTK*L.]MU
M?]6&^]4M.@,+8\`R*80H<@8KU9O*Y36H>-;QS$:P"-2?<ZSI&WD_9_X<%CQ8
MAC2%@,.*+^'9BP0(#M,E"P-@$9+9!OR9Z7V`9PH1I4$FX`4!M%>"AMP+:))Q
MQ)RE$+)4D()6A&`6"@Q522AT_4B$8$<^#RC821)QZ+*0$O(IY-.,%#0AY(M@
M(2$=+PRA-X!!+*4M^ITB=TCIMPUM#1,^`\L3'M++!48'GA!)"G_W74)<$3">
MDU;G<[I:0!M<J]V?9![!%3SQIDB,Y@GU`G!7*2&WF\):[)%B]*1O7<$0D^X-
MT)[OA0@-_5[?)J3MI;1>4[+%^/^F!V,T/EK%=.'%<EIP*'U?6M#MOUS<2\ON
MX$(/[O0=?F<\E@K9P,IQWE1)'KB4,!RX/90)]@%<E$,V+3]BQ;2IES)?%SGR
M[O-WH'Q?X*R;,(GG50/,&H+Y/IX?4-H#]8V2!/6:(3$=CRU(;\XF6?HI9ICR
M1)QOOB\:/^^],)Y[>/_T?.Y]U>,06B_9>RKIMJ1]27<R.E-\+:AL!N?%?P9`
MGZ"$K2Y=P(\<`7<,2G5O)0WF9B7MYV97N4%U)]*-#;QY+2`&SG@";Y&C)QDZ
MCVD$HTM0_H#B1&D<[]A+JHE\5MYW;)M_L&/;`F?WB"GR%_@C&'52JQ+#/-BQ
M=TI[';LRMCHF^W5IFK);;?M3S\'<M#-_'K`$2J($6&4MR*@&LIL]IX/%*>EZ
MYJ>T+MM!X;R@!^43^K1DB`@=^7>A`6P1XUQL/G,9V=R<\Z-$7P2-4L:CM/0*
M'_Z%\L-T[#Z4U]OW,"W_;'WVQ`GB,2BFKAOP&[C?6$RVEQ6Q.X6("XG=XB%2
?&F^J](4),-:,UVS*L/7+%)$"(:%1^`^6/WD94@D``$RV
`
end
diff -ru perl.9508/configure.com perl/configure.com
--- perl.9508/configure.com Mon Mar 26 21:11:44 2001
+++ perl/configure.com Mon Apr 2 17:21:37 2001
@@ -1932,6 +1932,10 @@
F$TRNLNM("UCX$INET_HOST") .nes. "" .and. -
F$TRNLNM("UCX$INET_DOMAIN") .nes. "" THEN -
myhostname = F$TRNLNM("UCX$INET_HOST") + "." + F$TRNLNM("UCX$INET_DOMAIN")
+$ IF myhostname.eqs."".and. -
+ F$TRNLNM("TCPIP$INET_HOST") .nes. "" .and. -
+ F$TRNLNM("TCPIP$INET_DOMAIN") .nes. "" THEN -
+ myhostname = F$TRNLNM("TCPIP$INET_HOST") + "." + F$TRNLNM("TCPIP$INET_DOMAIN")
$ IF myhostname.eqs."" THEN myhostname = F$TRNLNM("TCPWARE_DOMAINNAME")
$ IF myhostname.eqs."" THEN myhostname = F$TRNLNM("NEWS_ADDRESS")
$ IF myhostname.eqs."" THEN myhostname = F$TRNLNM("SYS$NODE") - "::"
@@ -2392,7 +2396,7 @@
$ echo ""
$ echo "Which modules do you want to build into perl?"
$! we need to add Byteloader to this list:
-$ dflt = "re Fcntl Encode Errno File::Glob Filter::Util::Call IO Opcode Devel::Peek
Devel::DProf Data::Dumper attrs VMS::Stdio VMS::DCLsym B SDBM_File Storable Thread
Sys::Hostname Digest::MD5 PerlIO::Scalar MIME::Base64"
+$ dflt = "re Fcntl Encode Errno File::Glob Filter::Util::Call IO Opcode Devel::Peek
+Devel::DProf Data::Dumper attrs VMS::Stdio VMS::DCLsym B SDBM_File Storable Thread
+Sys::Hostname Digest::MD5 PerlIO::Scalar MIME::Base64 XS::Typemap"
$ IF ccname .EQS. "DEC" .OR. ccname .EQS. "CXX"
$ THEN
$ dflt = dflt + " POSIX"
diff -ru perl.9508/t/lib/glob-basic.t perl/t/lib/glob-basic.t
--- perl.9508/t/lib/glob-basic.t Fri Mar 30 14:44:44 2001
+++ perl/t/lib/glob-basic.t Mon Apr 2 17:21:44 2001
@@ -140,6 +140,10 @@
@f_names = sort(@f_names);
@f_alpha = qw(aY.pl Ax.pl bY.pl Bx.pl cY.pl Cx.pl);
}
+if ($^O eq 'VMS') {
+ @f_alpha = qw(ax.pl ay.pl bx.pl by.pl cx.pl cy.pl);
+ @f_names = @f_alpha;
+}
for (@f_names) {
open T, "> $_";
diff -ru perl.9508/t/lib/xs-typemap.t perl/t/lib/xs-typemap.t
--- perl.9508/t/lib/xs-typemap.t Wed Mar 28 06:43:01 2001
+++ perl/t/lib/xs-typemap.t Mon Apr 2 17:21:50 2001
@@ -1,6 +1,11 @@
BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bXS\/Typemap\b/) {
+ print "1..0 # Skip: XS::Typemap was not built\n";
+ exit 0;
+ }
}
use Test;
End of Patch.
OK to go ahead and test foolperl on such esoteric platforms?
Peter Prymmer
