Change 19636 by [EMAIL PROTECTED] on 2003/05/29 14:19:35
Integrate:
[ 19618]
Subject: [Encode] Minor bug in piconv induced by Getopt::Long
From: Dan Kogai <[EMAIL PROTECTED]>
Date: 24 May 2003 19:50:48 -0000
Message-ID: <[EMAIL PROTECTED]>
[ 19619]
Protect against race conditions: if the pid is not seen,
neither will be the $0 change be seen (and vice versa).
[ 19620]
Subject: Re: [PATCH: perlio.h] maint snap @ 19613
From: "Marcus Holland-Moritz" <[EMAIL PROTECTED]>
Date: Sun, 25 May 2003 21:17:42 +0200
Message-ID: <[EMAIL PROTECTED]>
[ 19621]
Run external commands only with localized sanitized $ENV{PATH}.
[ 19622]
Regen modlib and toc.
[ 19623]
Subject: [PATCH] for cygwin/perlld.in
From: "Gerrit P. Haase" <[EMAIL PROTECTED]>
Date: Sat, 24 May 2003 16:51:29 +0200
Message-ID: <[EMAIL PROTECTED]>
[ 19625]
Subject: Re: [perl #22299] goto doesn't find label
From: Dave Mitchell <[EMAIL PROTECTED]>
Date: Sat, 24 May 2003 12:25:17 +0100
Message-ID: <[EMAIL PROTECTED]>
Subject: [PATCH] Re: [perl #22299] goto doesn't find label
From: Dave Mitchell <[EMAIL PROTECTED]>
Date: Mon, 26 May 2003 13:47:11 +0100
Message-ID: <[EMAIL PROTECTED]>
[ 19626]
For now reword the sysread/syswrite description to
stress the fact that by default everything is still bytes.
[ 19627]
OpenZaurus cross-compilation patches from Redvers Davies.
[ 19628]
Subject: [PATCH] Use "cmd.exe /x/d/c" as the default PERL5SHELL on Windows
NT/2K/XP
From: Jan Dubois <[EMAIL PROTECTED]>
Date: Mon, 26 May 2003 23:33:53 -0700
Message-ID: <[EMAIL PROTECTED]>
[ 19629]
Subject: [PATCH] Re: a2p is linked against too many libraries
From: Andy Dougherty <[EMAIL PROTECTED]>
Date: Wed, 28 May 2003 09:20:06 -0400 (EDT)
Message-ID: <[EMAIL PROTECTED]>
[ 19630]
Subject: typo in pod/perlfunc.pod
From: Alexey Mahotkin <[EMAIL PROTECTED]>
Date: Wed, 28 May 2003 15:18:04 +0400
Message-ID: <[EMAIL PROTECTED]>
[ 19631]
Document that setvbuf() is not probably any more available.
Many reports, most recently by mjd in
[perl #22339] IO::Handle::setvbuf not defined properly
[ 19632]
Subject: [PATCH] $x = $empty_hash{$undef_val} doesn't give a warning
From: Dave Mitchell <[EMAIL PROTECTED]>
Date: Tue, 27 May 2003 19:31:10 +0100
Message-ID: <[EMAIL PROTECTED]>
[ 19633]
A *much* cut-down version of the patches in the thread
Subject: [perl #22224] 2 patches to perldiag.pod; for POSIX and Win32 errors
From: Jim Cromie (via RT) <[EMAIL PROTECTED]>
Date: 16 May 2003 19:04:28 -0000
Message-Id: <[EMAIL PROTECTED]>
[ 19634]
Subject: [patch] IO::File->open() with encoding
From: Pradeep Hodigere <[EMAIL PROTECTED]>
Date: Mon, 19 May 2003 16:05:47 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
[ 19635]
Subject: Credits patch
From: Ed Avis <[EMAIL PROTECTED]>
Date: Sun, 18 May 2003 18:08:55 +0100 (BST)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/Cross/Makefile#2 integrate
... //depot/maint-5.8/perl/Cross/Makefile.SH.patch#2 integrate
... //depot/maint-5.8/perl/Cross/README#3 integrate
... //depot/maint-5.8/perl/Cross/config.sh-arm-linux#3 integrate
... //depot/maint-5.8/perl/Cross/generate_config_sh#2 integrate
... //depot/maint-5.8/perl/Cross/installperl.patch#2 integrate
... //depot/maint-5.8/perl/MANIFEST#60 integrate
... //depot/maint-5.8/perl/cygwin/perlld.in#5 integrate
... //depot/maint-5.8/perl/ext/Encode/bin/piconv#4 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/File.pm#3 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Handle.pm#2 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/t/io_utf8.t#1 branch
... //depot/maint-5.8/perl/ext/Sys/Hostname/Hostname.pm#4 integrate
... //depot/maint-5.8/perl/ext/threads/t/join.t#10 integrate
... //depot/maint-5.8/perl/hv.c#15 integrate
... //depot/maint-5.8/perl/lib/Tie/RefHash.pm#2 integrate
... //depot/maint-5.8/perl/perlio.h#7 integrate
... //depot/maint-5.8/perl/pod/perldiag.pod#26 integrate
... //depot/maint-5.8/perl/pod/perlfunc.pod#20 integrate
... //depot/maint-5.8/perl/pod/perlmodlib.pod#6 integrate
... //depot/maint-5.8/perl/pod/perlrun.pod#18 integrate
... //depot/maint-5.8/perl/pod/perltoc.pod#4 integrate
... //depot/maint-5.8/perl/pp_ctl.c#26 integrate
... //depot/maint-5.8/perl/t/op/goto.t#5 integrate
... //depot/maint-5.8/perl/win32/win32.c#9 integrate
... //depot/maint-5.8/perl/x2p/Makefile.SH#4 integrate
Differences ...
==== //depot/maint-5.8/perl/Cross/Makefile#2 (text) ====
Index: perl/Cross/Makefile
--- perl/Cross/Makefile#1~19298~ Mon Apr 21 09:26:33 2003
+++ perl/Cross/Makefile Thu May 29 07:19:35 2003
@@ -1,6 +1,6 @@
## Toplevel Makefile for cross-compilation of perl
#
-## $Id: Makefile,v 1.1 2003/04/15 00:38:39 red Exp red $
+## $Id: Makefile,v 1.3 2003/05/27 21:23:19 red Exp red $
export TOPDIR?=${shell pwd}
include $(TOPDIR)/config
==== //depot/maint-5.8/perl/Cross/Makefile.SH.patch#2 (text) ====
Index: perl/Cross/Makefile.SH.patch
--- perl/Cross/Makefile.SH.patch#1~19298~ Mon Apr 21 09:26:33 2003
+++ perl/Cross/Makefile.SH.patch Thu May 29 07:19:35 2003
@@ -1,6 +1,34 @@
---- ../Makefile.SH 2002-06-09 17:04:06.000000000 +0000
-+++ Makefile.SH 2003-04-15 00:30:58.000000000 +0000
-@@ -329,9 +329,20 @@
+--- ../Makefile.SH 2003-04-22 14:13:52.000000000 +0000
++++ Makefile.SH 2003-05-27 21:07:07.000000000 +0000
+@@ -104,16 +104,17 @@
+
+ case "$osname" in
+ linux)
+- rm -f preload
+- cat <<-'EOT' > preload
+- #! /bin/sh
+- lib=$1
+- shift
+- test -r $lib && export LD_PRELOAD="$lib $LD_PRELOAD"
+- exec "$@"
+- EOT
+- chmod 755 preload
+- ldlibpth="$ldlibpth `pwd`/preload `pwd`/$libperl"
++# rm -f preload
++# cat <<-'EOT' > preload
++# #! /bin/sh
++# lib=$1
++# shift
++# test -r $lib && export LD_PRELOAD="$lib $LD_PRELOAD"
++# exec "$@"
++# EOT
++# chmod 755 preload
++# ldlibpth="$ldlibpth `pwd`/preload `pwd`/$libperl"
++ echo linux libraries overridden my cross-compile patches
+ ;;
+ os390) test -f /bin/env && ldlibpth="/bin/env $ldlibpth"
+ ;;
+@@ -343,9 +344,20 @@
.c.s:
$(CCCMDSRC) -S $*.c
@@ -24,7 +52,7 @@
.PHONY: all compile translators utilities
-@@ -341,10 +352,10 @@
+@@ -355,10 +367,10 @@
cd x2p; $(MAKE) compile;
cd pod; $(MAKE) compile;
@@ -37,7 +65,7 @@
@echo " "; echo " Making utilities"; cd utils; $(LDLIBPTH) $(MAKE) all
-@@ -521,7 +532,7 @@
+@@ -535,7 +547,7 @@
$(CC) -o miniperl $(CLDFLAGS) \
`echo $(obj) | sed 's/ op$(OBJ_EXT) / /'` \
miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perl$(OBJ_EXT) $(libs)
@@ -46,16 +74,16 @@
!NO!SUBS!
;;
beos*|next4*)
-@@ -538,7 +549,7 @@
+@@ -552,7 +564,7 @@
[EMAIL PROTECTED] -f miniperl.xok
- $(LDLIBPTH) $(CC) $(CLDFLAGS) -o miniperl \
+ $(CC) $(CLDFLAGS) -o miniperl \
miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) $(LLIBPERL) $(libs)
- $(LDLIBPTH) ./miniperl -w -Ilib -MExporter -e '<?>' || $(MAKE) minitest
+# $(LDLIBPTH) ./miniperl -w -Ilib -MExporter -e '<?>' || $(MAKE) minitest
!NO!SUBS!
;;
esac
-@@ -664,7 +675,7 @@
+@@ -678,7 +690,7 @@
# We need to autosplit in two steps because VOS can't handle so many args
#
.PHONY: preplibrary
@@ -64,7 +92,7 @@
@sh ./makedir lib/auto
@echo " AutoSplitting perl library"
$(LDLIBPTH) ./miniperl -Ilib -e 'use AutoSplit; \
-@@ -676,11 +687,11 @@
+@@ -690,11 +702,11 @@
# Take care to avoid modifying lib/Config.pm without reason
# (If trying to create a new port and having problems with the configpm script,
# try 'make minitest' and/or commenting out the tests at the end of configpm.)
@@ -78,7 +106,7 @@
$(LDLIBPTH) ./miniperl minimod.pl > minimod.tmp
sh mv-if-diff minimod.tmp $@
-touch lib/ExtUtils/Miniperl.pm
-@@ -688,18 +699,18 @@
+@@ -702,18 +714,18 @@
lib/re.pm: ext/re/re.pm
cp ext/re/re.pm ext/re/re.tmp && sh mv-if-diff ext/re/re.tmp lib/re.pm
@@ -101,7 +129,7 @@
[EMAIL PROTECTED] -f extra.pods && rm -f `cat extra.pods`
[EMAIL PROTECTED] -f extra.pods
[EMAIL PROTECTED] x in `grep -l '^=[a-z]' README.* | grep -v README.vms` ; do \
-@@ -738,18 +749,10 @@
+@@ -752,18 +764,10 @@
$(MAKE) install.perl install.man STRIPFLAGS=$(STRIPFLAGS) INSTALLFLAGS=-n
install.perl: all installperl
@@ -123,7 +151,7 @@
# XXX Experimental. Hardwired values, but useful for testing.
# Eventually Configure could ask for some of these values.
-@@ -861,16 +864,16 @@
+@@ -870,16 +874,16 @@
#
# DynaLoader may be needed for extensions that use Makefile.PL.
@@ -144,7 +172,7 @@
@$(LDLIBPTH) sh ext/util/make_ext nonxs $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
.PHONY: clean _tidy _mopup _cleaner1 _cleaner2 \
-@@ -1009,7 +1012,7 @@
+@@ -1019,7 +1023,7 @@
test_prep_pre: preplibrary utilities $(nonxs_ext)
@@ -153,7 +181,7 @@
PERL=./perl $(MAKE) _test_prep
_test_tty:
-@@ -1078,7 +1081,7 @@
+@@ -1088,7 +1092,7 @@
# Can't depend on lib/Config.pm because that might be where miniperl
# is crashing.
==== //depot/maint-5.8/perl/Cross/README#3 (text) ====
Index: perl/Cross/README
--- perl/Cross/README#2~19298~ Mon Apr 21 09:26:33 2003
+++ perl/Cross/README Thu May 29 07:19:35 2003
@@ -4,15 +4,17 @@
This is a patch set which adds cross-compilation to the perl
buildsystem. It was built as a part of the Open Zaurus
(http://www.openzaurus.com/) distribution. Most / All of the
-optimisations are "borrowed" from this excellent project.
+arm compiler optimisations are "borrowed" from this excellent
+project.
The main target is arm-linux but I have also managed to
successfully cross-compile perl for solaris x86 using the same
buildsystem.
We are currently dependent on an existing working local copy of
-perl which is available as /usr/bin/perl. This could be migrated
-to using native miniperl with some additional effort.
+perl ** of the same version and revision ** which is available
+as /usr/bin/perl. This could be migrated to using native
+miniperl with some additional effort.
Obviously you need a working and tested cross-compiler for your
build and target combination. The binary directory must be in
@@ -47,7 +49,7 @@
Enjoy!
References
--------
+----------
Redvers Davies <[EMAIL PROTECTED]>
Open Zaurus http://www.openzaurus.org/
Perl OZ Packages http://www.openzaurus.org/official/testing/feed/
==== //depot/maint-5.8/perl/Cross/config.sh-arm-linux#3 (text) ====
Index: perl/Cross/config.sh-arm-linux
--- perl/Cross/config.sh-arm-linux#2~19611~ Sat May 24 00:50:43 2003
+++ perl/Cross/config.sh-arm-linux Thu May 29 07:19:35 2003
@@ -5,7 +5,7 @@
# do not forget to propagate your changes by running "Configure -der". You may
# instead choose to run each of the .SH files by yourself, or "Configure -S".
#
-# $Id$
+# $Id: config.sh-arm-linux,v 1.2 2003/05/27 21:31:15 red Exp red $
#
# Package name : perl5
@@ -35,11 +35,11 @@
aphostname='/bin/hostname'
api_revision='5'
api_subversion='0'
-api_version='8'
-api_versionstring='5.8.0'
+api_version='9'
+api_versionstring='5.9.0'
ar='arm-linux-ar'
-archlib='/usr/lib/perl5/5.8.0/armv4l-linux'
-archlibexp='/usr/lib/perl5/5.8.0/armv4l-linux'
+archlib='/usr/lib/perl5/5.9.0/armv4l-linux'
+archlibexp='/usr/lib/perl5/5.9.0/armv4l-linux'
archname64=''
archname='armv4l-linux'
archobjs=''
@@ -107,6 +107,7 @@
d__fwalk='undef'
d_access='define'
d_accessx='undef'
+d_aintl='undef'
d_alarm='define'
d_archlib='define'
d_asctime_r='undef'
@@ -129,6 +130,7 @@
d_closedir='define'
d_cmsghdr_s='define'
d_const='define'
+d_copysignl='define'
d_crypt='undef'
d_crypt_r='undef'
d_csh='undef'
@@ -162,6 +164,7 @@
d_endservent_r='undef'
d_eofnblk='define'
d_eunice='undef'
+d_faststdio='define'
d_fchdir='define'
d_fchmod='define'
d_fchown='define'
@@ -253,6 +256,7 @@
d_grpasswd='define'
d_hasmntopt='define'
d_htonl='define'
+d_ilogbl='define'
d_index='undef'
d_inetaton='define'
d_int64_t='define'
@@ -289,6 +293,7 @@
d_mktime='define'
d_mmap='define'
d_modfl='undef'
+d_modflproto='undef'
d_modfl_pow32_bug='undef'
d_mprotect='define'
d_msg='define'
@@ -305,6 +310,7 @@
d_msync='define'
d_munmap='define'
d_mymalloc='undef'
+d_nanosleep='define'
d_nice='define'
d_nl_langinfo='define'
d_nv_preserves_uv='define'
@@ -322,7 +328,6 @@
d_portable='define'
d_procselfexe='undef'
d_pthread_atfork='undef'
-d_pthread_attr_setscope='undef'
d_pthread_yield='undef'
d_pwage='undef'
d_pwchange='undef'
@@ -348,6 +353,7 @@
d_safemcpy='undef'
d_sanemcmp='define'
d_sbrkproto='define'
+d_scalbnl='define'
d_sched_yield='define'
d_scm_rights='define'
d_seekdir='define'
@@ -471,6 +477,7 @@
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
+d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
@@ -525,6 +532,7 @@
full_ar='/usr/local/arm/2.95.3/bin/arm-linux-ar'
full_csh='csh'
full_sed='/bin/sed'
+gccansipedantic=''
gccosandvers=''
gccversion='2.95.1 19990816 (release)'
getgrent_r_proto='0'
@@ -563,6 +571,10 @@
h_sysfile='true'
hint='recommended'
hostcat='cat /etc/hosts'
+html1dir=' '
+html1direxp=''
+html3dir=' '
+html3direxp=''
i16size='2'
i16type='short'
i32size='4'
@@ -658,17 +670,19 @@
inc_version_list_init='0'
incpath=''
inews=''
-installarchlib='./install_me_here/usr/lib/perl5/5.8.0/armv4l-linux'
+installarchlib='./install_me_here/usr/lib/perl5/5.9.0/armv4l-linux'
installbin='./install_me_here/usr/bin'
installman1dir=''
installman3dir=''
installprefix='./install_me_here/usr/lib/perl5'
installprefixexp='./install_me_here/usr/lib/perl5'
-installprivlib='./install_me_here/usr/lib/perl5/5.8.0'
+installprivlib='./install_me_here/usr/lib/perl5/5.9.0'
installscript='./install_me_here/usr/bin'
-installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.8.0/armv4l-linux'
+installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.9.0/armv4l-linux'
installsitebin='./install_me_here/usr/bin'
-installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.8.0'
+installsitehtml1=''
+installsitehtml3=''
+installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.9.0'
installstyle='lib/perl5'
installusrbinperl='undef'
installvendorarch=''
@@ -769,7 +783,7 @@
package='perl5'
pager='/usr/bin/less'
passcat='cat /etc/passwd'
-patchlevel='8'
+patchlevel='9'
path_sep=':'
perl5=''
perl=''
@@ -786,8 +800,8 @@
pr=''
prefix='/usr'
prefixexp='/usr'
-privlib='/usr/lib/perl5/5.8.0'
-privlibexp='/usr/lib/perl5/5.8.0'
+privlib='/usr/lib/perl5/5.9.0'
+privlibexp='/usr/lib/perl5/5.9.0'
procselfexe=''
prototype='define'
ptrsize='4'
@@ -848,14 +862,18 @@
sig_num_init='0, 0'
sig_size='1'
signal_t='void'
-sitearch='/usr/lib/perl5/site_perl/5.8.0/armv4l-linux'
-sitearchexp='/usr/lib/perl5/site_perl/5.8.0/armv4l-linux'
+sitearch='/usr/lib/perl5/site_perl/5.9.0/armv4l-linux'
+sitearchexp='/usr/lib/perl5/site_perl/5.9.0/armv4l-linux'
sitebin='/usr/bin'
sitebinexp='/usr/bin'
-sitelib='/usr/lib/perl5/site_perl/5.8.0'
+sitehtml1=' '
+sitehtml1exp=''
+sitehtml3=' '
+sitehtml3exp=''
+sitelib='/usr/lib/perl5/site_perl/5.9.0'
sitelib_stem='/usr/lib/perl5/site_perl'
-sitelibexp='/usr/lib/perl5/site_perl/5.8.0'
-siteprefix='/usr/lib/perl5.8.0'
+sitelibexp='/usr/lib/perl5/site_perl/5.9.0'
+siteprefix='/usr/lib/perl5.9.0'
siteprefixexp='/usr'
sizesize='4'
sizetype='size_t'
@@ -922,6 +940,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='undef'
+usefaststdio='undef'
useithreads='undef'
uselargefiles='define'
uselongdouble='undef'
@@ -956,29 +975,29 @@
vendorlibexp=''
vendorprefix=''
vendorprefixexp=''
-version='5.8.0'
-version_patchlevel_string='version 8 subversion 0'
+version='5.9.0'
+version_patchlevel_string='version 9 subversion 0 patch 18374'
versiononly='undef'
vi=''
voidflags='15'
xlibpth='/usr/lib/386 /lib/386'
-xs_apiversion='5.8.0'
+xs_apiversion='5.9.0'
yacc='yacc'
yaccflags=''
zcat=''
zip='zip'
# Configure command line arguments.
config_arg0='./Configure'
-config_args='-Dprefix=/usr/local/perl5.8.0 -Uinstallusrbinperl -des'
+config_args='-Dprefix=/usr/local/perl5.9.0 -Uinstallusrbinperl -des'
config_argc=3
-config_arg1='-Dprefix=/usr/local/perl5.8.0'
+config_arg1='-Dprefix=/usr/local/perl5.9.0'
config_arg2='-Uinstallusrbinperl'
config_arg3='-des'
PERL_REVISION=5
-PERL_VERSION=8
+PERL_VERSION=9
PERL_SUBVERSION=0
PERL_API_REVISION=5
-PERL_API_VERSION=8
+PERL_API_VERSION=9
PERL_API_SUBVERSION=0
-PERL_PATCHLEVEL=
+PERL_PATCHLEVEL=18374
PERL_CONFIG_SH=true
==== //depot/maint-5.8/perl/Cross/generate_config_sh#2 (xtext) ====
Index: perl/Cross/generate_config_sh
--- perl/Cross/generate_config_sh#1~19298~ Mon Apr 21 09:26:33 2003
+++ perl/Cross/generate_config_sh Thu May 29 07:19:35 2003
@@ -9,7 +9,7 @@
#
# This means we can go
#
-# if test "${CC+set}" != set; then
+# if test "${AR+set}" != set; then
# ar='arm-linux-ar'
# else
# ar=${AR}
@@ -128,4 +128,15 @@
}
}
+
+
+
+
+
+
+
+
+
+
+
==== //depot/maint-5.8/perl/Cross/installperl.patch#2 (text) ====
Index: perl/Cross/installperl.patch
--- perl/Cross/installperl.patch#1~19298~ Mon Apr 21 09:26:33 2003
+++ perl/Cross/installperl.patch Thu May 29 07:19:35 2003
@@ -1,5 +1,5 @@
---- ../installperl 2002-07-16 18:57:32.000000000 +0000
-+++ installperl 2003-04-15 01:55:54.000000000 +0000
+--- ../installperl 2003-03-26 21:07:13.000000000 +0000
++++ installperl 2003-05-01 11:17:48.000000000 +0000
@@ -3,8 +3,8 @@
BEGIN {
require 5.004;
@@ -11,12 +11,12 @@
}
use strict;
-@@ -876,7 +876,7 @@
- print " " if (@opts);
- print "$file\n";
- }
-- system("strip", @opts, $file);
-+ system("XXSTRIPXX-strip", @opts, $file);
- } else {
- print "# file '$file' skipped\n" if $verbose;
- }
+@@ -878,7 +878,7 @@
+ print " " if (@opts);
+ print "$file\n";
+ }
+- system("strip", @opts, $file);
++ system("XXSTRIPXX-strip", @opts, $file);
+ } else {
+ print "# file '$file' skipped\n" if $verbose;
+ }
==== //depot/maint-5.8/perl/MANIFEST#60 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#59~19611~ Sat May 24 00:50:43 2003
+++ perl/MANIFEST Thu May 29 07:19:35 2003
@@ -469,6 +469,7 @@
ext/IO/lib/IO/t/io_tell.t See if seek()/tell()-related methods from IO work
ext/IO/lib/IO/t/io_udp.t See if UDP socket-related methods from IO work
ext/IO/lib/IO/t/io_unix.t See if UNIX socket-related methods from IO work
+ext/IO/lib/IO/t/io_utf8.t See if perlio opens work
ext/IO/lib/IO/t/io_xs.t See if XSUB methods from IO work
ext/IO/Makefile.PL IO extension makefile writer
ext/IO/poll.c IO poll() emulation using select()
==== //depot/maint-5.8/perl/cygwin/perlld.in#5 (text) ====
Index: perl/cygwin/perlld.in
--- perl/cygwin/perlld.in#4~19012~ Mon Mar 17 11:50:06 2003
+++ perl/cygwin/perlld.in Thu May 29 07:19:35 2003
@@ -47,7 +47,7 @@
}
if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
my $v_e_r_s = '5_8_1';
- if ( $dllname =~ /.*perl.*/) {
+ if ( $dllname =~ /libperl.*/) {
$dllname ="cygperl$v_e_r_s.dll";
} else {
$dllname ="$libname.dll";
==== //depot/maint-5.8/perl/ext/Encode/bin/piconv#4 (text) ====
Index: perl/ext/Encode/bin/piconv
--- perl/ext/Encode/bin/piconv#3~19515~ Tue May 13 10:51:05 2003
+++ perl/ext/Encode/bin/piconv Thu May 29 07:19:35 2003
@@ -40,7 +40,7 @@
$Opt{string} and Encode::from_to($Opt{string}, $from, $to) and print $Opt{string} and
exit;
my $scheme = exists $Scheme{$Opt{Scheme}} ? $Opt{Scheme} : 'from_to';
$Opt{check} ||= $Opt{c};
-$Opt{p} and $Opt{check} = Encode::FB_PERLQQ;
+$Opt{perlqq} and $Opt{check} = Encode::FB_PERLQQ;
if ($Opt{debug}){
my $cfrom = Encode->getEncoding($from)->name;
==== //depot/maint-5.8/perl/ext/IO/lib/IO/File.pm#3 (text) ====
Index: perl/ext/IO/lib/IO/File.pm
--- perl/ext/IO/lib/IO/File.pm#2~19073~ Wed Mar 26 20:25:46 2003
+++ perl/ext/IO/lib/IO/File.pm Thu May 29 07:19:35 2003
@@ -71,6 +71,8 @@
=item open( FILENAME [,MODE [,PERMS]] )
+=item open( FILENAME, IOLAYERS )
+
C<open> accepts one, two or three parameters. With one parameter,
it is just a front end for the built-in C<open> function. With two or three
parameters, the first parameter is a filename that may include
@@ -85,6 +87,9 @@
and the optional permissions value to the Perl C<sysopen> operator.
The permissions default to 0666.
+If C<IO::File::open> is given a mode that includes the C<:> character,
+it passes all the three arguments to the three-argument C<open> operator.
+
For convenience, C<IO::File> exports the O_XXX constants from the
Fcntl module, if this module is available.
@@ -157,6 +162,9 @@
if ($mode =~ /^\d+$/) {
defined $perms or $perms = 0666;
return sysopen($fh, $file, $mode, $perms);
+ } elsif ($mode =~ /:/) {
+ return open($fh, $mode, $file) if @_ == 3;
+ croak 'usage: $fh->open(FILENAME, IOLAYERS)';
}
if (defined($file) && length($file)
&& ! File::Spec->file_name_is_absolute($file))
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Handle.pm#2 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/IO/lib/IO/Handle.pm Thu May 29 07:19:35 2003
@@ -20,6 +20,7 @@
$io->print("Some text\n");
}
+ # setvbuf is not available by default on Perls 5.8.0 and later.
use IO::Handle '_IOLBF';
$io->setvbuf($buffer_var, _IOLBF, 1024);
@@ -192,6 +193,10 @@
C<_IOLBF>, and C<_IONBF> for setvbuf()--except that the buffer parameter
specifies a scalar variable to use as a buffer. You should only
change the buffer before any I/O, or immediately after calling flush.
+
+WARNING: The IO::Handle::setvbuf() is not available by default on
+Perls 5.8.0 and later because setvbuf() is rather specific to using
+the stdio library, while Perl prefers the new perlio subsystem instead.
WARNING: A variable used as a buffer by C<setbuf> or C<setvbuf> B<must not
be modified> in any way until the IO::Handle is closed or C<setbuf> or
==== //depot/maint-5.8/perl/ext/IO/lib/IO/t/io_utf8.t#1 (text) ====
Index: perl/ext/IO/lib/IO/t/io_utf8.t
--- /dev/null Tue May 5 13:32:27 1998
+++ perl/ext/IO/lib/IO/t/io_utf8.t Thu May 29 07:19:35 2003
@@ -0,0 +1,33 @@
+#!./perl
+
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ unless (find PerlIO::Layer 'perlio') {
+ print "1..0 # Skip: not perlio\n";
+ exit 0;
+ }
+}
+
+require "./test.pl";
+
+plan(tests => 5);
+
+my $io;
+
+use_ok('IO::File');
+
+$io = IO::File->new;
+
+ok($io->open("io_utf8", ">:utf8"), "open >:utf8");
+ok((print $io chr(256)), "print chr(256)");
+undef $io;
+
+$io = IO::File->new;
+ok($io->open("io_utf8", "<:utf8"), "open <:utf8");
+is(ord(<$io>), 256, "readline chr(256)");
+undef $io;
+
+END {
+ 1 while unlink "io_utf8";
+}
==== //depot/maint-5.8/perl/ext/Sys/Hostname/Hostname.pm#4 (text) ====
Index: perl/ext/Sys/Hostname/Hostname.pm
--- perl/ext/Sys/Hostname/Hostname.pm#3~18617~ Sat Feb 1 12:05:08 2003
+++ perl/ext/Sys/Hostname/Hostname.pm Thu May 29 07:19:35 2003
@@ -72,6 +72,8 @@
else { # Unix
# is anyone going to make it here?
+ local $ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin'; # Paranoia.
+
# method 2 - syscall is preferred since it avoids tainting problems
# XXX: is it such a good idea to return hostname untainted?
eval {
==== //depot/maint-5.8/perl/ext/threads/t/join.t#10 (text) ====
Index: perl/ext/threads/t/join.t
--- perl/ext/threads/t/join.t#9~19256~ Thu Apr 17 11:26:24 2003
+++ perl/ext/threads/t/join.t Thu May 29 07:19:35 2003
@@ -101,17 +101,24 @@
print "# mainthread: \$0 = $0\n";
print "# pid = $$\n";
if (open PS, "ps -f |") { # Note: must work in (all) Linux(es).
- my $ok;
+ my ($sawpid, $sawexe);
while (<PS>) {
s/\s+$//; # there seems to be extra whitespace at the end by ps(1)?
print "# $_\n";
- if (/\b$$\b.+\bfoobar\b/) {
- $ok++;
+ if (/^\S+\s+$$\s/) {
+ $sawpid++;
+ if (/\sfoobar\b/) {
+ $sawexe++;
+ }
last;
}
}
close PS;
- ok($ok, 'altering $0 is effective');
+ if ($sawpid) {
+ ok($sawpid && $sawexe, 'altering $0 is effective');
+ } else {
+ skip("\$0 check: did not see pid $$ in 'ps -f |'");
+ }
} else {
skip("\$0 check: opening 'ps -f |' failed: $!");
}
==== //depot/maint-5.8/perl/hv.c#15 (text) ====
Index: perl/hv.c
--- perl/hv.c#14~19551~ Sun May 18 00:55:50 2003
+++ perl/hv.c Thu May 29 07:19:35 2003
@@ -416,6 +416,7 @@
#endif
}
+ keysave = key = SvPV(keysv, klen);
xhv = (XPVHV*)SvANY(hv);
if (!xhv->xhv_array /* !HvARRAY(hv) */) {
if (lval
@@ -430,7 +431,6 @@
return 0;
}
- keysave = key = SvPV(keysv, klen);
is_utf8 = (SvUTF8(keysv)!=0);
if (is_utf8) {
==== //depot/maint-5.8/perl/lib/Tie/RefHash.pm#2 (text) ====
Index: perl/lib/Tie/RefHash.pm
--- perl/lib/Tie/RefHash.pm#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/lib/Tie/RefHash.pm Thu May 29 07:19:35 2003
@@ -57,6 +57,8 @@
Gurusamy Sarathy [EMAIL PROTECTED]
+'Nestable' by Ed Avis [EMAIL PROTECTED]
+
=head1 VERSION
Version 1.30
==== //depot/maint-5.8/perl/perlio.h#7 (text) ====
Index: perl/perlio.h
--- perl/perlio.h#6~19611~ Sat May 24 00:50:43 2003
+++ perl/perlio.h Thu May 29 07:19:35 2003
@@ -195,6 +195,13 @@
/* --------------------- Now prototypes for functions --------------- */
START_EXTERN_C
+#ifndef __attribute__format__
+#ifdef CHECK_FORMAT
+#define __attribute__format__(x,y,z) __attribute__((__format__(x,y,z)))
+#else
+#define __attribute__format__(x,y,z)
+#endif
+#endif
#ifndef NEXT30_NO_ATTRIBUTE
#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
#ifdef __attribute__ /* Avoid possible redefinition errors */
==== //depot/maint-5.8/perl/pod/perldiag.pod#26 (text) ====
Index: perl/pod/perldiag.pod
--- perl/pod/perldiag.pod#25~19576~ Tue May 20 13:05:45 2003
+++ perl/pod/perldiag.pod Thu May 29 07:19:35 2003
@@ -4035,6 +4035,16 @@
(W untie) A copy of the object returned from C<tie> (or C<tied>) was
still valid when C<untie> was called.
+=item Usage: POSIX::%s(%s)
+
+(F) You called a POSIX function with incorrect arguments.
+See L<POSIX/FUNCTIONS> for more information.
+
+=item Usage: Win32::%s(%s)
+
+(F) You called a Win32 function with incorrect arguments.
+See L<Win32> for more information.
+
=item Useless (?-%s) - don't use /%s modifier in regex; marked by <-- HERE in m/%s/
(W regexp) You have used an internal modifier such as (?-o) that has no
==== //depot/maint-5.8/perl/pod/perlfunc.pod#20 (text) ====
Index: perl/pod/perlfunc.pod
--- perl/pod/perlfunc.pod#19~19515~ Tue May 13 10:51:05 2003
+++ perl/pod/perlfunc.pod Thu May 29 07:19:35 2003
@@ -460,7 +460,7 @@
If LAYER is omitted or specified as C<:raw> the filehandle is made
suitable for passing binary data. This includes turning off possible CRLF
translation and marking it as bytes (as opposed to Unicode characters).
-Note that as desipite what may be implied in I<"Programming Perl">
+Note that as despite what may be implied in I<"Programming Perl">
(the Camel) or elsewhere C<:raw> is I<not> the simply inverse of C<:crlf>
-- other layers which would affect binary nature of the stream are
I<also> disabled. See L<PerlIO>, L<perlrun> and the discussion about the
@@ -498,7 +498,9 @@
handle. An exception to this is the C<:encoding> layer that
changes the default character encoding of the handle, see L<open>.
The C<:encoding> layer sometimes needs to be called in
-mid-stream, and it doesn't flush the stream.
+mid-stream, and it doesn't flush the stream. The C<:encoding>
+also implicitly pushes on top of itself the C<:utf8> layer because
+internally Perl will operate on UTF-8 encoded Unicode characters.
The operating system, device drivers, C libraries, and Perl run-time
system all work together to let the programmer treat a single
@@ -5587,21 +5589,15 @@
=item sysread FILEHANDLE,SCALAR,LENGTH
-Attempts to read LENGTH I<characters> of data into variable SCALAR
-from the specified FILEHANDLE, using the system call read(2). It
-bypasses buffered IO, so mixing this with other kinds of reads,
-C<print>, C<write>, C<seek>, C<tell>, or C<eof> can cause confusion
-because stdio usually buffers data. Returns the number of characters
-actually read, C<0> at end of file, or undef if there was an error (in
-the latter case C<$!> is also set). SCALAR will be grown or shrunk so
-that the last byte actually read is the last byte of the scalar after
-the read.
-
-Note the I<characters>: depending on the status of the filehandle,
-either (8-bit) bytes or characters are read. By default all
-filehandles operate on bytes, but for example if the filehandle has
-been opened with the C<:utf8> I/O layer (see L</open>, and the C<open>
-pragma, L<open>), the I/O will operate on characters, not bytes.
+Attempts to read LENGTH bytes of data into variable SCALAR from the
+specified FILEHANDLE, using the system call read(2). It bypasses
+buffered IO, so mixing this with other kinds of reads, C<print>,
+C<write>, C<seek>, C<tell>, or C<eof> can cause confusion because the
+perlio or stdio layers usually buffers data. Returns the number of
+bytes actually read, C<0> at end of file, or undef if there was an
+error (in the latter case C<$!> is also set). SCALAR will be grown or
+shrunk so that the last byte actually read is the last byte of the
+scalar after the read.
An OFFSET may be specified to place the read data at some place in the
string other than the beginning. A negative OFFSET specifies
@@ -5614,9 +5610,15 @@
very well on device files (like ttys) anyway. Use sysread() and check
for a return value for 0 to decide whether you're done.
+Note that if the filehandle has been marked as C<:utf8> Unicode
+characters are read instead of bytes (the LENGTH, OFFSET, and the
+return value of sysread() are in Unicode characters).
+The C<:encoding(...)> layer implicitly introduces the C<:utf8> layer.
+See L</binmode>, L</open>, and the C<open> pragma, L<open>.
+
=item sysseek FILEHANDLE,POSITION,WHENCE
-Sets FILEHANDLE's system position I<in bytes> using the system call
+Sets FILEHANDLE's system position in bytes using the system call
lseek(2). FILEHANDLE may be an expression whose value gives the name
of the filehandle. The values for WHENCE are C<0> to set the new
position to POSITION, C<1> to set the it to the current position plus
@@ -5628,7 +5630,7 @@
will return byte offsets, not character offsets (because implementing
that would render sysseek() very slow).
-sysseek() bypasses normal buffered io, so mixing this with reads (other
+sysseek() bypasses normal buffered IO, so mixing this with reads (other
than C<sysread>, for example >< or read()) C<print>, C<write>,
C<seek>, C<tell>, or C<eof> may cause confusion.
@@ -5707,27 +5709,27 @@
=item syswrite FILEHANDLE,SCALAR
-Attempts to write LENGTH characters of data from variable SCALAR to
-the specified FILEHANDLE, using the system call write(2). If LENGTH
-is not specified, writes whole SCALAR. It bypasses buffered IO, so
+Attempts to write LENGTH bytes of data from variable SCALAR to the
+specified FILEHANDLE, using the system call write(2). If LENGTH is
+not specified, writes whole SCALAR. It bypasses buffered IO, so
mixing this with reads (other than C<sysread())>, C<print>, C<write>,
-C<seek>, C<tell>, or C<eof> may cause confusion because stdio usually
-buffers data. Returns the number of characters actually written, or
-C<undef> if there was an error (in this case the errno variable C<$!>
-is also set). If the LENGTH is greater than the available data in the
-SCALAR after the OFFSET, only as much data as is available will be
-written.
+C<seek>, C<tell>, or C<eof> may cause confusion because the perlio and
+stdio layers usually buffers data. Returns the number of bytes
+actually written, or C<undef> if there was an error (in this case the
+errno variable C<$!> is also set). If the LENGTH is greater than the
+available data in the SCALAR after the OFFSET, only as much data as is
+available will be written.
An OFFSET may be specified to write the data from some part of the
string other than the beginning. A negative OFFSET specifies writing
that many characters counting backwards from the end of the string.
In the case the SCALAR is empty you can use OFFSET but only zero offset.
-Note the I<characters>: depending on the status of the filehandle,
-either (8-bit) bytes or characters are written. By default all
-filehandles operate on bytes, but for example if the filehandle has
-been opened with the C<:utf8> I/O layer (see L</open>, and the open
-pragma, L<open>), the I/O will operate on characters, not bytes.
+Note that if the filehandle has been marked as C<:utf8>,
+Unicode characters are written instead of bytes (the LENGTH, OFFSET,
+and the return value of syswrite() are in Unicode characters).
+The C<:encoding(...)> layer implicitly introduces the C<:utf8> layer.
+See L</binmode>, L</open>, and the C<open> pragma, L<open>.
=item tell FILEHANDLE
==== //depot/maint-5.8/perl/pod/perlmodlib.pod#6 (text) ====
Index: perl/pod/perlmodlib.pod
--- perl/pod/perlmodlib.pod#5~19403~ Sun May 4 04:14:49 2003
+++ perl/pod/perlmodlib.pod Thu May 29 07:19:35 2003
@@ -501,6 +501,10 @@
Various Unicode Transformation Formats
+=item Encode::Unicode::UTF7
+
+UTF-7 encoding
+
=item English
Use nice English (or awk) names for ugly punctuation variables
@@ -616,6 +620,10 @@
=item ExtUtils::MakeMaker::Tutorial
Writing a module with MakeMaker
+
+=item ExtUtils::MakeMaker::bytes
+
+Version agnostic bytes.pm
=item ExtUtils::MakeMaker::vmsish
==== //depot/maint-5.8/perl/pod/perlrun.pod#18 (text) ====
Index: perl/pod/perlrun.pod
--- perl/pod/perlrun.pod#17~19260~ Thu Apr 17 11:43:31 2003
+++ perl/pod/perlrun.pod Thu May 29 07:19:35 2003
@@ -1061,7 +1061,7 @@
=item PERL5SHELL (specific to the Win32 port)
May be set to an alternative shell that perl must use internally for
-executing "backtick" commands or system(). Default is C<cmd.exe /x/c>
+executing "backtick" commands or system(). Default is C<cmd.exe /x/d/c>
on WindowsNT and C<command.com /c> on Windows95. The value is considered
to be space-separated. Precede any character that needs to be protected
(like a space or backslash) with a backslash.
==== //depot/maint-5.8/perl/pod/perltoc.pod#4 (text+w) ====
Index: perl/pod/perltoc.pod
--- perl/pod/perltoc.pod#3~19403~ Sun May 4 04:14:49 2003
+++ perl/pod/perltoc.pod Thu May 29 07:19:35 2003
@@ -185,9 +185,9 @@
=item Declarations
-=item Simple statements
+=item Simple Statements
-=item Compound statements
+=item Compound Statements
=item Loop Control
@@ -225,6 +225,8 @@
=item List value constructors
+=item Subscripts
+
=item Slices
=item Typeglobs and Filehandles
@@ -751,7 +753,7 @@
=item Awk Traps
-=item C Traps
+=item C/C++ Traps
=item Sed Traps
@@ -2416,6 +2418,14 @@
=item Locales
+=item When Unicode Does Not Happen
+
+chmod, chmod, chown, chroot, exec, link, mkdir, rename, rmdir, stat,
+symlink, truncate, unlink, utime, %ENV, glob (aka the <*>), open, opendir,
+sysopen, qx (aka the backtick operator), system, readdir, readlink
+
+=item Forcing Unicode in Perl (Or Unforcing Unicode in Perl)
+
=item Using Unicode in XS
=back
@@ -2673,29 +2683,30 @@
Encode::EBCDIC, Encode::Encoder, Encode::Encoding, Encode::Guess,
Encode::JP, Encode::JP::H2Z, Encode::JP::JIS7, Encode::KR,
Encode::KR::2022_KR, Encode::MIME::Header, Encode::PerlIO,
-Encode::Supported, Encode::Symbol, Encode::TW, Encode::Unicode, English,
-Env, Errno, Exporter, Exporter::Heavy, ExtUtils::Command,
-ExtUtils::Command::MM, ExtUtils::Constant, ExtUtils::Embed,
-ExtUtils::Install, ExtUtils::Installed, ExtUtils::Liblist, ExtUtils::MM,
-ExtUtils::MM_Any, ExtUtils::MM_BeOS, ExtUtils::MM_Cygwin, ExtUtils::MM_DOS,
-ExtUtils::MM_MacOS, ExtUtils::MM_NW5, ExtUtils::MM_OS2, ExtUtils::MM_UWIN,
-ExtUtils::MM_Unix, ExtUtils::MM_VMS, ExtUtils::MM_Win32,
+Encode::Supported, Encode::Symbol, Encode::TW, Encode::Unicode,
+Encode::Unicode::UTF7, English, Env, Errno, Exporter, Exporter::Heavy,
+ExtUtils::Command, ExtUtils::Command::MM, ExtUtils::Constant,
+ExtUtils::Embed, ExtUtils::Install, ExtUtils::Installed, ExtUtils::Liblist,
+ExtUtils::MM, ExtUtils::MM_Any, ExtUtils::MM_BeOS, ExtUtils::MM_Cygwin,
+ExtUtils::MM_DOS, ExtUtils::MM_MacOS, ExtUtils::MM_NW5, ExtUtils::MM_OS2,
+ExtUtils::MM_UWIN, ExtUtils::MM_Unix, ExtUtils::MM_VMS, ExtUtils::MM_Win32,
ExtUtils::MM_Win95, ExtUtils::MY, ExtUtils::MakeMaker,
ExtUtils::MakeMaker::FAQ, ExtUtils::MakeMaker::Tutorial,
-ExtUtils::MakeMaker::vmsish, ExtUtils::Manifest, ExtUtils::Mkbootstrap,
-ExtUtils::Mksymlists, ExtUtils::Packlist, ExtUtils::testlib, Fatal, Fcntl,
-File::Basename, File::CheckTree, File::Compare, File::Copy, File::DosGlob,
-File::Find, File::Glob, File::Path, File::Spec, File::Spec::Cygwin,
-File::Spec::Epoc, File::Spec::Functions, File::Spec::Mac, File::Spec::OS2,
-File::Spec::Unix, File::Spec::VMS, File::Spec::Win32, File::Temp,
-File::stat, FileCache, FileHandle, Filter::Simple, Filter::Util::Call,
-FindBin, GDBM_File, Getopt::Long, Getopt::Std, Hash::Util, I18N::Collate,
-I18N::LangTags, I18N::LangTags::List, I18N::Langinfo, IO, IO::Dir,
-IO::File, IO::Handle, IO::Pipe, IO::Poll, IO::Seekable, IO::Select,
-IO::Socket, IO::Socket::INET, IO::Socket::UNIX, IPC::Open2, IPC::Open3,
-IPC::SysV, IPC::SysV::Msg, IPC::SysV::Semaphore, List::Util,
-Locale::Constants, Locale::Country, Locale::Currency, Locale::Language,
-Locale::Maketext, Locale::Maketext::TPJ13, Locale::Script, MIME::Base64,
+ExtUtils::MakeMaker::bytes, ExtUtils::MakeMaker::vmsish,
+ExtUtils::Manifest, ExtUtils::Mkbootstrap, ExtUtils::Mksymlists,
+ExtUtils::Packlist, ExtUtils::testlib, Fatal, Fcntl, File::Basename,
+File::CheckTree, File::Compare, File::Copy, File::DosGlob, File::Find,
+File::Glob, File::Path, File::Spec, File::Spec::Cygwin, File::Spec::Epoc,
+File::Spec::Functions, File::Spec::Mac, File::Spec::OS2, File::Spec::Unix,
+File::Spec::VMS, File::Spec::Win32, File::Temp, File::stat, FileCache,
+FileHandle, Filter::Simple, Filter::Util::Call, FindBin, GDBM_File,
+Getopt::Long, Getopt::Std, Hash::Util, I18N::Collate, I18N::LangTags,
+I18N::LangTags::List, I18N::Langinfo, IO, IO::Dir, IO::File, IO::Handle,
+IO::Pipe, IO::Poll, IO::Seekable, IO::Select, IO::Socket, IO::Socket::INET,
+IO::Socket::UNIX, IPC::Open2, IPC::Open3, IPC::SysV, IPC::SysV::Msg,
+IPC::SysV::Semaphore, List::Util, Locale::Constants, Locale::Country,
+Locale::Currency, Locale::Language, Locale::Maketext,
+Locale::Maketext::TPJ13, Locale::Script, MIME::Base64,
MIME::Base64::QuotedPrint, Math::BigFloat, Math::BigInt,
Math::BigInt::Calc, Math::BigInt::Scalar, Math::BigRat, Math::Complex,
Math::Trig, Memoize, Memoize::AnyDBM_File, Memoize::Expire,
@@ -4475,6 +4486,10 @@
=item CONCLUSION
+=item THINGS TO LOOK OUT FOR
+
+Some Filters Clobber the C<DATA> Handle
+
=item REQUIREMENTS
=item AUTHOR
@@ -4550,7 +4565,7 @@
=item Functions in file pp_pack.c
-pack_cat, unpack_str
+packlist, pack_cat, unpackstring, unpack_str
=item Global Variables
@@ -4768,6 +4783,8 @@
Error, Clearerr, Setlinebuf, Get_base, Get_bufsiz, Get_ptr, Get_cnt,
Set_ptrcnt
+=item Implementing PerlIO Layers
+
=item Core Layers
"unix", "perlio", "stdio", "crlf", "mmap", "pending", "raw", "utf8"
@@ -5057,6 +5074,8 @@
=back
+=item Unicode in %ENV
+
=item Recently done things
=over 4
@@ -7170,28 +7189,58 @@
=item HISTORY
+=back
+
+=head2 perlartistic -- the Perl Artistic License
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
=item The "Artistic License"
=over 4
=item Preamble
-Package, Standard Version, Copyright Holder, You, Reasonable copying fee,
-Freely Available
+=item Definitions
+
+"Package" refers to the collection of files distributed by the Copyright
+Holder, and derivatives of that collection of files created through textual
+modification, "Standard Version" refers to such a Package if it has not
+been modified, or has been modified in accordance with the wishes of the
+Copyright Holder as specified below, "Copyright Holder" is whoever is named
+in the copyright or copyrights for the package, "You" is you, if you're
+thinking about copying or distributing this Package, "Reasonable copying
+fee" is whatever you can justify on the basis of media cost, duplication
+charges, time of people involved, and so on. (You will not be required to
+justify it to the Copyright Holder, but only to the computing community at
+large as a market that must bear the fee.), "Freely Available" means that
+no fee is charged for the item itself, though there may be fees involved in
+handling the item. It also means that recipients of the item may
+redistribute it under the same conditions they received it
+
+=item Conditions
=back
=back
+=head2 perlgpl -- the GNU Public General Public License, version 2
+
=over 4
-=item GNU GENERAL PUBLIC LICENSE
+=item SYNOPSIS
+
+=back
=over 4
-=item The License Text
+=item DESCRIPTION
-=back
+=item GNU GENERAL PUBLIC LICENSE
=back
@@ -10802,46 +10851,47 @@
C<d_portable>, C<d_PRId64>, C<d_PRIeldbl>, C<d_PRIEUldbl>, C<d_PRIfldbl>,
C<d_PRIFUldbl>, C<d_PRIgldbl>, C<d_PRIGUldbl>, C<d_PRIi64>, C<d_PRIo64>,
C<d_PRIu64>, C<d_PRIx64>, C<d_PRIXU64>, C<d_procselfexe>,
-C<d_pthread_atfork>, C<d_pthread_yield>, C<d_pwage>, C<d_pwchange>,
-C<d_pwclass>, C<d_pwcomment>, C<d_pwexpire>, C<d_pwgecos>, C<d_pwpasswd>,
-C<d_pwquota>, C<d_qgcvt>, C<d_quad>, C<d_random_r>, C<d_readdir64_r>,
-C<d_readdir>, C<d_readdir_r>, C<d_readlink>, C<d_readv>, C<d_recvmsg>,
-C<d_rename>, C<d_rewinddir>, C<d_rmdir>, C<d_safebcpy>, C<d_safemcpy>,
-C<d_sanemcmp>, C<d_sbrkproto>, C<d_scalbnl>, C<d_sched_yield>,
-C<d_scm_rights>, C<d_SCNfldbl>, C<d_seekdir>, C<d_select>, C<d_sem>,
-C<d_semctl>, C<d_semctl_semid_ds>, C<d_semctl_semun>, C<d_semget>,
-C<d_semop>, C<d_sendmsg>, C<d_setegid>, C<d_seteuid>, C<d_setgrent>,
-C<d_setgrent_r>, C<d_setgrps>, C<d_sethent>, C<d_sethostent_r>,
-C<d_setitimer>, C<d_setlinebuf>, C<d_setlocale>, C<d_setlocale_r>,
-C<d_setnent>, C<d_setnetent_r>, C<d_setpent>, C<d_setpgid>, C<d_setpgrp2>,
-C<d_setpgrp>, C<d_setprior>, C<d_setproctitle>, C<d_setprotoent_r>,
-C<d_setpwent>, C<d_setpwent_r>, C<d_setregid>, C<d_setresgid>,
-C<d_setresuid>, C<d_setreuid>, C<d_setrgid>, C<d_setruid>, C<d_setsent>,
-C<d_setservent_r>, C<d_setsid>, C<d_setvbuf>, C<d_sfio>, C<d_shm>,
-C<d_shmat>, C<d_shmatprototype>, C<d_shmctl>, C<d_shmdt>, C<d_shmget>,
-C<d_sigaction>, C<d_sigprocmask>, C<d_sigsetjmp>, C<d_sockatmark>,
-C<d_sockatmarkproto>, C<d_socket>, C<d_socklen_t>, C<d_sockpair>,
-C<d_socks5_init>, C<d_sqrtl>, C<d_srand48_r>, C<d_srandom_r>,
-C<d_sresgproto>, C<d_sresuproto>, C<d_statblks>, C<d_statfs_f_flags>,
-C<d_statfs_s>, C<d_statvfs>, C<d_stdio_cnt_lval>, C<d_stdio_ptr_lval>,
-C<d_stdio_ptr_lval_nochange_cnt>, C<d_stdio_ptr_lval_sets_cnt>,
-C<d_stdio_stream_array>, C<d_stdiobase>, C<d_stdstdio>, C<d_strchr>,
-C<d_strcoll>, C<d_strctcpy>, C<d_strerrm>, C<d_strerror>, C<d_strerror_r>,
-C<d_strftime>, C<d_strtod>, C<d_strtol>, C<d_strtold>, C<d_strtoll>,
-C<d_strtoq>, C<d_strtoul>, C<d_strtoull>, C<d_strtouq>, C<d_strxfrm>,
-C<d_suidsafe>, C<d_symlink>, C<d_syscall>, C<d_syscallproto>, C<d_sysconf>,
-C<d_sysernlst>, C<d_syserrlst>, C<d_system>, C<d_tcgetpgrp>,
-C<d_tcsetpgrp>, C<d_telldir>, C<d_telldirproto>, C<d_time>, C<d_times>,
-C<d_tm_tm_gmtoff>, C<d_tm_tm_zone>, C<d_tmpnam_r>, C<d_truncate>,
-C<d_ttyname_r>, C<d_tzname>, C<d_u32align>, C<d_ualarm>, C<d_umask>,
-C<d_uname>, C<d_union_semun>, C<d_unordered>, C<d_usleep>,
-C<d_usleepproto>, C<d_ustat>, C<d_vendorarch>, C<d_vendorbin>,
-C<d_vendorlib>, C<d_vendorscript>, C<d_vfork>, C<d_void_closedir>,
-C<d_voidsig>, C<d_voidtty>, C<d_volatile>, C<d_vprintf>, C<d_wait4>,
-C<d_waitpid>, C<d_wcstombs>, C<d_wctomb>, C<d_writev>, C<d_xenix>, C<date>,
-C<db_hashtype>, C<db_prefixtype>, C<db_version_major>, C<db_version_minor>,
-C<db_version_patch>, C<defvoidused>, C<direntrytype>, C<dlext>, C<dlsrc>,
-C<doublesize>, C<drand01>, C<drand48_r_proto>, C<dynamic_ext>
+C<d_pthread_atfork>, C<d_pthread_attr_setscope>, C<d_pthread_yield>,
+C<d_pwage>, C<d_pwchange>, C<d_pwclass>, C<d_pwcomment>, C<d_pwexpire>,
+C<d_pwgecos>, C<d_pwpasswd>, C<d_pwquota>, C<d_qgcvt>, C<d_quad>,
+C<d_random_r>, C<d_readdir64_r>, C<d_readdir>, C<d_readdir_r>,
+C<d_readlink>, C<d_readv>, C<d_recvmsg>, C<d_rename>, C<d_rewinddir>,
+C<d_rmdir>, C<d_safebcpy>, C<d_safemcpy>, C<d_sanemcmp>, C<d_sbrkproto>,
+C<d_scalbnl>, C<d_sched_yield>, C<d_scm_rights>, C<d_SCNfldbl>,
+C<d_seekdir>, C<d_select>, C<d_sem>, C<d_semctl>, C<d_semctl_semid_ds>,
+C<d_semctl_semun>, C<d_semget>, C<d_semop>, C<d_sendmsg>, C<d_setegid>,
+C<d_seteuid>, C<d_setgrent>, C<d_setgrent_r>, C<d_setgrps>, C<d_sethent>,
+C<d_sethostent_r>, C<d_setitimer>, C<d_setlinebuf>, C<d_setlocale>,
+C<d_setlocale_r>, C<d_setnent>, C<d_setnetent_r>, C<d_setpent>,
+C<d_setpgid>, C<d_setpgrp2>, C<d_setpgrp>, C<d_setprior>,
+C<d_setproctitle>, C<d_setprotoent_r>, C<d_setpwent>, C<d_setpwent_r>,
+C<d_setregid>, C<d_setresgid>, C<d_setresuid>, C<d_setreuid>, C<d_setrgid>,
+C<d_setruid>, C<d_setsent>, C<d_setservent_r>, C<d_setsid>, C<d_setvbuf>,
+C<d_sfio>, C<d_shm>, C<d_shmat>, C<d_shmatprototype>, C<d_shmctl>,
+C<d_shmdt>, C<d_shmget>, C<d_sigaction>, C<d_sigprocmask>, C<d_sigsetjmp>,
+C<d_sockatmark>, C<d_sockatmarkproto>, C<d_socket>, C<d_socklen_t>,
+C<d_sockpair>, C<d_socks5_init>, C<d_sqrtl>, C<d_srand48_r>,
+C<d_srandom_r>, C<d_sresgproto>, C<d_sresuproto>, C<d_statblks>,
+C<d_statfs_f_flags>, C<d_statfs_s>, C<d_statvfs>, C<d_stdio_cnt_lval>,
+C<d_stdio_ptr_lval>, C<d_stdio_ptr_lval_nochange_cnt>,
+C<d_stdio_ptr_lval_sets_cnt>, C<d_stdio_stream_array>, C<d_stdiobase>,
+C<d_stdstdio>, C<d_strchr>, C<d_strcoll>, C<d_strctcpy>, C<d_strerrm>,
+C<d_strerror>, C<d_strerror_r>, C<d_strftime>, C<d_strtod>, C<d_strtol>,
+C<d_strtold>, C<d_strtoll>, C<d_strtoq>, C<d_strtoul>, C<d_strtoull>,
+C<d_strtouq>, C<d_strxfrm>, C<d_suidsafe>, C<d_symlink>, C<d_syscall>,
+C<d_syscallproto>, C<d_sysconf>, C<d_sysernlst>, C<d_syserrlst>,
+C<d_system>, C<d_tcgetpgrp>, C<d_tcsetpgrp>, C<d_telldir>,
+C<d_telldirproto>, C<d_time>, C<d_times>, C<d_tm_tm_gmtoff>,
+C<d_tm_tm_zone>, C<d_tmpnam_r>, C<d_truncate>, C<d_ttyname_r>, C<d_tzname>,
+C<d_u32align>, C<d_ualarm>, C<d_umask>, C<d_uname>, C<d_union_semun>,
+C<d_unordered>, C<d_usleep>, C<d_usleepproto>, C<d_ustat>, C<d_vendorarch>,
+C<d_vendorbin>, C<d_vendorlib>, C<d_vendorscript>, C<d_vfork>,
+C<d_void_closedir>, C<d_voidsig>, C<d_voidtty>, C<d_volatile>,
+C<d_vprintf>, C<d_wait4>, C<d_waitpid>, C<d_wcstombs>, C<d_wctomb>,
+C<d_writev>, C<d_xenix>, C<date>, C<db_hashtype>, C<db_prefixtype>,
+C<db_version_major>, C<db_version_minor>, C<db_version_patch>,
+C<defvoidused>, C<direntrytype>, C<dlext>, C<dlsrc>, C<doublesize>,
+C<drand01>, C<drand48_r_proto>, C<dynamic_ext>
=item e
@@ -11657,7 +11707,7 @@
=item Other methods defined in Encode::Encodings
--E<gt>name, -E<gt>new_sequence, -E<gt>perlio_ok(), -E<gt>needs_lines()
+-E<gt>name, -E<gt>renew, -E<gt>perlio_ok(), -E<gt>needs_lines()
=item Example: Encode::ROT13
@@ -11915,6 +11965,20 @@
=back
+=head2 Encode::Unicode::UTF7 -- UTF-7 encoding
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item In Practice
+
+=item SEE ALSO
+
+=back
+
=head2 Encode::lib::Encode::Alias, Encode::Alias - alias definitions to
encodings
@@ -11964,7 +12028,7 @@
=item Other methods defined in Encode::Encodings
--E<gt>name, -E<gt>new_sequence, -E<gt>perlio_ok(), -E<gt>needs_lines()
+-E<gt>name, -E<gt>renew, -E<gt>perlio_ok(), -E<gt>needs_lines()
=item Example: Encode::ROT13
@@ -12139,6 +12203,21 @@
=back
+=head2 Encode::lib::Encode::Unicode::UTF7, Encode::Unicode::UTF7 -- UTF-7
+encoding
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item In Practice
+
+=item SEE ALSO
+
+=back
+
=head2 Encode::lib::Encoder, Encode::Encoder -- Object Oriented Encoder
=over 4
@@ -13411,6 +13490,10 @@
Module::Build and how does it relate to MakeMaker?, pure perl. no make, no
shell commands, easier to customize, cleaner internals, less cruft
+=item Module Writing
+
+How do I keep my $VERSION up to date without resetting it manually?
+
=item XS
How to I prevent "object version X.XX does not match bootstrap parameter
@@ -13450,6 +13533,16 @@
=back
+=head2 ExtUtils::MakeMaker::bytes - Version agnostic bytes.pm
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
=head2 ExtUtils::MakeMaker::vmsish - Platform agnostic vmsish.pm
=over 4
@@ -13523,6 +13616,18 @@
=back
+=head2 ExtUtils::Miniperl, writemain - write the C code for perlmain.c
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
=head2 ExtUtils::Mkbootstrap - make a bootstrap file for use by DynaLoader
=over 4
@@ -13764,6 +13869,8 @@
=item DESCRIPTION
+=item DIAGNOSTICS
+
=item AUTHORS
=back
@@ -14382,9 +14489,14 @@
default, posix_default, auto_abbrev, getopt_compat, gnu_compat, gnu_getopt,
require_order, permute, bundling (default: disabled), bundling_override
(default: disabled), ignore_case (default: enabled), ignore_case_always
-(default: disabled), pass_through (default: disabled), prefix,
+(default: disabled), auto_version (default:disabled), auto_help
+(default:disabled), pass_through (default: disabled), prefix,
prefix_pattern, debug (default: disabled)
+=item Exportable Methods
+
+VersionMessage, C<-message>, C<-msg>, C<-exitval>, C<-output>, HelpMessage
+
=item Return values and Errors
=item Legacy
@@ -14410,6 +14522,8 @@
=item GetOptions does not split the command line correctly
+=item Undefined subroutine &main::GetOptions called
+
=item How do I put a "-?" option into a Getopt::Long?
=back
@@ -19699,6 +19813,8 @@
=item C<defer>, C<flush>, C<discard>, and C<autodefer>
+=item C<offset>
+
=back
=item Tying to an already-opened filehandle
@@ -19711,6 +19827,8 @@
=back
+=item CONCURRENT ACCESS TO FILES
+
=item CAVEATS
=item SUBCLASSING
@@ -19851,6 +19969,16 @@
=item EXAMPLES
=item C API
+
+=item DIAGNOSTICS
+
+=over 4
+
+=item negative time not invented yet
+
+=item internal error: useconds < 0 (unsigned ... signed ...)
+
+=back
=item CAVEATS
==== //depot/maint-5.8/perl/pp_ctl.c#26 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#25~19591~ Thu May 22 04:59:21 2003
+++ perl/pp_ctl.c Thu May 29 07:19:35 2003
@@ -2364,7 +2364,7 @@
switch (CxTYPE(cx)) {
case CXt_EVAL:
leaving_eval = TRUE;
- if (CxREALEVAL(cx)) {
+ if (!CxTRYBLOCK(cx)) {
gotoprobe = (last_eval_cx ?
last_eval_cx->blk_eval.old_eval_root :
PL_eval_root);
==== //depot/maint-5.8/perl/t/op/goto.t#5 (xtext) ====
Index: perl/t/op/goto.t
--- perl/t/op/goto.t#4~19611~ Sat May 24 00:50:43 2003
+++ perl/t/op/goto.t Thu May 29 07:19:35 2003
@@ -2,7 +2,14 @@
# "This IS structured code. It's just randomly structured."
-print "1..29\n";
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = qw(. ../lib);
+}
+
+print "1..30\n";
+
+require "test.pl";
while ($?) {
$foo = 1;
@@ -195,6 +202,24 @@
print "not " if !defined $x || $x != 1;
}
print "ok 29 - goto in for(;;) with continuation\n";
+
+# bug #22299 - goto in require doesn't find label
+
+open my $f, ">goto01.pm" or die;
+print $f <<'EOT';
+package goto01;
+goto YYY;
+die;
+YYY: print "OK\n";
+1;
+EOT
+close $f;
+
+curr_test(30);
+my $r = runperl(prog => 'use goto01; print qq[DONE\n]');
+is($r, "OK\nDONE\n", "goto within use-d file");
+unlink "goto01.pm";
+
exit;
==== //depot/maint-5.8/perl/win32/win32.c#9 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c#8~19515~ Tue May 13 10:51:05 2003
+++ perl/win32/win32.c Thu May 29 07:19:35 2003
@@ -506,7 +506,7 @@
* for).
*/
const char* defaultshell = (IsWinNT()
- ? "cmd.exe /x/c" : "command.com /c");
+ ? "cmd.exe /x/d/c" : "command.com /c");
const char *usershell = PerlEnv_getenv("PERL5SHELL");
w32_perlshell_items = tokenize(usershell ? usershell : defaultshell,
&w32_perlshell_tokens,
==== //depot/maint-5.8/perl/x2p/Makefile.SH#4 (xtext) ====
Index: perl/x2p/Makefile.SH
--- perl/x2p/Makefile.SH#3~18700~ Thu Feb 13 06:55:54 2003
+++ perl/x2p/Makefile.SH Thu May 29 07:19:35 2003
@@ -39,7 +39,7 @@
#mallocobj = $mallocobj
shellflags = $shellflags
-libs = $libs
+libs = $perllibs
$make_set_make
# grrr
End of Patch.
