Change 19919 by [EMAIL PROTECTED] on 2003/07/01 21:28:15
Integrate:
[ 19896]
Integrate #19892, #19895 from perlio to compile and avoid
crashing on Win32.
[ 19897]
Subject: Re: Subject: Problems: 5.8.1, Solaris, Configure, sched_yield(), -lrt
& -lposix4
From: Alan Burlison <[EMAIL PROTECTED]>
Date: Tue, 01 Jul 2003 00:03:24 +0100
Message-ID: <[EMAIL PROTECTED]>
[ 19898]
Rework Time::HiRes not to need HAS_NANOSLEEP from Configure.
[ 19899]
More nanosleep removal.
[ 19900]
Regen Configure.
[ 19902]
Regen Glossary et al.
[ 19903]
Switch on PERL_IMPLICIT_SYS, not on Win32.
[ 19906]
Do the "aligned contiguous" check only if the arguments
look like aligned; re-introduce the "traditional contiguous"
checks with OS/2 special quirks and all.
[ 19910]
Integrate from perlio:
[ 19909]
binmode() should affect IoOFP() as well as IoIFP() if it is
distinct (e.g. sockets).
[ 19911]
Tweak an existing IO test to test also the change #19910.
[ 19912]
One more test (does binmode()ing a socket succeed)
and add -w.
[ 19913]
Even more :utf8 socket testing, now in both directions.
[ 19914]
A naked values() caused shuffling of lib/Config.pm,
which in turn caused unnecessary rebuilds.
[ 19915]
Upgrade to Unicode::Normalize 0.23.
[ 19916]
Subject: [PATCH] B:: fixes + 'When were CVOPs gone ?'
From: Enache Adrian <[EMAIL PROTECTED]>
Date: Tue, 1 Jul 2003 19:51:25 +0300
Message-ID: <[EMAIL PROTECTED]>
[ 19917]
Subject: [PATCH] long C<=item>s in pod/perlunicode.pod
From: Robin Barker <[EMAIL PROTECTED]>
Date: Tue, 1 Jul 2003 18:21:34 +0100
Message-ID: <[EMAIL PROTECTED]>
Subject: [PATCH] long C<=item>s in lib/CGI.pm
From: Robin Barker <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 1 Jul 2003 18:25:17 +0100
Subject: [PATCH] long <=item>s in lib/ExtUtils/MakeMaker/FAQ.pod
From: Robin Barker <[EMAIL PROTECTED]>
Date: Tue, 1 Jul 2003 18:29:09 +0100
Message-ID: <[EMAIL PROTECTED]>
[ 19918]
Add a new utility, Porting/Modules.
Affected files ...
... //depot/maint-5.8/perl/Configure#39 edit
... //depot/maint-5.8/perl/Cross/config.sh-arm-linux#5 integrate
... //depot/maint-5.8/perl/MANIFEST#64 integrate
... //depot/maint-5.8/perl/Makefile.SH#16 integrate
... //depot/maint-5.8/perl/NetWare/config_H.wc#10 integrate
... //depot/maint-5.8/perl/Porting/Modules#1 branch
... //depot/maint-5.8/perl/config_h.SH#19 edit
... //depot/maint-5.8/perl/configpm#5 integrate
... //depot/maint-5.8/perl/configure.com#15 integrate
... //depot/maint-5.8/perl/epoc/config.sh#6 integrate
... //depot/maint-5.8/perl/ext/B/B.pm#8 integrate
... //depot/maint-5.8/perl/ext/B/B.xs#7 integrate
... //depot/maint-5.8/perl/ext/B/B/Debug.pm#5 integrate
... //depot/maint-5.8/perl/ext/B/defsubs_h.PL#3 integrate
... //depot/maint-5.8/perl/ext/B/typemap#3 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/t/io_sock.t#4 integrate
... //depot/maint-5.8/perl/ext/Time/HiRes/HiRes.xs#7 integrate
... //depot/maint-5.8/perl/ext/Time/HiRes/Makefile.PL#15 integrate
... //depot/maint-5.8/perl/ext/Time/HiRes/hints/dec_osf.pl#1 branch
... //depot/maint-5.8/perl/ext/Time/HiRes/hints/sco.pl#2 integrate
... //depot/maint-5.8/perl/ext/Unicode/Normalize/Changes#5 integrate
... //depot/maint-5.8/perl/ext/Unicode/Normalize/Normalize.pm#6 integrate
... //depot/maint-5.8/perl/ext/Unicode/Normalize/Normalize.xs#4 integrate
... //depot/maint-5.8/perl/hints/solaris_2.sh#5 integrate
... //depot/maint-5.8/perl/hints/vos.sh#3 integrate
... //depot/maint-5.8/perl/lib/CGI.pm#5 integrate
... //depot/maint-5.8/perl/lib/ExtUtils/MakeMaker/FAQ.pod#5 integrate
... //depot/maint-5.8/perl/perl.c#38 integrate
... //depot/maint-5.8/perl/perl.h#36 integrate
... //depot/maint-5.8/perl/pod/perlunicode.pod#10 integrate
... //depot/maint-5.8/perl/pp_sys.c#26 integrate
... //depot/maint-5.8/perl/t/op/magic.t#13 integrate
... //depot/maint-5.8/perl/uconfig.h#7 integrate
... //depot/maint-5.8/perl/uconfig.sh#6 integrate
... //depot/maint-5.8/perl/win32/config.gc#8 integrate
... //depot/maint-5.8/perl/win32/config.vc#8 integrate
... //depot/maint-5.8/perl/win32/config.vc64#8 integrate
... //depot/maint-5.8/perl/win32/config_H.bc#12 integrate
... //depot/maint-5.8/perl/win32/config_H.gc#12 integrate
... //depot/maint-5.8/perl/win32/config_H.vc#12 integrate
... //depot/maint-5.8/perl/win32/config_H.vc64#12 integrate
... //depot/maint-5.8/perl/wince/config.ce#7 integrate
... //depot/maint-5.8/perl/wince/config_H.ce#10 integrate
Differences ...
==== //depot/maint-5.8/perl/Configure#39 (xtext) ====
Index: perl/Configure
--- perl/Configure#38~19762~ Fri Jun 13 05:09:16 2003
+++ perl/Configure Tue Jul 1 14:28:15 2003
@@ -20,7 +20,7 @@
# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Mon Jun 9 21:56:43 EET DST 2003 [metaconfig 3.0 PL70]
+# Generated on Wed Jul 2 01:34:50 EEST 2003 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by [EMAIL PROTECTED])
cat >c1$$ <<EOF
@@ -1267,11 +1267,9 @@
: set usethreads on the Configure command line to enable threads.
usereentrant='undef'
: List of libraries we want.
-: If anyone needs -lnet, put it in a hint file.
-libswanted='sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl'
-libswanted="$libswanted dld ld sun m c cposix posix"
-libswanted="$libswanted ndir dir crypt sec"
-libswanted="$libswanted ucb bsd BSD PW x util rt posix4"
+: If anyone needs extra -lxxx, put those in a hint file.
+libswanted="sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun"
+libswanted="$libswanted m crypt sec util c cposix posix ucb bsd BSD"
: We probably want to search /usr/shlib before most other libraries.
: This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist.
glibpth=`echo " $glibpth " | sed -e 's! /usr/shlib ! !'`
==== //depot/maint-5.8/perl/Cross/config.sh-arm-linux#5 (text) ====
Index: perl/Cross/config.sh-arm-linux
--- perl/Cross/config.sh-arm-linux#4~19754~ Thu Jun 12 21:54:04 2003
+++ perl/Cross/config.sh-arm-linux Tue Jul 1 14:28:15 2003
@@ -310,7 +310,6 @@
d_msync='define'
d_munmap='define'
d_mymalloc='undef'
-d_nanosleep='define'
d_nice='define'
d_nl_langinfo='define'
d_nv_preserves_uv='define'
==== //depot/maint-5.8/perl/MANIFEST#64 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#63~19844~ Sun Jun 22 12:38:58 2003
+++ perl/MANIFEST Tue Jul 1 14:28:15 2003
@@ -732,8 +732,9 @@
ext/threads/threads.xs ithreads
ext/threads/typemap ithreads
ext/Time/HiRes/Changes Time::HiRes extension
-ext/Time/HiRes/fallback/const-c.inc Time::HiRes extension fallback code
-ext/Time/HiRes/fallback/const-xs.inc Time::HiRes extension fallback code
+ext/Time/HiRes/fallback/const-c.inc Time::HiRes extension
+ext/Time/HiRes/fallback/const-xs.inc Time::HiRes extension
+ext/Time/HiRes/hints/dec_osf.pl Hint for Time::HiRes for named
architecture
ext/Time/HiRes/hints/dynixptx.pl Hint for Time::HiRes for named architecture
ext/Time/HiRes/hints/irix.pl Hint for Time::HiRes for named architecture
ext/Time/HiRes/hints/sco.pl Hints for Time::HiRes for named architecture
@@ -2379,6 +2380,7 @@
Porting/Glossary Glossary of config.sh variables
Porting/makerel Release making utility
Porting/manicheck Check against MANIFEST
+Porting/Modules List which files belong to which CPAN modules
Porting/p4d2p Generate patch from p4 diff
Porting/p4genpatch Generate patch from p4 change in repository (obsoletes p4desc)
Porting/patching.pod How to report changes made to Perl
==== //depot/maint-5.8/perl/Makefile.SH#16 (text) ====
Index: perl/Makefile.SH
--- perl/Makefile.SH#15~19551~ Sun May 18 00:55:50 2003
+++ perl/Makefile.SH Tue Jul 1 14:28:15 2003
@@ -494,7 +494,7 @@
case "$useshrplib" in
true)
$spitshell >>Makefile <<'!NO!SUBS!'
- $(LD) -o $@ $(SHRPLDFLAGS) perl$(OBJ_EXT) $(obj)
+ $(LD) -o $@ $(SHRPLDFLAGS) perl$(OBJ_EXT) $(obj) $(libs)
!NO!SUBS!
case "$osname" in
aix)
==== //depot/maint-5.8/perl/NetWare/config_H.wc#10 (text) ====
Index: perl/NetWare/config_H.wc
--- perl/NetWare/config_H.wc#9~19611~ Sat May 24 00:50:43 2003
+++ perl/NetWare/config_H.wc Tue Jul 1 14:28:15 2003
@@ -648,12 +648,6 @@
*/
/*#define HAS_USLEEP /**/
-/* HAS_NANOSLEEP:
- * This symbol, if defined, indicates that the nanosleep system
- * call is available to let the process sleep with 1E-9 accuracy.
- */
-/*#define HAS_NANOSLEEP /**/
-
/* HASVOLATILE:
* This symbol, if defined, indicates that this C compiler knows about
* the volatile declaration.
==== //depot/maint-5.8/perl/Porting/Modules#1 (text) ====
Index: perl/Porting/Modules
--- /dev/null Tue May 5 13:32:27 1998
+++ perl/Porting/Modules Tue Jul 1 14:28:15 2003
@@ -0,0 +1,428 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use vars qw($Maintainers $Modules);
+
+$Maintainers =
+ {
+ 'ams' => 'Abhijit Menon-Sen <[EMAIL PROTECTED]>',
+ 'andreas' => 'Andreas J. Koenig <[EMAIL PROTECTED]>',
+ 'arthur' => 'Arthur Bergman <[EMAIL PROTECTED]>',
+ 'bbb' => 'Rob Brown <[EMAIL PROTECTED]>',
+ 'damian' => 'Damian Conway <[EMAIL PROTECTED]>',
+ 'dankogai' => 'Dan Kogai <[EMAIL PROTECTED]>',
+ 'gbarr' => 'Graham Barr <[EMAIL PROTECTED]>',
+ 'gisle' => 'Gisle Aas <[EMAIL PROTECTED]>',
+ 'ilyaz' => 'Ilya Zakharevich <[EMAIL PROTECTED]>',
+ 'jhi' => 'Jarkko Hietaniemi <[EMAIL PROTECTED]>',
+ 'jns' => 'Jonathan Stowe <[EMAIL PROTECTED]>',
+ 'jvromans' => 'Johan Vromans <[EMAIL PROTECTED]>',
+ 'lstein' => 'Lincoln D. Stein <[EMAIL PROTECTED]>',
+ 'mjd' => 'Mark-Jason Dominus <[EMAIL PROTECTED]>',
+ 'muir' => 'David Muir Sharnoff <[EMAIL PROTECTED]>',
+ 'neilb' => 'Neil Bowers <[EMAIL PROTECTED]>',
+ 'rra' => 'Russ Allbery <[EMAIL PROTECTED]>',
+ 'pmarquess' => 'Paul Marquess <[EMAIL PROTECTED]>',
+ 'sadahiro' => 'SADAHIRO Tomoyuki <[EMAIL PROTECTED]>',
+ 'sburke' => 'Sean Burke <[EMAIL PROTECTED]>',
+ 'schwern' => 'Michael Schwern <[EMAIL PROTECTED]>',
+ 'tels' => 'Tels a t bloodgate.com',
+ 'tjenness' => 'Tim Jenness <[EMAIL PROTECTED]>'
+ };
+
+$Modules = {
+
+ 'Attribute::Handlers' =>
+ {
+ 'MAINTAINER' => 'arthur',
+ 'FILES' =>
+ q[lib/Attribute/Handlers.pm lib/Attribute/Handlers],
+ },
+
+ 'bignum' =>
+ {
+ 'MAINTAINER' => 'tels',
+ 'FILES' => q[lib/big{int,num,rat}.pm lib/bignum],
+ },
+
+ 'CGI' =>
+ {
+ 'MAINTAINER' => 'lstein',
+ 'FILES' => q[lib/CGI.pm lib/CGI],
+ },
+
+ 'Class::ISA' =>
+ {
+ 'MAINTAINER' => 'sburke',
+ 'FILES' => q[lib/Class/ISA.pm lib/Class/ISA],
+ },
+
+ 'CPAN' =>
+ {
+ 'MAINTAINER' => 'andreas',
+ 'FILES' => q[lib/CPAN.pm lib/CPAN],
+ },
+
+# Data::Dumper is not here, Sarathy has given up the maintenance
+# and Data::Dumper should be considered a part of the Perl core.
+
+ 'DB::File' =>
+ {
+ 'MAINTAINER' => 'pmarquess',
+ 'FILES' => q[ext/DB_File],
+ },
+
+ 'Devel::PPPort' =>
+ {
+ 'MAINTAINER' => 'pmarquess',
+ 'FILES' => q[ext/Devel/PPPort],
+ },
+
+ 'Digest' =>
+ {
+ 'MAINTAINER' => 'gisle',
+ 'FILES' => q[lib/Digest.{pm,t}],
+ },
+
+ 'Digest::MD5' =>
+ {
+ 'MAINTAINER' => 'gisle',
+ 'FILES' => q[ext/Digest/MD5],
+ },
+
+ 'Encode' =>
+ {
+ 'MAINTAINER' => 'dankogai',
+ 'FILES' => q[ext/Encode],
+ },
+
+# Errno is not here, Graham has given up the maintenance
+# and Errno should be considered a part of the Perl core.
+
+ 'ExtUtils::MakeMaker' =>
+ {
+ 'MAINTAINER' => 'schwern',
+ 'FILES' => q[lib/ExtUtils/MakeMaker],
+ },
+
+ 'File::Temp' =>
+ {
+ 'MAINTAINER' => 'tjenness',
+ 'FILES' => q[lib/File/Temp.pm lib/File/Temp],
+ },
+
+ 'Filter::Simple' =>
+ {
+ 'MAINTAINER' => 'damian',
+ 'FILES' => q[lib/Filter/Simple.pm lib/Filter/Simple],
+ },
+
+ 'Filter::Util::Call' =>
+ {
+ 'MAINTAINER' => 'pmarquess',
+ 'FILES' => q[ext/Filter/Util/Call],
+ },
+
+ 'Getopt::Long' =>
+ {
+ 'MAINTAINER' => 'jvromans',
+ 'FILES' => q[lib/Getopt/Long.pm lib/Getopt/Long],
+ },
+
+ 'I18N::LangTags' =>
+ {
+ 'MAINTAINER' => 'sburke',
+ 'FILES' => q[lib/I18N/LangTags.pm lib/I18N/LangTags],
+ },
+
+ 'if' =>
+ {
+ 'MAINTAINER' => 'ilyaz',
+ 'FILES' => q[lib/if.{pm,t}],
+ },
+
+# IO is not here, Graham has given up the maintenance
+# and IO should be considered a part of the Perl core.
+
+ 'libnet' =>
+ {
+ 'MAINTAINER' => 'gbarr',
+ 'FILES' =>
+ q[lib/Net/{Cmd,Domain,FTP,Netrc,NNTP,POP3,SMTP,Time}.pm
lib/Net/ChangeLog.libnet lib/Net/FTP lib/Net/*.eg lib/Net/libnetFAQ.pod
lib/Net/README.libnet lib/Net/t],
+ },
+
+ 'Scalar-List-Util' =>
+ {
+ 'MAINTAINER' => 'gbarr',
+ 'FILES' => q[ext/List/Util],
+ },
+
+ 'Locale::Codes' =>
+ {
+ 'MAINTAINER' => 'neilb',
+ 'FILES' => q[lib/Locale/{Country,Currency,Language}],
+ },
+
+ 'Locale::Maketext' =>
+ {
+ 'MAINTAINER' => 'sburke',
+ 'FILES' => q[lib/Locale/Maketext.pm lib/Locale/Maketext],
+ },
+
+ 'Math::BigFloat' =>
+ {
+ 'MAINTAINER' => 'tels',
+ 'FILES' => q[lib/Math/BigFloat.pm lib/Math/BigFloat],
+ },
+
+ 'Math::BigInt' =>
+ {
+ 'MAINTAINER' => 'tels',
+ 'FILES' => q[lib/Math/BigInt.pm lib/Math/BigInt],
+ },
+
+ 'Math::BigRat' =>
+ {
+ 'MAINTAINER' => 'tels',
+ 'FILES' => q[lib/Math/BigRat.pm lib/Math/BigRat],
+ },
+
+ 'Memoize' =>
+ {
+ 'MAINTAINER' => 'mjd',
+ 'FILES' => q[lib/Memoize.pm lib/Memoize],
+ },
+
+ 'MIME::Base64' =>
+ {
+ 'MAINTAINER' => 'gisle',
+ 'FILES' => q[ext/MIME/Base64],
+ },
+
+ 'Net::Ping' =>
+ {
+ 'MAINTAINER' => 'bbb',
+ 'FILES' => q[lib/Net/Ping.pm lib/Net/Ping],
+ },
+
+ 'NEXT' =>
+ {
+ 'MAINTAINER' => 'damian',
+ 'FILES' => q[lib/NEXT.pm lib/NEXT],
+ },
+
+# The PerlIO::* are part of Perl core.
+
+ 'podlators' =>
+ {
+ 'MAINTAINER' => 'rra',
+ 'FILES' =>
q[lib/Pod/{Html,Man,ParseLink,Text,Text/{Color,Overstrike,Termcap}}.pm pod/pod2man.PL
pod/pod2text.PL lib/Pod/t/{basic.*,{basic,man,parselink,text*}.t}],
+ },
+
+ 'Storable' =>
+ {
+ 'MAINTAINER' => 'ams',
+ 'FILES' => q[ext/Storable],
+ },
+
+ 'Switch' =>
+ {
+ 'MAINTAINER' => 'damian',
+ 'FILES' => q[lib/Switch.pm lib/Switch],
+ },
+
+ 'TabsWrap' =>
+ {
+ 'MAINTAINER' => 'muir',
+ 'FILES' =>
+ q[lib/Text/{Tabs,Wrap}.pm lib/Text/TabsWrap],
+ },
+
+ 'Text::Balanced' =>
+ {
+ 'MAINTAINER' => 'damian',
+ 'FILES' => q[lib/Text/Balanced.pm lib/Text/Balanced],
+ },
+
+ 'Term::ANSIColor' =>
+ {
+ 'MAINTAINER' => 'rra',
+ 'FILES' => q[lib/Term/ANSIColor.pm lib/Term/ANSIColor],
+ },
+
+ 'Test::Builder' =>
+ {
+ 'MAINTAINER' => 'schwern',
+ 'FILES' => q[lib/Test/Builder.pm],
+ },
+
+ 'Test::Harness' =>
+ {
+ 'MAINTAINER' => 'schwern',
+ 'FILES' => q[lib/Test/Harness.pm lib/Test/Harness],
+ },
+
+ 'Test::More' =>
+ {
+ 'MAINTAINER' => 'schwern',
+ 'FILES' => q[lib/Test/More.pm],
+ },
+
+ 'Test::Simple' =>
+ {
+ 'MAINTAINER' => 'schwern',
+ 'FILES' => q[lib/Test/Simple.pm lib/Test/Simple],
+ },
+
+ 'Term::Cap' =>
+ {
+ 'MAINTAINER' => 'jns',
+ 'FILES' => q[lib/Term/Cap.{pm,t}],
+ },
+
+
+ 'threads' =>
+ {
+ 'MAINTAINER' => 'arthur',
+ 'FILES' => q[ext/threads],
+ },
+
+ 'Tie::File' =>
+ {
+ 'MAINTAINER' => 'mjd',
+ 'FILES' => q[lib/Tie/File.pm lib/Tie/File],
+ },
+
+ 'Time::HiRes' =>
+ {
+ 'MAINTAINER' => 'jhi',
+ 'FILES' => q[ext/Time/HiRes],
+ },
+
+ 'Unicode::Collate' =>
+ {
+ 'MAINTAINER' => 'sadahiro',
+ 'FILES' =>
+ q[lib/Unicode/Collate.pm lib/Unicode/Collate],
+ },
+
+ 'Unicode::Normalize' =>
+ {
+ 'MAINTAINER' => 'sadahiro',
+ 'FILES' => q[ext/Unicode/Normalize],
+ },
+
+ };
+
+# Sanity check.
+
+use Getopt::Long;
+use File::Find;
+
+my $All;
+my $Maintainer;
+my $Module;
+my %ModuleByFile;
+my %FilesByModule;
+
+sub usage {
+ print <<__EOF__;
+$0: Usage: $0 [--all|--maintainer M|--module M|file ...]
+$0 --all lists all the modules and their files
+$0 --maintainer M lists all the modules of maintainer
+$0 --module M lists all the files of the modules
+The matching of maintainer names is done both on the short name
+and the full name.
+__EOF__
+ exit(0);
+}
+
+usage() unless
+ GetOptions(
+ 'all' => \$All,
+ 'maintainer=s' => \$Maintainer,
+ 'module=s' => \$Module,
+ );
+
+if (defined $Maintainer) {
+ unless (exists $Maintainers->{$Maintainer}) {
+ my @m;
+ for my $m (sort keys %$Maintainers) {
+ if ($m =~ /$Maintainer/i ||
+ $Maintainers->{$m} =~ /$Maintainer/i) {
+ push @m, $m;
+ }
+ }
+ if (@m) {
+ if (@m == 1) {
+ $Maintainer = $m[0];
+ } else {
+ die "$0: more than one match for '$Maintainer': @m\n";
+ }
+ } else {
+ die "$0: no matches for maintainer '$Maintainer'\n";
+ }
+ }
+}
+
+print "$0: maintainer '$Maintainers->{$Maintainer}'\n" if defined $Maintainer;
+
+my @Files = @ARGV;
+
+usage() unless @Files || $All || $Maintainer || $Module;
+
+for my $module (sort { lc $a cmp lc $b } keys %$Modules) {
+ next if defined $Module && $Module ne $module;
+ warn "$0: Module '$module' missing MAINTAINER\n"
+ unless exists $Modules->{$module}->{MAINTAINER};
+ my $maintainer = $Modules->{$module}->{MAINTAINER};
+ next if defined $Maintainer && $Maintainer ne $maintainer;
+ warn "$0: Module '$module' missing FILES\n"
+ unless exists $Modules->{$module}->{FILES};
+ my $files = $Modules->{$module}->{FILES};
+ warn "$0: Module '$module' maintainer '$maintainer' unknown\n"
+ unless exists $Maintainers->{$maintainer};
+ my @files =
+ sort { lc $a cmp lc $b }
+ map { -d $_ ?
+ do { my @files;
+ find(sub{ push @files, $File::Find::name if -f $_ },
+ $_); @files } :
+ -f $_ ? $_ : glob($_)
+ } split(' ', $files);
+ $FilesByModule{$module} = [ @files ];
+ $ModuleByFile{$_} = $module for @files;
+ print "$module\n" if $Maintainer;
+ print "$module @files\n" if $All || $Module;
+}
+
+if (@Files) {
+ for my $file (@Files) {
+ my $module;
+ if (-f $file) {
+ $module =
+ [ exists $ModuleByFile{$file} ? $ModuleByFile{$file} : '-' ];
+ } elsif (-d $file) {
+ # Show the modules that have the most matches.
+ my %m;
+ for my $module (keys %$Modules) {
+ my @m = grep { m:^$file/:i } @{$FilesByModule{$module}};
+ $m{$module} = @m;
+ }
+ my @m = sort { $m{$b} <=> $m{$a} } keys %m;
+ if ($m{$m[0]}) {
+ $module = [ shift @m ];
+ push @$module, shift @m
+ while @m && $m{$m[0]} == $m{$module->[0]};
+ }
+ }
+ if (defined $module) {
+ print "$file @$module\n";
+ } else {
+ warn "$0: no module matches for file '$file'\n";
+ }
+ }
+}
+
+exit(0);
==== //depot/maint-5.8/perl/configpm#5 (xtext) ====
Index: perl/configpm
--- perl/configpm#4~18783~ Wed Feb 26 11:39:59 2003
+++ perl/configpm Tue Jul 1 14:28:15 2003
@@ -406,7 +406,7 @@
}
my $fast_config = join '', map { " $_,\n" }
- values (%v_fast), 'byteorder => $value' ;
+ sort values (%v_fast), 'byteorder => $value' ;
print CONFIG sprintf <<'ENDOFTIE', $byteorder_code, $fast_config;
==== //depot/maint-5.8/perl/configure.com#15 (text) ====
Index: perl/configure.com
--- perl/configure.com#14~19722~ Mon Jun 9 10:52:25 2003
+++ perl/configure.com Tue Jul 1 14:28:15 2003
@@ -5529,7 +5529,6 @@
$ WC "d_unordered='undef'"
$ WC "d_usleep='" + d_usleep + "'"
$ WC "d_usleepproto='" + d_usleep + "'"
-$ WC "d_nanosleep='undef'"
$ WC "d_ustat='undef'"
$ WC "d_vendorarch='undef'"
$ WC "d_vendorlib='undef'"
==== //depot/maint-5.8/perl/epoc/config.sh#6 (text) ====
Index: perl/epoc/config.sh
--- perl/epoc/config.sh#5~19611~ Sat May 24 00:50:43 2003
+++ perl/epoc/config.sh Tue Jul 1 14:28:15 2003
@@ -922,7 +922,6 @@
d_statfs_f_flags='undef'
d_statfs_s='undef'
d_usleep='undef'
-d_nanosleep='undef'
d_ustat='undef'
i_sysstatfs='undef'
i_sysvfs='undef'
==== //depot/maint-5.8/perl/ext/B/B.pm#8 (text) ====
Index: perl/ext/B/B.pm
--- perl/ext/B/B.pm#7~19891~ Mon Jun 30 02:39:29 2003
+++ perl/ext/B/B.pm Tue Jul 1 14:28:15 2003
@@ -21,7 +21,9 @@
amagic_generation perlstring
walkoptree_slow walkoptree walkoptree_exec walksymtable
parents comppadlist sv_undef compile_stats timing_info
- begin_av init_av check_av end_av regex_padav);
+ begin_av init_av check_av end_av regex_padav dowarn
+ defstash curstash warnhook diehook inc_gv
+ );
sub OPf_KIDS ();
use strict;
@@ -51,7 +53,6 @@
@B::SVOP::ISA = 'B::OP';
@B::PADOP::ISA = 'B::OP';
@B::PVOP::ISA = 'B::OP';
[EMAIL PROTECTED]::CVOP::ISA = 'B::OP';
@B::LOOP::ISA = 'B::LISTOP';
@B::PMOP::ISA = 'B::LISTOP';
@B::COP::ISA = 'B::OP';
@@ -880,7 +881,7 @@
=head2 OP-RELATED CLASSES
C<B::OP>, C<B::UNOP>, C<B::BINOP>, C<B::LOGOP>, C<B::LISTOP>, C<B::PMOP>,
-C<B::SVOP>, C<B::PADOP>, C<B::PVOP>, C<B::CVOP>, C<B::LOOP>, C<B::COP>.
+C<B::SVOP>, C<B::PADOP>, C<B::PVOP>, C<B::LOOP>, C<B::COP>.
These classes correspond in the obvious way to the underlying C
structures of similar names. The inheritance hierarchy mimics the
@@ -888,9 +889,9 @@
B::OP
|
- +---------------+--------+--------+------+
- | | | | |
- B::UNOP B::SVOP B::PADOP B::CVOP B::COP
+ +---------------+--------+--------+
+ | | | |
+ B::UNOP B::SVOP B::PADOP B::COP
,' `-.
/ `--.
B::BINOP B::LOGOP
@@ -990,7 +991,7 @@
=item precomp
-=item pmoffet
+=item pmoffset
Only when perl was compiled with ithreads.
==== //depot/maint-5.8/perl/ext/B/B.xs#7 (text) ====
Index: perl/ext/B/B.xs
--- perl/ext/B/B.xs#6~18866~ Sun Mar 9 05:59:01 2003
+++ perl/ext/B/B.xs Tue Jul 1 14:28:15 2003
@@ -49,9 +49,8 @@
OPc_SVOP, /* 7 */
OPc_PADOP, /* 8 */
OPc_PVOP, /* 9 */
- OPc_CVOP, /* 10 */
- OPc_LOOP, /* 11 */
- OPc_COP /* 12 */
+ OPc_LOOP, /* 10 */
+ OPc_COP /* 11 */
} opclass;
static char *opclassnames[] = {
@@ -65,11 +64,25 @@
"B::SVOP",
"B::PADOP",
"B::PVOP",
- "B::CVOP",
"B::LOOP",
"B::COP"
};
+static size_t opsizes[] = {
+ 0,
+ sizeof(OP),
+ sizeof(UNOP),
+ sizeof(BINOP),
+ sizeof(LOGOP),
+ sizeof(LISTOP),
+ sizeof(PMOP),
+ sizeof(SVOP),
+ sizeof(PADOP),
+ sizeof(PVOP),
+ sizeof(LOOP),
+ sizeof(COP)
+};
+
#define MY_CXT_KEY "B::_guts" XS_VERSION
typedef struct {
@@ -447,12 +460,16 @@
#define B_main_cv() PL_main_cv
#define B_init_av() PL_initav
+#define B_inc_gv() PL_incgv
#define B_check_av() PL_checkav_save
#define B_begin_av() PL_beginav_save
#define B_end_av() PL_endav
#define B_main_root() PL_main_root
#define B_main_start() PL_main_start
#define B_amagic_generation() PL_amagic_generation
+#define B_defstash() PL_defstash
+#define B_curstash() PL_curstash
+#define B_dowarn() PL_dowarn
#define B_comppadlist() (PL_main_cv ? CvPADLIST(PL_main_cv) :
CvPADLIST(PL_compcv))
#define B_sv_undef() &PL_sv_undef
#define B_sv_yes() &PL_sv_yes
@@ -473,6 +490,9 @@
B::AV
B_end_av()
+B::GV
+B_inc_gv()
+
#ifdef USE_ITHREADS
B::AV
@@ -504,8 +524,26 @@
B::SV
B_sv_no()
-MODULE = B PACKAGE = B
+B::HV
+B_curstash()
+
+B::HV
+B_defstash()
+U8
+B_dowarn()
+
+void
+B_warnhook()
+ CODE:
+ ST(0) = make_sv_object(aTHX_ sv_newmortal(), PL_warnhook);
+
+void
+B_diehook()
+ CODE:
+ ST(0) = make_sv_object(aTHX_ sv_newmortal(), PL_diehook);
+
+MODULE = B PACKAGE = B
void
walkoptree(opsv, method)
@@ -647,6 +685,14 @@
MODULE = B PACKAGE = B::OP PREFIX = OP_
+size_t
+OP_size(o)
+ B::OP o
+ CODE:
+ RETVAL = opsizes[cc_opclass(aTHX_ o)];
+ OUTPUT:
+ RETVAL
+
B::OP
OP_next(o)
B::OP o
@@ -747,6 +793,9 @@
#define PMOP_pmregexp(o) PM_GETRE(o)
#ifdef USE_ITHREADS
#define PMOP_pmoffset(o) o->op_pmoffset
+#define PMOP_pmstashpv(o) o->op_pmstashpv
+#else
+#define PMOP_pmstash(o) o->op_pmstash
#endif
#define PMOP_pmflags(o) o->op_pmflags
#define PMOP_pmpermflags(o) o->op_pmpermflags
@@ -789,6 +838,16 @@
PMOP_pmoffset(o)
B::PMOP o
+char*
+PMOP_pmstashpv(o)
+ B::PMOP o
+
+#else
+
+B::HV
+PMOP_pmstash(o)
+ B::PMOP o
+
#endif
U32
@@ -937,6 +996,12 @@
COP_io(o)
B::COP o
+MODULE = B PACKAGE = B::SV
+
+U32
+SvTYPE(sv)
+ B::SV sv
+
MODULE = B PACKAGE = B::SV PREFIX = Sv
U32
@@ -947,6 +1012,18 @@
SvFLAGS(sv)
B::SV sv
+U32
+SvPOK(sv)
+ B::SV sv
+
+U32
+SvROK(sv)
+ B::SV sv
+
+U32
+SvMAGICAL(sv)
+ B::SV sv
+
MODULE = B PACKAGE = B::IV PREFIX = Sv
IV
@@ -1046,6 +1123,15 @@
sv_setpvn(ST(0), NULL, 0);
}
+void
+SvPVBM(sv)
+ B::PV sv
+ CODE:
+ ST(0) = sv_newmortal();
+ sv_setpvn(ST(0), SvPVX(sv),
+ SvCUR(sv) + (SvTYPE(sv) == SVt_PVBM ? 257 : 0));
+
+
STRLEN
SvLEN(sv)
B::PV sv
@@ -1108,15 +1194,6 @@
B::SV
MgOBJ(mg)
B::MAGIC mg
- CODE:
- if( mg->mg_type != 'r' ) {
- RETVAL = MgOBJ(mg);
- }
- else {
- croak( "OBJ is not meaningful on r-magic" );
- }
- OUTPUT:
- RETVAL
IV
MgREGEX(mg)
@@ -1158,9 +1235,9 @@
if (mg->mg_ptr){
if (mg->mg_len >= 0){
sv_setpvn(ST(0), mg->mg_ptr, mg->mg_len);
- } else {
- if (mg->mg_len == HEf_SVKEY)
- sv_setsv(ST(0),newRV((SV*)mg->mg_ptr));
+ } else if (mg->mg_len == HEf_SVKEY) {
+ ST(0) = make_sv_object(aTHX_
+ sv_newmortal(), (SV*)mg->mg_ptr);
}
}
@@ -1222,6 +1299,10 @@
OUTPUT:
RETVAL
+void*
+GvGP(gv)
+ B::GV gv
+
B::HV
GvSTASH(gv)
B::GV gv
@@ -1394,6 +1475,10 @@
MODULE = B PACKAGE = B::CV PREFIX = Cv
+U32
+CvCONST(cv)
+ B::CV cv
+
B::HV
CvSTASH(cv)
B::CV cv
@@ -1442,8 +1527,8 @@
B::CV cv
CODE:
ST(0) = CvCONST(cv) ?
- make_sv_object(aTHX_ sv_newmortal(),CvXSUBANY(cv).any_ptr) :
- sv_2mortal(newSViv(CvXSUBANY(cv).any_iv));
+ make_sv_object(aTHX_ sv_newmortal(),CvXSUBANY(cv).any_ptr) :
+ sv_2mortal(newSViv(CvXSUBANY(cv).any_iv));
MODULE = B PACKAGE = B::CV
==== //depot/maint-5.8/perl/ext/B/B/Debug.pm#5 (text) ====
Index: perl/ext/B/B/Debug.pm
--- perl/ext/B/B/Debug.pm#4~18893~ Mon Mar 10 12:38:33 2003
+++ perl/ext/B/B/Debug.pm Tue Jul 1 14:28:15 2003
@@ -104,12 +104,6 @@
printf "\top_padix\t\t%ld\n", $op->padix;
}
-sub B::CVOP::debug {
- my ($op) = @_;
- $op->B::OP::debug();
- printf "\top_cv\t\t0x%x\n", ${$op->cv};
-}
-
sub B::NULL::debug {
my ($sv) = @_;
if ($$sv == ${sv_undef()}) {
==== //depot/maint-5.8/perl/ext/B/defsubs_h.PL#3 (text) ====
Index: perl/ext/B/defsubs_h.PL
--- perl/ext/B/defsubs_h.PL#2~18791~ Fri Feb 28 12:05:43 2003
+++ perl/ext/B/defsubs_h.PL Tue Jul 1 14:28:15 2003
@@ -6,6 +6,12 @@
$out =~ s/_h$/.h/;
open(OUT,">$out") || die "Cannot open $file:$!";
print "Extracting $out...\n";
+print OUT <<"END";
+/*
+ !!! Don't modify this file - it's autogenerated from $0 !!!
+ */
+END
+
foreach my $const (qw(
AVf_REAL
HEf_SVKEY
@@ -14,7 +20,7 @@
GVf_IMPORTED_SV GVf_IMPORTED_CV
CVf_METHOD CVf_LOCKED CVf_LVALUE CVf_CONST
SVpad_OUR SVf_FAKE SVf_IOK SVf_IVisUV SVf_NOK SVf_POK
- SVf_ROK SVp_IOK SVp_POK SVp_NOK
+ SVf_ROK SVp_IOK SVp_POK SVp_NOK SVt_PVGV SVt_PVHV
))
{
doconst($const);
==== //depot/maint-5.8/perl/ext/B/typemap#3 (text) ====
Index: perl/ext/B/typemap
--- perl/ext/B/typemap#2~18993~ Sun Mar 16 07:20:38 2003
+++ perl/ext/B/typemap Tue Jul 1 14:28:15 2003
@@ -9,7 +9,6 @@
B::SVOP T_OP_OBJ
B::PADOP T_OP_OBJ
B::PVOP T_OP_OBJ
-B::CVOP T_OP_OBJ
B::LOOP T_OP_OBJ
B::COP T_OP_OBJ
==== //depot/maint-5.8/perl/ext/IO/lib/IO/t/io_sock.t#4 (xtext) ====
Index: perl/ext/IO/lib/IO/t/io_sock.t
--- perl/ext/IO/lib/IO/t/io_sock.t#3~18922~ Tue Mar 11 10:20:53 2003
+++ perl/ext/IO/lib/IO/t/io_sock.t Tue Jul 1 14:28:15 2003
@@ -1,4 +1,4 @@
-#!./perl
+#!./perl -w
BEGIN {
unless(grep /blib/, @INC) {
@@ -28,8 +28,10 @@
}
}
+my $has_perlio = find PerlIO::Layer 'perlio';
+
$| = 1;
-print "1..22\n";
+print "1..26\n";
eval {
$SIG{ALRM} = sub { die; };
@@ -223,7 +225,7 @@
print "not ok 15 - $!\n";
} else {
@data = <SRC>;
- close( SRC);
+ close(SRC);
print "ok 15\n";
}
@@ -235,7 +237,6 @@
print "ok 16\n";
die if( !defined( $listen));
my $serverport = $listen->sockport;
-
my $server_pid = fork();
if( $server_pid) {
@@ -266,7 +267,7 @@
}
print "ok 18\n";
- ### TEST 19
+ ### TEST 21
### Get data from the server using a stream, which is
### interrupted by eof calls.
### On [EMAIL PROTECTED] this failed in a SOCKS environment, because eof
@@ -275,13 +276,42 @@
### a recv(2) call on the socket, while ungetc(3) put back a character
### to an IO buffer, which never again was read.
#
+ ### TESTS 19,20,21,22
+ ### Try to ping-pong some Unicode.
+ #
if ($^O eq 'mpeix') {
print "ok 19 # skipped: broken on MPE/iX\n";
} else {
$sock = IO::Socket::INET->new("localhost:$serverport")
|| IO::Socket::INET->new("127.0.0.1:$serverport");
+ if ($has_perlio) {
+ print binmode($sock, ":utf8") ? "ok 19\n" : "not ok 19\n";
+ } else {
+ print "ok 19 - Skip: no perlio\n";
+ }
+
if ($sock) {
+
+ if ($has_perlio) {
+ $sock->print("ping \x{100}\n");
+ chomp(my $pong = scalar <$sock>);
+ print $pong =~ /^pong (.+)$/ && $1 eq "\x{100}" ?
+ "ok 20\n" : "not ok 20\n";
+
+ $sock->print("ord \x{100}\n");
+ chomp(my $ord = scalar <$sock>);
+ print $ord == 0x100 ?
+ "ok 21\n" : "not ok 21\n";
+
+ $sock->print("chr 0x100\n");
+ chomp(my $chr = scalar <$sock>);
+ print $chr eq "\x{100}" ?
+ "ok 22\n" : "not ok 22\n";
+ } else {
+ print "ok $_ - Skip: no perlio\n" for 20..22;
+ }
+
$sock->print("send\n");
my @array = ();
@@ -299,10 +329,10 @@
} else {
print "not ";
}
- print "ok 19\n";
+ print "ok 23\n";
}
- ### TEST 20
+ ### TEST 24
### Stop the server
#
$sock = IO::Socket::INET->new("localhost:$serverport")
@@ -316,18 +346,33 @@
} else {
print "not ";
}
- print "ok 20\n";
+ print "ok 24\n";
-} elsif( defined( $server_pid)) {
+} elsif (defined($server_pid)) {
### Child
#
SERVER_LOOP: while (1) {
last SERVER_LOOP unless $sock = $listen->accept;
+ # Do not print ok/not ok for this binmode() since there's
+ # a race condition with our client, just die if we fail.
+ binmode($sock, ":utf8") or die;
while (<$sock>) {
last SERVER_LOOP if /^quit/;
last if /^done/;
- if( /^send/) {
+ if (/^ping (.+)/) {
+ print $sock "pong $1\n";
+ next;
+ }
+ if (/^ord (.+)/) {
+ print $sock ord($1), "\n";
+ next;
+ }
+ if (/^chr (.+)/) {
+ print $sock chr(hex($1)), "\n";
+ next;
+ }
+ if (/^send/) {
print $sock @data;
last;
}
@@ -350,14 +395,14 @@
$sock = IO::Socket::INET->new(Blocking => 0)
or print "not ";
-print "ok 21\n";
+print "ok 25\n";
if ( $^O eq 'qnx' ) {
- print "ok 22 # skipped on QNX4\n";
+ print "ok 26 # skipped on QNX4\n";
# QNX4 library bug: Can set non-blocking on socket, but
# cannot return that status.
} else {
my $status = $sock->blocking;
print "not " unless defined $status && !$status;
- print "ok 22\n";
+ print "ok 26\n";
}
==== //depot/maint-5.8/perl/ext/Time/HiRes/HiRes.xs#7 (text) ====
Index: perl/ext/Time/HiRes/HiRes.xs
--- perl/ext/Time/HiRes/HiRes.xs#6~19825~ Thu Jun 19 08:12:52 2003
+++ perl/ext/Time/HiRes/HiRes.xs Tue Jul 1 14:28:15 2003
@@ -340,7 +340,10 @@
#endif
-#if !defined(HAS_USLEEP) && defined(HAS_NANOSLEEP)
+ /* Do not use H A S _ N A N O S L E E P
+ * so that Perl Configure doesn't scan for it.
+ * The TIME_HIRES_NANOSLEEP is set by Makefile.PL. */
+#if !defined(HAS_USLEEP) && defined(TIME_HIRES_NANOSLEEP)
#define HAS_USLEEP
#define usleep hrt_nanosleep /* could conflict with ncurses for static build */
==== //depot/maint-5.8/perl/ext/Time/HiRes/Makefile.PL#15 (text) ====
Index: perl/ext/Time/HiRes/Makefile.PL
--- perl/ext/Time/HiRes/Makefile.PL#14~19791~ Sun Jun 15 10:57:06 2003
+++ perl/ext/Time/HiRes/Makefile.PL Tue Jul 1 14:28:15 2003
@@ -11,9 +11,11 @@
my $VERBOSE = $ENV{VERBOSE};
my $DEFINE;
-my $LIBS;
+my $LIBS = [];
my $XSOPT;
+use vars qw($self); # Used in 'sourcing' the hints.
+
my $ld_exeext = ($^O eq 'os2' and $Config{ldflags} =~ /-Zexe\b/) ? '.exe' : '';
unless($ENV{PERL_CORE}) {
@@ -212,46 +214,19 @@
return 0;
}
-sub unixinit {
- $DEFINE = '';
-
- $LIBS = [];
-
- # this might break the link, try it if it can't find some things you
- # honestly think should be in there...
- # $LIBS = ['-lucb -lbsd'];
-
- # ... but ucb is poison for Solaris, and probably Linux. honest.
- $LIBS = [] if $Config{'osname'} eq 'solaris';
- $LIBS = [] if $Config{'osname'} eq 'linux';
- $LIBS = ['-lm'] if $Config{'osname'} =~ /sco/i;
- $LIBS = ['-lc'] if $Config{'osname'} =~ /dynixptx/i;
-
- # For nanosleep
- push @$LIBS, '-lrt' unless $Config{'osname'} =~ /^(?:irix|linux)$/;
- push @$LIBS, '-lposix4';
-
- my @goodlibs;
-
- select(STDOUT);
- $| = 1;
-
- print "Checking for libraries...\n";
- my $lib;
- for $lib (@$LIBS) {
- print "Checking for $lib... ";
- $LIBS = [ $lib ];
- if ($Config{libs} =~ /\b$lib\b/ || has_x("time(0)")) {
- push @goodlibs, $lib;
- print "found.\n";
- } else {
- print "NOT found.\n";
+sub init {
+ my $hints = File::Spec->catfile("hints", "$^O.pl");
+ if (-f $hints) {
+ print "Using hints $hints...\n";
+ local $self;
+ do $hints;
+ if (exists $self->{LIBS}) {
+ $LIBS = $self->{LIBS};
+ print "Extra libraries: @$LIBS...\n";
}
}
- $LIBS = [ @goodlibs ];
- print @$LIBS ?
- "You have extra libraries: @$LIBS.\n" :
- "You have no applicable extra libraries.\n";
+
+ $DEFINE = '';
print "Looking for gettimeofday()... ";
my $has_gettimeofday;
@@ -360,9 +335,10 @@
my $has_nanosleep;
if ($Config{d_nanosleep}) {
$has_nanosleep++;
+ $DEFINE .= ' -DTIME_HIRES_NANOSLEEP';
} elsif (has_x ("nanosleep (NULL, NULL)")) {
$has_nanosleep++;
- $DEFINE .= ' -DHAS_NANOSLEEP';
+ $DEFINE .= ' -DTIME_HIRES_NANOSLEEP';
}
if ($has_nanosleep) {
@@ -452,9 +428,9 @@
if ($^O =~ /Win32/i) {
$DEFINE = '-DSELECT_IS_BROKEN';
- $LIBS = [''];
+ $LIBS = [];
} else {
- unixinit();
+ init();
}
doMakefile;
doConstants;
==== //depot/maint-5.8/perl/ext/Time/HiRes/hints/dec_osf.pl#1 (text) ====
Index: perl/ext/Time/HiRes/hints/dec_osf.pl
--- /dev/null Tue May 5 13:32:27 1998
+++ perl/ext/Time/HiRes/hints/dec_osf.pl Tue Jul 1 14:28:15 2003
@@ -0,0 +1,3 @@
+# needs to explicitly link against librt to pull in nanosleep
+$self->{LIBS} = ['-lrt'];
+
==== //depot/maint-5.8/perl/ext/Time/HiRes/hints/sco.pl#2 (text) ====
Index: perl/ext/Time/HiRes/hints/sco.pl
--- perl/ext/Time/HiRes/hints/sco.pl#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/Time/HiRes/hints/sco.pl Tue Jul 1 14:28:15 2003
@@ -1,3 +1,4 @@
# osr5 needs to explicitly link against libc to pull in usleep
-$self->{LIBS} = ['-lc'];
+# what's the reason for -lm?
+$self->{LIBS} = ['-lm', '-lc'];
==== //depot/maint-5.8/perl/ext/Unicode/Normalize/Changes#5 (text) ====
Index: perl/ext/Unicode/Normalize/Changes
--- perl/ext/Unicode/Normalize/Changes#4~19736~ Mon Jun 9 23:43:29 2003
+++ perl/ext/Unicode/Normalize/Changes Tue Jul 1 14:28:15 2003
@@ -1,5 +1,10 @@
Revision history for Perl extension Unicode::Normalize.
+0.23 Sat Jun 28 20:38:10 2003
+ - bug fix: \0-terminate in compose() in XS.
+ - tweak in pure perl: forced $codepoint to numeric (i.e. "+0065" to 65)
+ - tweak of POD and README.
+
0.22 Mon Jun 09 22:23:10 2003
- internal tweak (again): pack_U() and unpack_U().
==== //depot/maint-5.8/perl/ext/Unicode/Normalize/Normalize.pm#6 (text) ====
Index: perl/ext/Unicode/Normalize/Normalize.pm
--- perl/ext/Unicode/Normalize/Normalize.pm#5~19736~ Mon Jun 9 23:43:29 2003
+++ perl/ext/Unicode/Normalize/Normalize.pm Tue Jul 1 14:28:15 2003
@@ -11,7 +11,7 @@
use warnings;
use Carp;
-our $VERSION = '0.22';
+our $VERSION = '0.23';
our $PACKAGE = __PACKAGE__;
require Exporter;
@@ -102,6 +102,19 @@
$NFKC_string = normalize('KC', $string); # Normalization Form KC
=head1 DESCRIPTION
+
+Parameters:
+
+C<$string> is used as a string under character semantics
+(see F<perlunicode>).
+
+C<$codepoint> should be an unsigned integer
+representing a Unicode code point.
+
+Note: Between XS edition and pure Perl edition,
+interpretation of C<$codepoint> as a decimal number has incompatibility.
+XS converts C<$codepoint> to an unsigned integer, but pure Perl does not.
+Do not use a floating point nor a negative sign in C<$codepoint>.
=head2 Normalization Forms
==== //depot/maint-5.8/perl/ext/Unicode/Normalize/Normalize.xs#4 (text) ====
Index: perl/ext/Unicode/Normalize/Normalize.xs
--- perl/ext/Unicode/Normalize/Normalize.xs#3~19736~ Mon Jun 9 23:43:29 2003
+++ perl/ext/Unicode/Normalize/Normalize.xs Tue Jul 1 14:28:15 2003
@@ -378,6 +378,7 @@
}
uvS = uv;
} /* for */
+ *d = '\0';
SvCUR_set(dst, d - (U8*)SvPVX(dst));
RETVAL = dst;
OUTPUT:
==== //depot/maint-5.8/perl/hints/solaris_2.sh#5 (text) ====
Index: perl/hints/solaris_2.sh
--- perl/hints/solaris_2.sh#4~19722~ Mon Jun 9 10:52:25 2003
+++ perl/hints/solaris_2.sh Tue Jul 1 14:28:15 2003
@@ -330,6 +330,21 @@
END
fi
fi
+
+# Check to see if the selected compiler and linker
+# support the -z ignore, -z lazyload and -z combreloc flags.
+echo "int main() { return(0); } " > try.c
+ zflgs=''
+for zf in ignore lazyload combreloc; do
+ if ${cc:-cc} -o try try.c -z $zf > /dev/null 2>&1; then
+ zflgs="$zflgs -z $zf"
+ fi
+done
+if test -n "$zflgs"; then
+ ccdlflags="$ccdlflags $zflgs"
+ lddlflags="$lddlflags -G $zflgs"
+fi
+
# as --version or ld --version might dump core.
rm -f try try.c core
EOCBU
@@ -341,12 +356,8 @@
$define|true|[yY]*)
ccflags="-D_REENTRANT $ccflags"
- # sched_yield is in -lposix4 up to Solaris 2.6, in -lrt starting with Solaris
2.7
- case `uname -r` in
- 5.[0-6] | 5.5.1) sched_yield_lib="posix4" ;;
- *) sched_yield_lib="rt";
- esac
- set `echo X "$libswanted "| sed -e "s/ c / $sched_yield_lib pthread c /"`
+ sched_yield='yield'
+ set `echo X "$libswanted "| sed -e "s/ c / pthread c /"`
shift
libswanted="$*"
@@ -496,7 +507,7 @@
EOM
exit 1
fi
- case "$cc -v 2>/dev/null" in
+ case "${cc:-cc} -v 2>/dev/null" in
*gcc*)
echo 'int main() { return 0; }' > try.c
case "`${cc:-cc} -mcpu=v9 -m64 -S try.c 2>&1 | grep 'm64 is not
supported by this configuration'`" in
@@ -561,7 +572,7 @@
#include <sunmath.h>
int main() { (void) powl(2, 256); return(0); }
EOM
- if cc try.c -lsunmath -o try > /dev/null 2>&1 && ./try; then
+ if ${cc:-cc} try.c -lsunmath -o try > /dev/null 2>&1 && ./try; then
libswanted="$libswanted sunmath"
fi
else
==== //depot/maint-5.8/perl/hints/vos.sh#3 (text) ====
Index: perl/hints/vos.sh
--- perl/hints/vos.sh#2~19125~ Tue Apr 1 09:08:47 2003
+++ perl/hints/vos.sh Tue Jul 1 14:28:15 2003
@@ -144,6 +144,4 @@
$rm -f t001$_o t001$_exe t001.kp
EOCBU
-# VOS has a nanosleep() function but it is a dummy.
-d_nanosleep="undef"
==== //depot/maint-5.8/perl/lib/CGI.pm#5 (text) ====
Index: perl/lib/CGI.pm
--- perl/lib/CGI.pm#4~19682~ Tue Jun 3 22:22:46 2003
+++ perl/lib/CGI.pm Tue Jul 1 14:28:15 2003
@@ -6595,6 +6595,7 @@
if the former is unavailable.
=item B<script_name()>
+
Return the script name as a partial URL, for self-refering
scripts.
==== //depot/maint-5.8/perl/lib/ExtUtils/MakeMaker/FAQ.pod#5 (text) ====
Index: perl/lib/ExtUtils/MakeMaker/FAQ.pod
--- perl/lib/ExtUtils/MakeMaker/FAQ.pod#4~19722~ Mon Jun 9 10:52:25 2003
+++ perl/lib/ExtUtils/MakeMaker/FAQ.pod Tue Jul 1 14:28:15 2003
@@ -61,7 +61,9 @@
=over 4
-=item How do I keep my $VERSION up to date without resetting it manually?
+=item
+
+How do I keep my $VERSION up to date without resetting it manually?
Often you want to manually set the $VERSION in the main module
distribution because this is the version that everybody sees on CPAN
@@ -95,7 +97,9 @@
# must be all on one line or MakeMaker will get confused.
$VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
-=item What's this F<META.yml> thing and how did it get in my F<MANIFEST>?!
+=item
+
+What's this F<META.yml> thing and how did it get in my F<MANIFEST>?!
F<META.yml> is a module meta-data file pioneered by Module::Build and
automatically generated as part of the 'distdir' target (and thus
@@ -109,7 +113,10 @@
=over 4
-=item How to I prevent "object version X.XX does not match bootstrap parameter Y.YY"
errors?
+=item
+
+How to I prevent "object version X.XX does not match bootstrap parameter Y.YY"
+errors?
XS code is very sensitive to the module version number and will
complain if the version number in your Perl module doesn't match. If
@@ -124,7 +131,9 @@
depend => { '$(FIRST_MAKEFILE)' => '$(VERSION_FROM)' }
-=item How do I make two or more XS files coexist in the same directory?
+=item
+
+How do I make two or more XS files coexist in the same directory?
Sometimes you need to have two and more XS files in the same package.
One way to go is to put them into separate directories, but sometimes
==== //depot/maint-5.8/perl/perl.c#38 (text) ====
Index: perl/perl.c
--- perl/perl.c#37~19891~ Mon Jun 30 02:39:29 2003
+++ perl/perl.c Tue Jul 1 14:28:15 2003
@@ -1069,26 +1069,40 @@
* contiguous with the argv[]. This is used in mg.c:mg_set()
* as the maximum modifiable length of $0. In the worst case
* the area we are able to modify is limited to the size of
- * the original argv[0].
+ * the original argv[0]. (See below for 'contiguous', though.)
* --jhi */
char *s;
int i;
UV mask =
~(UV)(PTRSIZE == 4 ? 3 : PTRSIZE == 8 ? 7 : PTRSIZE == 16 ? 15 : 0);
-
- /* See if all the arguments are contiguous in memory.
- * Note that 'contiguous' is a loose term because some
- * platforms align the argv[] and the envp[]. We just check
- * that they are within aligned PTRSIZE bytes. As long as no
- * system has something bizarre like the argv[] interleaved
- * with some other data, we are fine. (Did I just evoke
- * Murphy's Law?) --jhi */
+ /* Do the mask check only if the args seem like aligned. */
+ UV aligned =
+ (mask < ~(UV)0) && ((PTR2UV(argv[0]) & mask) == PTR2UV(argv[0]));
+
+ /* See if all the arguments are contiguous in memory. Note
+ * that 'contiguous' is a loose term because some platforms
+ * align the argv[] and the envp[]. If the arguments look
+ * like non-aligned, assume that they are 'strictly' or
+ * 'traditionally' contiguous. If the arguments look like
+ * aligned, we just check that they are within aligned
+ * PTRSIZE bytes. As long as no system has something bizarre
+ * like the argv[] interleaved with some other data, we are
+ * fine. (Did I just evoke Murphy's Law?) --jhi */
s = PL_origargv[0];
while (*s) s++;
for (i = 1; i < PL_origargc; i++) {
- if (PL_origargv[i] > s &&
- PL_origargv[i] <=
- INT2PTR(char *, PTR2UV(s + PTRSIZE) & mask)) {
+ if ((PL_origargv[i] == s + 1
+#ifdef OS2
+ || PL_origargv[i] == s + 2
+#endif
+ )
+ ||
+ (aligned &&
+ (PL_origargv[i] > s &&
+ PL_origargv[i] <=
+ INT2PTR(char *, PTR2UV(s + PTRSIZE) & mask)))
+ )
+ {
s = PL_origargv[i];
while (*s) s++;
}
@@ -1096,23 +1110,41 @@
break;
}
/* Can we grab env area too to be used as the area for $0? */
- if (PL_origenviron &&
- PL_origenviron[0] > s &&
- PL_origenviron[0] <=
- INT2PTR(char *, PTR2UV(s + PTRSIZE) & mask)) {
- s = PL_origenviron[0];
- while (*s) s++;
- my_setenv("NoNe SuCh", Nullch);
- /* Force copy of environment. */
- for (i = 1; PL_origenviron[i]; i++)
- if (PL_origenviron[i] > s &&
- PL_origenviron[i] <=
- INT2PTR(char *, PTR2UV(s + PTRSIZE) & mask)) {
- s = PL_origenviron[i];
- while (*s) s++;
+ if (PL_origenviron) {
+ if ((PL_origenviron[0] == s + 1
+#ifdef OS2
+ || (PL_origenviron[0] == s + 9 && (s += 8))
+#endif
+ )
+ ||
+ (aligned &&
+ (PL_origenviron[0] > s &&
+ PL_origenviron[0] <=
+ INT2PTR(char *, PTR2UV(s + PTRSIZE) & mask)))
+ )
+ {
+#ifndef OS2
+ s = PL_origenviron[0];
+ while (*s) s++;
+#endif
+ my_setenv("NoNe SuCh", Nullch);
+ /* Force copy of environment. */
+ for (i = 1; PL_origenviron[i]; i++) {
+ if (PL_origenviron[i] == s + 1
+ ||
+ (aligned &&
+ (PL_origenviron[i] > s &&
+ PL_origenviron[i] <=
+ INT2PTR(char *, PTR2UV(s + PTRSIZE) & mask)))
+ )
+ {
+ s = PL_origenviron[i];
+ while (*s) s++;
+ }
+ else
+ break;
}
- else
- break;
+ }
}
PL_origalen = s - PL_origargv[0];
}
@@ -3521,6 +3553,15 @@
bool
Perl_doing_taint(int argc, char *argv[], char *envp[])
{
+#ifndef PERL_IMPLICIT_SYS
+ /* If we have PERL_IMPLICIT_SYS we can't call getuid() et alia
+ * before we have an interpreter-- and the whole point of this
+ * function is to be called at such an early stage. If you are on
+ * a system with PERL_IMPLICIT_SYS but you do have a concept of
+ * "tainted because running with altered effective ids', you'll
+ * have to add your own checks somewhere in here. The two most
+ * known samples of 'implicitness' are Win32 and NetWare, neither
+ * of which has much of concept of 'uids'. */
int uid = PerlProc_getuid();
int euid = PerlProc_geteuid();
int gid = PerlProc_getgid();
@@ -3532,6 +3573,7 @@
#endif
if (uid && (euid != uid || egid != gid))
return 1;
+#endif /* !PERL_IMPLICIT_SYS */
/* This is a really primitive check; environment gets ignored only
* if -T are the first chars together; otherwise one gets
* "Too late" message. */
==== //depot/maint-5.8/perl/perl.h#36 (text) ====
Index: perl/perl.h
--- perl/perl.h#35~19891~ Mon Jun 30 02:39:29 2003
+++ perl/perl.h Tue Jul 1 14:28:15 2003
@@ -4444,7 +4444,6 @@
HAS_UALARM
HAS_USLEEP
- HAS_NANOSLEEP
HAS_SETITIMER
HAS_GETITIMER
==== //depot/maint-5.8/perl/pod/perlunicode.pod#10 (text) ====
Index: perl/pod/perlunicode.pod
--- perl/pod/perlunicode.pod#9~19791~ Sun Jun 15 10:57:06 2003
+++ perl/pod/perlunicode.pod Tue Jul 1 14:28:15 2003
@@ -1079,17 +1079,30 @@
=over 4
-=item chmod, chmod, chown, chroot, exec, link, mkdir, rename, rmdir, stat, symlink,
truncate, unlink, utime
+=item *
-=item %ENV
+chmod, chmod, chown, chroot, exec, link, mkdir
+rename, rmdir stat, symlink, truncate, unlink, utime
-=item glob (aka the <*>)
+=item *
-=item open, opendir, sysopen
+%ENV
-=item qx (aka the backtick operator), system
+=item *
-=item readdir, readlink
+glob (aka the <*>)
+
+=item *
+
+open, opendir, sysopen
+
+=item *
+
+qx (aka the backtick operator), system
+
+=item *
+
+readdir, readlink
=back
==== //depot/maint-5.8/perl/pp_sys.c#26 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#25~19850~ Tue Jun 24 11:49:22 2003
+++ perl/pp_sys.c Tue Jul 1 14:28:15 2003
@@ -742,6 +742,14 @@
PUTBACK;
if (PerlIO_binmode(aTHX_ fp,IoTYPE(io),mode_from_discipline(discp),
(discp) ? SvPV_nolen(discp) : Nullch)) {
+ if (IoOFP(io) && IoOFP(io) != IoIFP(io)) {
+ if (!PerlIO_binmode(aTHX_ IoOFP(io),IoTYPE(io),
+ mode_from_discipline(discp),
+ (discp) ? SvPV_nolen(discp) : Nullch)) {
+ SPAGAIN;
+ RETPUSHUNDEF;
+ }
+ }
SPAGAIN;
RETPUSHYES;
}
==== //depot/maint-5.8/perl/t/op/magic.t#13 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t#12~19891~ Mon Jun 30 02:39:29 2003
+++ perl/t/op/magic.t Tue Jul 1 14:28:15 2003
@@ -302,7 +302,7 @@
ok(!$ps || # we allow that something goes wrong with the ps command
$ps eq "x", 'altering $0 is effective (testing with `ps`)');
} else {
- skip("\$0 check only on Linux and FreeBSD") for 0,1;
+ skip("\$0 check only on Linux and FreeBSD") for 0, 1;
}
}
==== //depot/maint-5.8/perl/uconfig.h#7 (text) ====
Index: perl/uconfig.h
--- perl/uconfig.h#6~19611~ Sat May 24 00:50:43 2003
+++ perl/uconfig.h Tue Jul 1 14:28:15 2003
@@ -2638,12 +2638,6 @@
*/
/*#define HAS_STRUCT_MSGHDR / **/
-/* HAS_NANOSLEEP:
- * This symbol, if defined, indicates that the nanosleep
- * system call is available to sleep with 1E-9 sec accuracy.
- */
-/*#define HAS_NANOSLEEP / **/
-
/* HAS_NL_LANGINFO:
* This symbol, if defined, indicates that the nl_langinfo routine is
* available to return local data. You will also need <langinfo.h>
==== //depot/maint-5.8/perl/uconfig.sh#6 (xtext) ====
Index: perl/uconfig.sh
--- perl/uconfig.sh#5~19611~ Sat May 24 00:50:43 2003
+++ perl/uconfig.sh Tue Jul 1 14:28:15 2003
@@ -239,7 +239,6 @@
d_msync='undef'
d_munmap='undef'
d_mymalloc='undef'
-d_nanosleep='undef'
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='undef'
==== //depot/maint-5.8/perl/win32/config.gc#8 (text) ====
Index: perl/win32/config.gc
--- perl/win32/config.gc#7~19611~ Sat May 24 00:50:43 2003
+++ perl/win32/config.gc Tue Jul 1 14:28:15 2003
@@ -295,7 +295,6 @@
d_msync='undef'
d_munmap='undef'
d_mymalloc='undef'
-d_nanosleep='undef'
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='define'
==== //depot/maint-5.8/perl/win32/config.vc#8 (text) ====
Index: perl/win32/config.vc
--- perl/win32/config.vc#7~19611~ Sat May 24 00:50:43 2003
+++ perl/win32/config.vc Tue Jul 1 14:28:15 2003
@@ -295,7 +295,6 @@
d_msync='undef'
d_munmap='undef'
d_mymalloc='undef'
-d_nanosleep='undef'
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='define'
==== //depot/maint-5.8/perl/win32/config.vc64#8 (text) ====
Index: perl/win32/config.vc64
--- perl/win32/config.vc64#7~19611~ Sat May 24 00:50:43 2003
+++ perl/win32/config.vc64 Tue Jul 1 14:28:15 2003
@@ -295,7 +295,6 @@
d_msync='undef'
d_munmap='undef'
d_mymalloc='undef'
-d_nanosleep='undef'
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='undef'
==== //depot/maint-5.8/perl/win32/config_H.bc#12 (text+w) ====
Index: perl/win32/config_H.bc
--- perl/win32/config_H.bc#11~19611~ Sat May 24 00:50:43 2003
+++ perl/win32/config_H.bc Tue Jul 1 14:28:15 2003
@@ -2638,12 +2638,6 @@
*/
/*#define HAS_STRUCT_MSGHDR /**/
-/* HAS_NANOSLEEP:
- * This symbol, if defined, indicates that the nanosleep
- * system call is available to sleep with 1E-9 sec accuracy.
- */
-/*#define HAS_NANOSLEEP /**/
-
/* HAS_NL_LANGINFO:
* This symbol, if defined, indicates that the nl_langinfo routine is
* available to return local data. You will also need <langinfo.h>
==== //depot/maint-5.8/perl/win32/config_H.gc#12 (text+w) ====
Index: perl/win32/config_H.gc
--- perl/win32/config_H.gc#11~19611~ Sat May 24 00:50:43 2003
+++ perl/win32/config_H.gc Tue Jul 1 14:28:15 2003
@@ -2638,12 +2638,6 @@
*/
/*#define HAS_STRUCT_MSGHDR /**/
-/* HAS_NANOSLEEP:
- * This symbol, if defined, indicates that the nanosleep
- * system call is available to sleep with 1E-9 sec accuracy.
- */
-/*#define HAS_NANOSLEEP /**/
-
/* HAS_NL_LANGINFO:
* This symbol, if defined, indicates that the nl_langinfo routine is
* available to return local data. You will also need <langinfo.h>
==== //depot/maint-5.8/perl/win32/config_H.vc#12 (text+w) ====
Index: perl/win32/config_H.vc
--- perl/win32/config_H.vc#11~19611~ Sat May 24 00:50:43 2003
+++ perl/win32/config_H.vc Tue Jul 1 14:28:15 2003
@@ -2638,12 +2638,6 @@
*/
/*#define HAS_STRUCT_MSGHDR /**/
-/* HAS_NANOSLEEP:
- * This symbol, if defined, indicates that the nanosleep
- * system call is available to sleep with 1E-9 sec accuracy.
- */
-/*#define HAS_NANOSLEEP /**/
-
/* HAS_NL_LANGINFO:
* This symbol, if defined, indicates that the nl_langinfo routine is
* available to return local data. You will also need <langinfo.h>
==== //depot/maint-5.8/perl/win32/config_H.vc64#12 (text) ====
Index: perl/win32/config_H.vc64
--- perl/win32/config_H.vc64#11~19611~ Sat May 24 00:50:43 2003
+++ perl/win32/config_H.vc64 Tue Jul 1 14:28:15 2003
@@ -2638,12 +2638,6 @@
*/
/*#define HAS_STRUCT_MSGHDR /**/
-/* HAS_NANOSLEEP:
- * This symbol, if defined, indicates that the nanosleep
- * system call is available to sleep with 1E-9 sec accuracy.
- */
-/*#define HAS_NANOSLEEP /**/
-
/* HAS_NL_LANGINFO:
* This symbol, if defined, indicates that the nl_langinfo routine is
* available to return local data. You will also need <langinfo.h>
==== //depot/maint-5.8/perl/wince/config.ce#7 (text) ====
Index: perl/wince/config.ce
--- perl/wince/config.ce#6~19611~ Sat May 24 00:50:43 2003
+++ perl/wince/config.ce Tue Jul 1 14:28:15 2003
@@ -281,7 +281,6 @@
d_msync='undef'
d_munmap='undef'
d_mymalloc='~PERL_MALLOC~'
-d_nanosleep='undef'
d_nice='undef'
d_nv_preserves_uv='define'
d_off64_t='undef'
==== //depot/maint-5.8/perl/wince/config_H.ce#10 (text) ====
Index: perl/wince/config_H.ce
--- perl/wince/config_H.ce#9~19611~ Sat May 24 00:50:43 2003
+++ perl/wince/config_H.ce Tue Jul 1 14:28:15 2003
@@ -616,12 +616,6 @@
*/
/*#define HAS_USLEEP /**/
-/* HAS_NANOSLEEP:
- * This symbol, if defined, indicates that the nanosleep system
- * call is available to let the process sleep with 1E-9 accuracy.
- */
-/*#define HAS_NANOSLEEP /**/
-
/* HASVOLATILE:
* This symbol, if defined, indicates that this C compiler knows about
* the volatile declaration.
End of Patch.
