Re: Change 34082: Affected files ...
On Tue, Jun 24, 2008 at 03:45:08AM -0700, Nicholas Clark wrote: Change 34082 by [EMAIL PROTECTED] on 2008/06/24 10:30:46 Oops, that should read: Integrate: [ 33718] Integrate: (only the ext/IPC/SysV/SysV.xs part of) [ 32703] Subject: [PATCH] ext/ consting From: Robin Barker [EMAIL PROTECTED] Message-ID: [EMAIL PROTECTED] Date: Sat, 22 Dec 2007 00:39:47 - [ 32709] Upgrade to IPC::SysV 1.99_07 [ 33719] Integrate: [ 32780] Upgrade to IPC::SysV 2.00 Nicholas Clark
Change 34083: URL for End-Of-Life and OS/Arch documentation
Change 34083 by [EMAIL PROTECTED] on 2008/06/24 11:58:50 URL for End-Of-Life and OS/Arch documentation Small enhancements Affected files ... ... //depot/perl/README.hpux#62 edit Differences ... //depot/perl/README.hpux#62 (text) Index: perl/README.hpux --- perl/README.hpux#61~33832~ 2008-05-16 01:47:59.0 -0700 +++ perl/README.hpux2008-06-24 04:58:50.0 -0700 @@ -43,7 +43,15 @@ Application DVD/CD's are available on http://www.software.hp.com/cgi-bin/swdepot_parser.cgi/cgi/displayProductInfo.pl?productNumber=PERL for both PA-RISC and IPF (Itanium Processor Family). They are built -with the HP ANSI-C compiler. +with the HP ANSI-C compiler by ActiveState. + +To see what version is included on the DVD (assumed here to be mounted +on /cdrom), issue this command: + + # swlist -s /cdrom perl + # perl D.5.8.8.B 5.8.8 Perl Programming Language +perl.Perl5-32 D.5.8.8.B 32-bit 5.8.8 Perl Programming Language with Extensions +perl.Perl5-64 D.5.8.8.B 64-bit 5.8.8 Perl Programming Language with Extensions =head2 Using perl from HP's porting centre @@ -252,6 +260,23 @@ ia64 hp server rx2600 # /usr/contrib/bin/machinfo +=head2 HP-UX versions + +Not all architectures (PA = PA-RISC, IPF = Itanium Processor Family) +support all versions of HP-UX, here is a short list + + HP-UX version Kernel Architecture + - -- + 10.20 32 bit PA + 11.00 32/64 PA + 11.11 11i v1 32/64 PA + 11.22 11i v2 64IPF + 11.23 11i v2 64 PA IPF + 11.31 11i v3 64 PA IPF + +See for the full list of hardware/OS support and expected end-of-life +http://www.hp.com/go/hpuxservermatrix + =head2 Building Dynamic Extensions on HP-UX HP-UX supports dynamically loadable libraries (shared libraries). @@ -390,10 +415,11 @@ Above mentioned distributions are depots. H.Merijn Brand has made prebuilt gcc binaries available on http://mirrors.develooper.com/hpux/ and/or -http://www.cmve.net/~merijn/ for HP-UX 10.20, HP-UX 11.00, and HP-UX 11.11 -(HP-UX 11i) in both 32- and 64-bit versions. These are bzipped tar archives -that also include recent GNU binutils and GNU gdb. Read the instructions -on that page to rebuild gcc using itself. +http://www.cmve.net/~merijn/ for HP-UX 10.20, HP-UX 11.00, HP-UX 11.11 +(HP-UX 11i v1), and HP-UX 11.23 (HP-UX 11i v2) in both 32- and 64-bit +versions. These are bzipped tar archives that also include recent GNU +binutils and GNU gdb. Read the instructions on that page to rebuild gcc +using itself. On PA-RISC you need a different compiler for 32-bit applications and for 64-bit applications. On PA-RISC, 32-bit objects and 64-bit objects do @@ -629,6 +655,6 @@ =head1 DATE -Version 0.8.2: 2008-05-16 +Version 0.8.3: 2008-06-24 =cut End of Patch.
Change 34084: more incorrect variable reported in uninitialized value warnings
Change 34084 by [EMAIL PROTECTED] on 2008/06/24 13:30:23
more incorrect variable reported in uninitialized value warnings
(the ones that change #34077 missed). It also degrades some print
warnings - ie variable names no longer displayed.
Affected files ...
... //depot/perl/sv.c#1543 edit
... //depot/perl/t/lib/warnings/9uninit#31 edit
Differences ...
//depot/perl/sv.c#1543 (text)
Index: perl/sv.c
--- perl/sv.c#1542~34077~ 2008-06-22 12:05:31.0 -0700
+++ perl/sv.c 2008-06-24 06:30:23.0 -0700
@@ -12585,6 +12585,7 @@
case OP_PRTF:
case OP_PRINT:
case OP_SAY:
+ match = 1; /* print etc can return undef on defined args */
/* skip filehandle as it can't produce 'undef' warning */
o = cUNOPx(obase)-op_first;
if ((obase-op_flags OPf_STACKED) o-op_type == OP_PUSHMARK)
@@ -12662,6 +12663,12 @@
case OP_SORT:
case OP_CALLER:
case OP_DOFILE:
+case OP_PROTOTYPE:
+case OP_NCMP:
+case OP_SMARTMATCH:
+case OP_UNPACK:
+case OP_SYSOPEN:
+case OP_SYSSEEK:
match = 1;
goto do_op;
//depot/perl/t/lib/warnings/9uninit#31 (text)
Index: perl/t/lib/warnings/9uninit
--- perl/t/lib/warnings/9uninit#30~34077~ 2008-06-22 12:05:31.0
-0700
+++ perl/t/lib/warnings/9uninit 2008-06-24 06:30:23.0 -0700
@@ -282,13 +282,13 @@
print STDERR $m1, $g1, $ga[1],$m2;
print STDERR , $ga[1],;
EXPECT
-Use of uninitialized value $ga[1000] in print at - line 5.
-Use of uninitialized value $ga[1000] in print at - line 6.
+Use of uninitialized value in print at - line 5.
+Use of uninitialized value in print at - line 6.
Use of uninitialized value $m1 in print at - line 7.
Use of uninitialized value $g1 in print at - line 7.
Use of uninitialized value in print at - line 7.
Use of uninitialized value $m2 in print at - line 7.
-Use of uninitialized value $ga[1] in print at - line 8.
+Use of uninitialized value in print at - line 8.
use warnings 'uninitialized';
my ($m1);
@@ -1166,15 +1166,15 @@
Use of uninitialized value $g1 in printf at - line 6.
Use of uninitialized value $g2 in printf at - line 6.
-Use of uninitialized value $ga[1000] in printf at - line 7.
-Use of uninitialized value $ga[1000] in printf at - line 8.
+Use of uninitialized value in printf at - line 7.
+Use of uninitialized value in printf at - line 8.
FOO1:
Use of uninitialized value $m1 in printf at - line 9.
Use of uninitialized value $g1 in printf at - line 9.
Use of uninitialized value in printf at - line 9.
Use of uninitialized value $m2 in printf at - line 9.
FOO2:
-Use of uninitialized value $ga[1] in printf at - line 10.
+Use of uninitialized value in printf at - line 10.
FOO3:XY
use warnings 'uninitialized';
@@ -1489,6 +1489,17 @@
$v = 1 + sort @emptya;
my $zero = 0; $v = 1 + caller($zero);
$v = 1 + do $nofile;
+my $fn = sub {};
+$v = 1 + prototype $fn;
+my $nan = NaN;
+$v = 1 + ($nan = 1);
+$v = 1 + ($fn ~~ 1);
+$v = 1 + (print STDIN $f); # print to STDIN returns undef
+$v = 1 + (printf STDIN %s, $f);
+{ use feature 'say'; $v = 1 + (say STDIN %s, $f); }
+$v = 1 + (unpack(,$f));
+$v = 1 + sysopen($f, $nofile, 0);
+{ my $x = -1; $v = 1 + sysseek(STDIN, $x, 0); }
EXPECT
Use of uninitialized value in addition (+) at - line 8.
@@ -1538,3 +1549,12 @@
Use of uninitialized value in addition (+) at - line 75.
Use of uninitialized value in addition (+) at - line 76.
Use of uninitialized value in addition (+) at - line 77.
+Use of uninitialized value in addition (+) at - line 79.
+Use of uninitialized value in addition (+) at - line 81.
+Use of uninitialized value in addition (+) at - line 82.
+Use of uninitialized value in addition (+) at - line 83.
+Use of uninitialized value in addition (+) at - line 84.
+Use of uninitialized value in addition (+) at - line 85.
+Use of uninitialized value in addition (+) at - line 86.
+Use of uninitialized value in addition (+) at - line 87.
+Use of uninitialized value in addition (+) at - line 88.
End of Patch.
Change 34085: [PATCH] fix debop with pad const
Change 34085 by [EMAIL PROTECTED] on 2008/06/24 14:35:11
Subject: [PATCH] fix debop with pad const
From: Reini Urban [EMAIL PROTECTED]
Date: Tue, 24 Jun 2008 12:07:01 +0200
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/dump.c#306 edit
Differences ...
//depot/perl/dump.c#306 (text)
Index: perl/dump.c
--- perl/dump.c#305~33653~ 2008-04-06 13:11:52.0 -0700
+++ perl/dump.c 2008-06-24 07:35:11.0 -0700
@@ -2002,7 +2002,12 @@
switch (o-op_type) {
case OP_CONST:
case OP_HINTSEVAL:
- PerlIO_printf(Perl_debug_log, (%s), SvPEEK(cSVOPo_sv));
+ /* with ITHREADS, consts are stored in the pad, and the right pad
+* may not be active here, so check.
+* (((SVOP*)o)-op_sv ? ((SVOP*)o)-op_sv :
((my_perl-Icurpad)[(o)-op_targ]))
+*/
+ if (((SVOP*)o)-op_sv)
+ PerlIO_printf(Perl_debug_log, (%s), SvPEEK(cSVOPo_sv));
break;
case OP_GVSV:
case OP_GV:
End of Patch.
