[Perl/perl5] 559a77: Remove compiler in .travis.yml
Branch: refs/heads/blead Home: https://github.com/Perl/perl5 Commit: 559a77e6ab7351f4fe0620988948451e7091a1eb https://github.com/Perl/perl5/commit/559a77e6ab7351f4fe0620988948451e7091a1eb Author: Steve Peters Date: 2019-11-05 (Tue, 05 Nov 2019) Changed paths: M .travis.yml Log Message: --- Remove compiler in .travis.yml SInce `clang` was removed as a compiler option in the previous change to `.travis.yml`, no need to exclude Linux from using it. Also, no need for the excludes for OS X since was removed.
[Perl/perl5] a353b5: Remove compiler in .travis.yml
Branch: refs/heads/smpeters-travis.yml-change Home: https://github.com/Perl/perl5 Commit: a353b5e649561f523f498458217bb368c0eaf5d9 https://github.com/Perl/perl5/commit/a353b5e649561f523f498458217bb368c0eaf5d9 Author: Steve Peters Date: 2019-11-05 (Tue, 05 Nov 2019) Changed paths: M .travis.yml Log Message: --- Remove compiler in .travis.yml SInce `clang` was removed as a compiler option in the previous change to `.travis.yml`, no need to exclude Linux from using it. Also, no need for the excludes for OS X since was removed.
[perl.git] branch blead, updated. v5.17.9-171-g1bd59f2
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/1bd59f2c8b61c62045c3168ba7470136f276702d?hp=0fcd5a598c8b93643371a1ee911cf1da70e787cb
- Log -
commit 1bd59f2c8b61c62045c3168ba7470136f276702d
Author: Steve Peters st...@fisharerojo.org
Date: Fri Mar 15 13:38:44 2013 -0500
Upgrade to Net::Ping 2.40. This should silence much of the black
smoke seen on Windows and Cygwin coming from Net::Ping.
---
Summary of changes:
MANIFEST |1 +
Porting/Maintainers.pl |2 +-
dist/Net-Ping/Changes | 46 +++
dist/Net-Ping/lib/Net/Ping.pm | 59 +---
dist/Net-Ping/t/200_ping_tcp.t |2 +-
dist/Net-Ping/t/400_ping_syn.t |3 +-
dist/Net-Ping/t/410_syn_host.t |4 +-
dist/Net-Ping/t/510_ping_udp.t | 28 +++
dist/Net-Ping/t/520_icmp_ttl.t | 47 +++
9 files changed, 146 insertions(+), 46 deletions(-)
create mode 100644 dist/Net-Ping/t/520_icmp_ttl.t
diff --git a/MANIFEST b/MANIFEST
index a79fd32..3fadb19 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3473,6 +3473,7 @@ dist/Net-Ping/t/410_syn_host.tPing Net::Ping
dist/Net-Ping/t/450_service.t Ping Net::Ping
dist/Net-Ping/t/500_ping_icmp.tPing Net::Ping
dist/Net-Ping/t/510_ping_udp.t Ping Net::Ping
+dist/Net-Ping/t/520_icmp_ttl.t Ping Net::Ping
dist/Safe/Changes Changes for Safe.pm
dist/Safe/Makefile.PL Makefile.PL for Safe.pm
dist/Safe/MANIFEST MANIFEST for Safe.pm
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 612a056..60ee2cc 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1330,7 +1330,7 @@ use File::Glob qw(:case);
'Net::Ping' = {
'MAINTAINER' = 'smpeters',
-'DISTRIBUTION' = 'SMPETERS/Net-Ping-2.39.tar.gz',
+'DISTRIBUTION' = 'SMPETERS/Net-Ping-2.40.tar.gz',
'FILES'= q[dist/Net-Ping],
'UPSTREAM' = 'blead',
},
diff --git a/dist/Net-Ping/Changes b/dist/Net-Ping/Changes
index 905f059..47dddbe 100644
--- a/dist/Net-Ping/Changes
+++ b/dist/Net-Ping/Changes
@@ -1,5 +1,51 @@
CHANGES
---
+2.40 Mar 15 11:20 2013
+Bugfixes
+- several fixes to tests to stop the black smoke on Win32's
+ and Cygwin since the core updated the module to Test::More.
+ I had planned a later release, but all the black smoke is
+ forcing a release.
+- fixes to some skips in tests that were still using the
+ Test style skip's.
+- Documentation fix for
https://rt.cpan.org/Ticket/Display.html?id=48014.
+ Thanks to Keith Taylor ke...@supanet.net.uk
+- Instead of using a hard-coded TOS value, import IP_TOS from
+ Socket. This fixes an outstanding bug on Solaris which uses a
+ different value for IP_TOS in it headers than Linux. I'm assuming
+ other OS's were fixed with this change as well.
+
+Features
+- added TTL handling for icmp pings to allow traceroute like
+ applications to be built with Net::Ping. Thanks to
+ ro...@bokxing.nl for the patch and tests!
+
+Internals
+- replaced SOL_IP with IPPROTO_IP. SOL_IP is not portable and was
+ hard-coded anyway.
+- added IPPROTO_IP, IP_TOS, IP_TTL, and AF_INET to the list of Socket
+ constants imported.
+- removed some hard-coded constants.
+- converted all calls to inet_ntoa() to inet_ntop() in preparation
+ for further ipv6 updates.
+
+Infrastructure
+- Makefile.PL updated to require Test::More, Time::HiRes, and a
+ recent Socket
+- several changes for github hosting
+ - add a .gitignore file
+ - added a .travis.yml file to allow CI testing with pushed to
+github
+ - replaced the README with a README.md which displays the
+Travis CI build status on github.
+
+
+2.39 Mar 13 09:25 2013
+- patch from Matthew Musgrove to resolve RT #45812. Thanks!
+- pulled in several changes from the Perl core
+
+2.36 Jun 08 12:00 2009
+- release to include a few fixes from the Perl core
2.35 Feb 08 14:42 2008
- Patch in Perl change #33242 by Nicholas Clark
diff --git a/dist/Net-Ping/lib/Net/Ping.pm b/dist/Net-Ping/lib/Net/Ping.pm
index 850359c..a4d4a50 100644
--- a/dist/Net-Ping/lib/Net/Ping.pm
+++ b/dist/Net-Ping/lib/Net/Ping.pm
@@ -8,18 +8,15 @@ use vars qw(@ISA @EXPORT $VERSION
$def_timeout $def_proto $def_factor
$max_datasize $pingstring $hires $source_verify $syn_forking);
use Fcntl qw( F_GETFL F_SETFL O_NONBLOCK );
-use Socket qw( SOCK_DGRAM SOCK_STREAM
[perl.git] branch blead, updated. v5.17.9-160-gad0c015
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/ad0c015e9582b8fdd36defbfc629f810255c38aa?hp=4aacaee222cb8dc946f75d212d9f35a3321fd752
- Log -
commit ad0c015e9582b8fdd36defbfc629f810255c38aa
Author: Steve Peters st...@fisharerojo.org
Date: Wed Mar 13 20:28:11 2013 -0500
Update Net-Ping to 2.39.
---
Summary of changes:
dist/Net-Ping/lib/Net/Ping.pm |4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/dist/Net-Ping/lib/Net/Ping.pm b/dist/Net-Ping/lib/Net/Ping.pm
index a7adf21..850359c 100644
--- a/dist/Net-Ping/lib/Net/Ping.pm
+++ b/dist/Net-Ping/lib/Net/Ping.pm
@@ -16,7 +16,7 @@ use Carp;
@ISA = qw(Exporter);
@EXPORT = qw(pingecho);
-$VERSION = 2.38;
+$VERSION = 2.39;
sub SOL_IP { 0; };
sub IP_TOS { 1; };
@@ -1374,6 +1374,8 @@ sub close
delete $self-{syn};
} elsif ($self-{proto} eq tcp) {
# The connection will already be closed
+ } elsif ($self-{proto} eq external) {
+# Nothing to close
} else {
$self-{fh}-close();
}
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.17.0-209-gdb396eb
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/db396eb2bfb2bbdad4d1510f9c09abd029ed6759?hp=45ed5e1b00da4aecc4751dbc6583302752186d25
- Log -
commit db396eb2bfb2bbdad4d1510f9c09abd029ed6759
Merge: 45ed5e1 978af2c
Author: Steve Peters st...@fisharerojo.org
Date: Mon Jun 4 09:52:17 2012 -0500
Merge branch 'post-5.16' into blead
commit 978af2c644ee9abf9563f61b3c3af177446ed2f5
Author: Steve Peters st...@fisharerojo.org
Date: Fri May 4 10:51:06 2012 -0500
Add --libpods back as a non-functional option to pod2html.
When --libpods was removed, this broke backward compatiblility with
existing uses. This change adds back the option, but warns that
--libpods is no longer supported.
M ext/Pod-Html/lib/Pod/Html.pm
M ext/Pod-Html/t/feature.t
commit dad26a174010648e2263a2cbfb432fea9bcec30e
Author: Steve Peters st...@fisharerojo.org
Date: Fri May 4 09:21:17 2012 -0500
Since the HTML files generated by pod2html claim to have a utf-8 charset,
actually write the files out using utf-8. This is a fix for RT #111446.
M ext/Pod-Html/lib/Pod/Html.pm
---
Summary of changes:
ext/Pod-Html/lib/Pod/Html.pm |1 +
1 files changed, 1 insertions(+), 0 deletions(-)
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
index 47b937a..2da6ac0 100644
--- a/ext/Pod-Html/lib/Pod/Html.pm
+++ b/ext/Pod-Html/lib/Pod/Html.pm
@@ -432,6 +432,7 @@ HTMLFOOT
} else {
open $fhout, -;
}
+binmode $fhout, :utf8;
print $fhout $output;
close $fhout or die Failed to close $Htmlfile: $!;
chmod 0644, $Htmlfile unless $Htmlfile eq '-';
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.15.9-272-g31c32f2
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/31c32f21637b69ee05a82842c4a121907f0a8d4f?hp=b6646683566e99be17e2b4644b44663f440270ee
- Log -
commit 31c32f21637b69ee05a82842c4a121907f0a8d4f
Author: Steve Peters st...@fisharerojo.org
Date: Fri May 4 10:51:06 2012 -0500
Add --libpods back as a non-functional option to pod2html.
When --libpods was removed, this broke backward compatiblility with
existing uses. This change adds back the option, but warns that
--libpods is no longer supported.
---
Summary of changes:
ext/Pod-Html/lib/Pod/Html.pm |4 +++-
ext/Pod-Html/t/feature.t |2 +-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
index 08d0274..47b937a 100644
--- a/ext/Pod-Html/lib/Pod/Html.pm
+++ b/ext/Pod-Html/lib/Pod/Html.pm
@@ -483,7 +483,7 @@ sub parse_command_line {
my ($opt_backlink,$opt_cachedir,$opt_css,$opt_flush,$opt_header,
$opt_help,$opt_htmldir,$opt_htmlroot,$opt_index,$opt_infile,
$opt_outfile,$opt_poderrors,$opt_podpath,$opt_podroot,
-$opt_quiet,$opt_recurse,$opt_title,$opt_verbose);
+$opt_quiet,$opt_recurse,$opt_title,$opt_verbose,$opt_libpods);
unshift @ARGV, split ' ', $Config{pod2html} if $Config{pod2html};
my $result = GetOptions(
@@ -497,6 +497,7 @@ sub parse_command_line {
'htmlroot=s' = \$opt_htmlroot,
'index!' = \$opt_index,
'infile=s' = \$opt_infile,
+ 'libpods=s' = \$opt_libpods, # deprecated
'outfile=s' = \$opt_outfile,
'poderrors!' = \$opt_poderrors,
'podpath=s' = \$opt_podpath,
@@ -512,6 +513,7 @@ sub parse_command_line {
$opt_help = ; # just to make -w shut-up.
@Podpath = split(:, $opt_podpath) if defined $opt_podpath;
+warn --libpods is no longer supported if defined $opt_libpods;
$Backlink = $opt_backlink if defined $opt_backlink;
$Cachedir = _unixify($opt_cachedir) if defined $opt_cachedir;
diff --git a/ext/Pod-Html/t/feature.t b/ext/Pod-Html/t/feature.t
index 79cd164..9096523 100644
--- a/ext/Pod-Html/t/feature.t
+++ b/ext/Pod-Html/t/feature.t
@@ -21,7 +21,7 @@ convert_n_test(feature, misc pod-html features,
--podroot=$cwd,
--title=a title,
--quiet,
-
+ --libpods=perlguts:perlootut,
);
__DATA__
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.15.5-349-g7d0fb9b
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/7d0fb9b8e300e95212ca1a77b0d706eb5567788c?hp=5d5d9ea3ae69424edca11bf2237f2504fa313408 - Log - commit 7d0fb9b8e300e95212ca1a77b0d706eb5567788c Author: Steve Peters st...@fisharerojo.org Date: Fri Dec 9 09:56:51 2011 -0500 Update READMEs and Pod with the updated URLs at http://lists.perl.org --- Summary of changes: Porting/checkURL.pl |2 +- README.bs2000 |2 +- README.os390|2 +- README.vmesa|2 +- pod/perlthrtut.pod |2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Porting/checkURL.pl b/Porting/checkURL.pl index 90e7926..0e0003b 100755 --- a/Porting/checkURL.pl +++ b/Porting/checkURL.pl @@ -413,7 +413,7 @@ http://www.nara.gov/genealogy/soundex/soundex.html http://rfc.net/rfc3461.html ftp://ftp.cs.pdx.edu/pub/elvis/ http://www.fh-wedel.de/elvis/ -http://lists.perl.org/showlist.cgi?name=perl-mvs +http://lists.perl.org/list/perl-mvs.html http://www.cpan.org/ports/os2/ http://github.com/dagolden/cpan-meta-spec http://github.com/dagolden/cpan-meta-spec/issues diff --git a/README.bs2000 b/README.bs2000 index 7553113..6868557 100644 --- a/README.bs2000 +++ b/README.bs2000 @@ -224,7 +224,7 @@ To subscribe, send an empty message to perl-mvs-subscr...@perl.org. See also: -http://lists.perl.org/showlist.cgi?name=perl-mvs +http://lists.perl.org/list/perl-mvs.html There are web archives of the mailing list at: diff --git a/README.os390 b/README.os390 index cd35bde..6e2d49e 100644 --- a/README.os390 +++ b/README.os390 @@ -416,7 +416,7 @@ To subscribe, send an empty message to perl-mvs-subscr...@perl.org. See also: -http://lists.perl.org/showlist.cgi?name=perl-mvs +http://lists.perl.org/list/perl-mvs.html There are web archives of the mailing list at: diff --git a/README.vmesa b/README.vmesa index f11f5d8..ae8e386 100644 --- a/README.vmesa +++ b/README.vmesa @@ -120,7 +120,7 @@ To subscribe, send an empty message to perl-mvs-subscr...@perl.org. See also: -Lhttp://lists.perl.org/showlist.cgi?name=perl-mvs +Lhttp://lists.perl.org/list/perl-mvs.html There are web archives of the mailing list at: diff --git a/pod/perlthrtut.pod b/pod/perlthrtut.pod index d3136e9..6b693d1 100644 --- a/pod/perlthrtut.pod +++ b/pod/perlthrtut.pod @@ -1090,7 +1090,7 @@ Latest version of Lthreads::shared on CPAN: Lhttp://search.cpan.org/search?module=threads%3A%3Ashared Perl threads mailing list: -Lhttp://lists.cpan.org/showlist.cgi?name=iThreads +Lhttp://lists.perl.org/list/ithreads.html =head1 Bibliography -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.4-58-gccfef76
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/ccfef76d964c8b719db5c7fd06ce897a3eb64c01?hp=749b93721350107cd0209779c73646203f730aa0 - Log - commit ccfef76d964c8b719db5c7fd06ce897a3eb64c01 Merge: 96d4712 749b937 Author: Steve Peters st...@fisharerojo.org Date: Fri Aug 27 07:40:51 2010 -0500 Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/perl into blead commit 96d4712d196873edf70f7db79a4665f04f8116c2 Author: Steve Peters st...@fisharerojo.org Date: Fri Aug 27 07:40:03 2010 -0500 Typo fix in perlfork M pod/perlfork.pod --- Summary of changes: pod/perlfork.pod |2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/pod/perlfork.pod b/pod/perlfork.pod index 48d65ed..0ff6876 100644 --- a/pod/perlfork.pod +++ b/pod/perlfork.pod @@ -184,7 +184,7 @@ On some operating systems, notably Solaris and Unixware, calling Cexit() from a child process will flush and close open filehandles in the parent, thereby corrupting the filehandles. On these systems, calling C_exit() is suggested instead. C_exit() is available in Perl through the -CPOSIX module. Please consult your systems manpages for more information +CPOSIX module. Please consult your system's manpages for more information on this. =item Forking pipe open() not yet implemented -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.3-269-gd16d4b1
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/d16d4b10300b35e2d4d858a3e23cff975bc713fe?hp=a9f6cb1f22586fafc61c53a46e01a0a4452d
- Log -
commit d16d4b10300b35e2d4d858a3e23cff975bc713fe
Author: Steve Peters st...@fisharerojo.org
Date: Thu Aug 19 13:20:59 2010 -0500
Moved prototype check to XS code, allowing the .pm file change from
yesterday
to be removed. Thanks to Rafael for pointing out prototypes in XS.
---
Summary of changes:
ext/I18N-Langinfo/Langinfo.pm |4
ext/I18N-Langinfo/Langinfo.xs |3 ++-
2 files changed, 2 insertions(+), 5 deletions(-)
diff --git a/ext/I18N-Langinfo/Langinfo.pm b/ext/I18N-Langinfo/Langinfo.pm
index 62c93e6..f7bac77 100644
--- a/ext/I18N-Langinfo/Langinfo.pm
+++ b/ext/I18N-Langinfo/Langinfo.pm
@@ -100,10 +100,6 @@ sub AUTOLOAD {
bootstrap I18N::Langinfo $VERSION;
-sub langinfo(_) {
-return internal_langinfo(shift);
-}
-
1;
__END__
diff --git a/ext/I18N-Langinfo/Langinfo.xs b/ext/I18N-Langinfo/Langinfo.xs
index 2cdc50c..62f3580 100644
--- a/ext/I18N-Langinfo/Langinfo.xs
+++ b/ext/I18N-Langinfo/Langinfo.xs
@@ -16,8 +16,9 @@ PROTOTYPES: ENABLE
INCLUDE: const-xs.inc
SV*
-internal_langinfo(code)
+langinfo(code)
int code
+ PROTOTYPE: _
CODE:
#ifdef HAS_NL_LANGINFO
{
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.3-270-g1cefca6
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/1cefca6bb1a10d1e546d9a399299813645f0aac0?hp=d16d4b10300b35e2d4d858a3e23cff975bc713fe - Log - commit 1cefca6bb1a10d1e546d9a399299813645f0aac0 Author: Steve Peters st...@fisharerojo.org Date: Thu Aug 19 14:47:41 2010 -0500 Silence a warning in time64.c. Need to downgrade a const char * to a char *. --- Summary of changes: time64.c |2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/time64.c b/time64.c index 1d43f39..e1ceddf 100644 --- a/time64.c +++ b/time64.c @@ -368,7 +368,7 @@ static struct TM *S_gmtime64_r (const Time64_T *in_time, struct TM *p) p-tm_isdst = 0; #ifdef HAS_TM_TM_ZONE -p-tm_zone = UTC; +p-tm_zone = (char *)UTC; #endif v_tm_sec = (int)fmod(time, 60.0); -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.3-252-ga07de4b
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/a07de4b8aff2c1db4e3f6b61f59e5055074af940?hp=886e1cd71bd329370198ce6ff6e6f4cf6ee30e17
- Log -
commit a07de4b8aff2c1db4e3f6b61f59e5055074af940
Merge: b7b5612 886e1cd
Author: Steve Peters st...@fisharerojo.org
Date: Wed Aug 18 15:52:50 2010 -0500
Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/perl into blead
commit b7b56127fa601d5b0ee31a806bb53d0f1896d249
Author: Steve Peters st...@fisharerojo.org
Date: Wed Aug 18 15:50:17 2010 -0500
Make I18N::Langinfo::langinfo take $_ as an argument if none is specified as
its documentation advertises. Bump version for this change.
M ext/I18N-Langinfo/Langinfo.pm
M ext/I18N-Langinfo/Langinfo.xs
---
Summary of changes:
ext/I18N-Langinfo/Langinfo.pm |6 +-
ext/I18N-Langinfo/Langinfo.xs |2 +-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/ext/I18N-Langinfo/Langinfo.pm b/ext/I18N-Langinfo/Langinfo.pm
index 38d8f10..62c93e6 100644
--- a/ext/I18N-Langinfo/Langinfo.pm
+++ b/ext/I18N-Langinfo/Langinfo.pm
@@ -73,7 +73,7 @@ our @EXPORT_OK = qw(
YESSTR
);
-our $VERSION = '0.03';
+our $VERSION = '0.04';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
@@ -100,6 +100,10 @@ sub AUTOLOAD {
bootstrap I18N::Langinfo $VERSION;
+sub langinfo(_) {
+return internal_langinfo(shift);
+}
+
1;
__END__
diff --git a/ext/I18N-Langinfo/Langinfo.xs b/ext/I18N-Langinfo/Langinfo.xs
index c1da981..2cdc50c 100644
--- a/ext/I18N-Langinfo/Langinfo.xs
+++ b/ext/I18N-Langinfo/Langinfo.xs
@@ -16,7 +16,7 @@ PROTOTYPES: ENABLE
INCLUDE: const-xs.inc
SV*
-langinfo(code)
+internal_langinfo(code)
int code
CODE:
#ifdef HAS_NL_LANGINFO
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.3-267-g5bd0cfd
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/5bd0cfd283960d1462230a7c58e7349ce360ce7a?hp=0c073f19d868f9a1454e8eb149efc9fdf2abe4d7 - Log - commit 5bd0cfd283960d1462230a7c58e7349ce360ce7a Author: Steve Peters st...@fisharerojo.org Date: Thu Aug 19 00:04:59 2010 -0500 Some nits picked on the 5.13.4 delta. --- Summary of changes: pod/perl5134delta.pod |8 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/pod/perl5134delta.pod b/pod/perl5134delta.pod index e6533fa..38adab4 100644 --- a/pod/perl5134delta.pod +++ b/pod/perl5134delta.pod @@ -17,7 +17,7 @@ Lperl5133delta, which describes differences between 5.13.2 and =head2 Csrand() now returns the seed -This allows programs which need to have repeatable results to not have to come +This allows programs that need to have repeatable results to not have to come up with their own seed generating mechanism. Instead, they can use Csrand() and somehow stash the return for future use. Typical is a test program which has too many combinations to test comprehensively in the time available to it @@ -81,7 +81,7 @@ effectively declaring them as binary compatible, which they weren't. From now on, blead releases will have a CPERL_API_SUBVERSION equal to their CPERL_SUBVERSION, explicitly marking them as incompatible with each other. -Maintainance releases of stable perl versions will continue to make no +Maintenance releases of stable perl versions will continue to make no intentionally incompatible API changes. =head2 Check API compatibility when loading XS modules @@ -99,7 +99,7 @@ exception if they don't match. =head2 Binary Incompatible with all previous Perls -Some bit fields have been reordered, hence this release will not be binary +Some bit fields have been reordered; therefore, this release will not be binary compatible with any previous Perl release. =head1 Deprecations @@ -123,7 +123,7 @@ memory than needed in a very inefficient way, if perl was configured to use the system's Cmalloc implementation instead of its own. Csv_grow, which is what's being used to allocate more memory if necessary when -appending to a string, has now been teached how to round up the memory it +appending to a string, has now been taught how to round up the memory it requests to a certain geometric progression, making it much faster on certain platforms and configurations. On Win32, it's now about 100 times faster. -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.3-213-gdb7198b
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/db7198b53dd9e7c0c335754a463be277da12e8b5?hp=22afb09b13a6dc17f20388991422fdbe6166e3ed
- Log -
commit db7198b53dd9e7c0c335754a463be277da12e8b5
Author: Robin Barker r.m.bar...@btinternet.com
Date: Sat Aug 14 13:58:51 2010 -0500
RT #74436: [PATCH] Add -Wwrite-strings
The perl source has for some while been clean to -Wwrite-strings.
I suggest this warning be added to cflags.
The patch makes the appropriate change to cflags.SH and silences a warning
from mg.c
M cflags.SH
M mg.c
commit e761bb84a9e140614351efd76e7716ec2238cd75
Author: Chas. Owens chas.ow...@gmail.com
Date: Sat Aug 14 13:05:18 2010 -0500
RT #77150: perlre documentation issue and possible fix
M pod/perl5134delta.pod
M pod/perlre.pod
---
Summary of changes:
cflags.SH |3 ++-
mg.c |2 +-
pod/perl5134delta.pod | 12
pod/perlre.pod| 10 +-
4 files changed, 20 insertions(+), 7 deletions(-)
diff --git a/cflags.SH b/cflags.SH
index a5d71b9..f57cf2f 100644
--- a/cflags.SH
+++ b/cflags.SH
@@ -134,7 +134,8 @@ case $gccversion in
'') ;;
[12]*) ;; # gcc versions 1 (gasp!) and 2 are not good for this.
Intel*) ;; # # Is that you, Intel C++?
-*) for opt in -ansi -std=c89 -W -Wextra -Wdeclaration-after-statement
-Wendif-labels -Wc++-compat
+*) for opt in -ansi -std=c89 -W -Wextra -Wdeclaration-after-statement \
+ -Wendif-labels -Wc++-compat -Wwrite-strings
do
case $ccflags in
* $opt *) ;; # Skip if already there.
diff --git a/mg.c b/mg.c
index 95abbf6..797b57e 100644
--- a/mg.c
+++ b/mg.c
@@ -762,7 +762,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
{
dVAR;
register I32 paren;
-register char *s = NULL;
+register const char *s = NULL;
register REGEXP *rx;
const char * const remaining = mg-mg_ptr + 1;
const char nextchar = *remaining;
diff --git a/pod/perl5134delta.pod b/pod/perl5134delta.pod
index 418ac88..045b347 100644
--- a/pod/perl5134delta.pod
+++ b/pod/perl5134delta.pod
@@ -190,9 +190,21 @@ XXX
=head1 Documentation
+=head2 Modifications
+
XXX Changes to files in Fpod/ go here. Consider grouping entries by
file and be sure to link to the appropriate page, e.g. Lperlfunc.
+=head3 perlre
+
+=over 4
+
+=item *
+
+Minor fix to a multiple scalar match example.
+
+=back
+
=head2 New Documentation
XXX Changes which create Bnew files in Fpod/ go here.
diff --git a/pod/perlre.pod b/pod/perlre.pod
index 98aafdd..de5b719 100644
--- a/pod/perlre.pod
+++ b/pod/perlre.pod
@@ -363,11 +363,11 @@ not counted when determining the length of the match.
Thus the following
will not match forever:
X\G
-$str = 'ABC';
-pos($str) = 1;
-while (/.\G/g) {
-print $;
-}
+ my $string = 'ABC';
+ pos($string) = 1;
+ while ($string =~ /(.\G)/g) {
+ print $1;
+ }
It will print 'A' and then terminate, as it considers the match to
be zero-width, and thus will not match at the same position twice in a
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.3-214-ga9e1ff3
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/a9e1ff320df82b0ddf415dd208c6a48cdaa57808?hp=db7198b53dd9e7c0c335754a463be277da12e8b5
- Log -
commit a9e1ff320df82b0ddf415dd208c6a48cdaa57808
Author: Slaven Rezic sla...@rezic.de
Date: Sat Aug 14 14:28:05 2010 -0500
[perl #72588] t/op/mkdir.t fails, setting LC_ALL=C does not work
---
Summary of changes:
t/op/mkdir.t |4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/op/mkdir.t b/t/op/mkdir.t
index bd0d1b4..0ad5dac 100644
--- a/t/op/mkdir.t
+++ b/t/op/mkdir.t
@@ -17,11 +17,11 @@ $ENV{LANGUAGE} = 'C'; # GNU locale extension
ok(mkdir('blurfl',0777));
ok(!mkdir('blurfl',0777));
-like($!, qr/cannot move|exist|denied|unknown/i);
+ok($!{EEXIST} || $! =~ /cannot move|exist|denied|unknown/i);
ok(-d 'blurfl');
ok(rmdir('blurfl'));
ok(!rmdir('blurfl'));
-like($!, qr/cannot find|such|exist|not found|not a directory|unknown/i);
+ok($!{ENOENT} || $! =~ /cannot find|such|exist|not found|not a
directory|unknown/i);
ok(mkdir('blurfl'));
ok(rmdir('blurfl'));
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.11.4-73-g9a43387
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/9a43387b39cb0e760b618a3cc42bba6c0c90ec31?hp=b9ad13acb338e137b9560a8b578e1f7c983706be
- Log -
commit 9a43387b39cb0e760b618a3cc42bba6c0c90ec31
Author: Steve Peters st...@fisharerojo.org
Date: Wed Feb 10 19:41:48 2010 -0600
Per Jesse, ignoring the skipping the tests form threaded OpenBSD
builds. See RT #71504 for the mess that this is avoiding.
---
Summary of changes:
t/io/errno.t |4
1 files changed, 4 insertions(+), 0 deletions(-)
diff --git a/t/io/errno.t b/t/io/errno.t
index ad4e116..aff3369 100644
--- a/t/io/errno.t
+++ b/t/io/errno.t
@@ -5,6 +5,8 @@
# http://rt.perl.org/rt3/Ticket/Display.html?id=39060
use strict;
+use Config;
+
require './test.pl';
plan( tests = 16 );
@@ -25,6 +27,8 @@ for my $perlio ('perlio', 'stdio') {
SKIP:
for my $test_in (test\n, test) {
skip(Guaranteed newline at EOF on VMS, 4) if $^O eq 'VMS'
$test_in eq 'test';
+skip([perl #71504] OpenBSD test failures in errno.t with
ithreads and perlio, 8)
+if $^O eq 'openbsd' $Config{useithreads} $perlio eq
'stdio';
my $test_in_esc = $test_in;
$test_in_esc =~ s/\n/\\n/g;
for my $rs_code ('', '$/=undef', '$/=\2', '$/=\1024') {
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.11.2-86-ga917e5d
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/a917e5da001c2e01ede95e432a105b1aa899f1e5?hp=23e33b604408d78c7993c7ba35b0a4323eb9feeb
- Log -
commit a917e5da001c2e01ede95e432a105b1aa899f1e5
Merge: ff868e6 23e33b6
Author: Steve Peters st...@fisharerojo.org
Date: Sat Nov 28 23:45:10 2009 -0600
Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into
blead
commit ff868e665bf85a829dc47bfa1243b26d4367cacd
Author: Steve Peters st...@fisharerojo.org
Date: Sat Nov 28 23:43:11 2009 -0600
Add error codes for getaddrinfo() and getnameinfo()
M ext/POSIX/Makefile.PL
---
Summary of changes:
ext/POSIX/Makefile.PL |3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
index 5569e17..392b6fb 100644
--- a/ext/POSIX/Makefile.PL
+++ b/ext/POSIX/Makefile.PL
@@ -59,7 +59,8 @@ my @names =
_PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE
_SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX
_SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX
- _SC_VERSION),
+ _SC_VERSION EAI_AGAIN EAI_BADFLAGS EAI_FAIL EAI_FAMILY EAI_MEMORY
EAI_NONAME
+ EAI_SERVICE EAI_SOCKTYPE EAI_SYSTEM EAI_OVERFLOW),
{name=CLK_TCK, not_constant=1},
{name=MB_CUR_MAX, not_constant=1},
{name=EXIT_FAILURE, default=[IV, 1]},
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.11.1-107-g2b67659
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/2b6765935f5ee68d8093e686b8e292ad5de5a898?hp=2f7a9718549bed20690a376daf82104fa475c252
- Log -
commit 2b6765935f5ee68d8093e686b8e292ad5de5a898
Author: Bo Borgerson gig...@gmail.com
Date: Mon Nov 2 11:25:23 2009 -0600
[PATCH] [perl #20321] Non-destructive Perl_av_make
Don't let sv_setsv swipe temps in av_make, since the source array
might have multiple references to the same temp scalar (e.g. from
a list slice).
---
Summary of changes:
av.c|8 +++-
t/op/list.t |6 +-
2 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/av.c b/av.c
index 4718af2..a4d6ea2 100644
--- a/av.c
+++ b/av.c
@@ -404,8 +404,14 @@ Perl_av_make(pTHX_ register I32 size, register SV **strp)
AvFILLp(av) = AvMAX(av) = size - 1;
for (i = 0; i size; i++) {
assert (*strp);
+
+ /* Don't let sv_setsv swipe, since our source array might
+ have multiple references to the same temp scalar (e.g.
+ from a list slice) */
+
ary[i] = newSV(0);
- sv_setsv(ary[i], *strp);
+ sv_setsv_flags(ary[i], *strp,
+ SV_GMAGIC|SV_DO_COW_SVSETSV|SV_NOSTEAL);
strp++;
}
}
diff --git a/t/op/list.t b/t/op/list.t
index a8fdc18..184724a 100644
--- a/t/op/list.t
+++ b/t/op/list.t
@@ -6,7 +6,7 @@ BEGIN {
}
require test.pl;
-plan( tests = 57 );
+plan( tests = 58 );
@foo = (1, 2, 3, 4);
cmp_ok($foo[0], '==', 1, 'first elem');
@@ -161,3 +161,7 @@ cmp_ok(join('',(1,2),3,(4,5)),'eq','12345','list
(..).(..)');
test_zero_args(do-returned list slice, do { (10,11)[2,3]; });
}
+{
+# perl #20321
+is (join('', @{[('abc'=~/./g)[0,1,2,1,0]]}), abcba);
+}
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.11.1-92-gbe99ef1
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/be99ef1a1b51cea36c857c0e89fe4bad505a3eb2?hp=d3ab86beddf03171608c751a0b6585aeb1864b00
- Log -
commit be99ef1a1b51cea36c857c0e89fe4bad505a3eb2
Author: Yuval Kogman nothingm...@woobling.org
Date: Sat Oct 31 19:02:00 2009 -0500
Adds additional tests with undef for smartmatch.
Updated plan count missing in the original patch.
---
Summary of changes:
t/op/smartmatch.t | 17 -
1 files changed, 16 insertions(+), 1 deletions(-)
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 33836b3..117fd4e 100644
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -73,7 +73,7 @@ my %keyandmore = map { $_ = 0 } @keyandmore;
my %fooormore = map { $_ = 0 } @fooormore;
# Load and run the tests
-plan tests = 322;
+plan tests = 335;
while (DATA) {
SKIP: {
@@ -483,3 +483,18 @@ __DATA__
@nums { 1, '', 2, '' }
@nums { 1, '', 12, '' }
! @nums { 11, '', 12, '' }
+
+# UNDEF
+! 3 undef
+! 1 undef
+! [] undef
+! {} undef
+! \%::mainundef
+! [1,2] undef
+! %hash undef
+! @nums undef
+! foo undef
+!undef
+! !1 undef
+! \foo undef
+! sub { } undef
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.11.1-93-g7de9d14
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/7de9d14ea5825e7555ec8154a1b3731aa00948b6?hp=be99ef1a1b51cea36c857c0e89fe4bad505a3eb2
- Log -
commit 7de9d14ea5825e7555ec8154a1b3731aa00948b6
Author: Bram p...@perl.wizbit.be
Date: Sat Oct 31 19:17:57 2009 -0500
[PATCH] extra tests for t/op/tie.t (was RE: [perl #53482] I believe I found
a bug with Readonly::XS that might actually be a guts bug.)
---
Summary of changes:
t/op/tie.t | 16 +++-
1 files changed, 11 insertions(+), 5 deletions(-)
diff --git a/t/op/tie.t b/t/op/tie.t
index 8298ed2..8daa8b0 100644
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -588,13 +588,19 @@ print $h.$h;
EXPECT
01
+# Bug 53482 (and maybe others)
sub TIESCALAR { my $foo = $_[1]; bless \$foo, $_[0] }
sub FETCH { ${$_[0]} }
-tie my $x, main, 2;
-tie my $y, main, 8;
-print $x | $y;
-EXPECT
-10
+tie my $x1, main, 2;
+tie my $y1, main, 8;
+print $x1 | $y1;
+print $x1 | $y1;
+tie my $x2, main, 2;
+tie my $y2, main, 8;
+print $x2 | $y2;
+print $x2 | $y2;
+EXPECT
+1010::
# Bug 36267
sub TIEHASH { bless {}, $_[0] }
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.11.1-96-g6d5ba40
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/6d5ba409c26980e4e27923c54014d9f9cf834221?hp=7de9d14ea5825e7555ec8154a1b3731aa00948b6
- Log -
commit 6d5ba409c26980e4e27923c54014d9f9cf834221
Author: Steve Peters st...@fisharerojo.org
Date: Sat Oct 31 19:52:35 2009 -0500
Revert Re: [perl #38809][PATCH] loss of stack elements with a do block
inside a return
This reverts commit 60aa6a1aa894dd62b8194841a6d6c80c15079dba.
M t/op/do.t
commit 60aa6a1aa894dd62b8194841a6d6c80c15079dba
Author: Vincent Pit p...@profvince.com
Date: Sat Oct 31 19:49:59 2009 -0500
Re: [perl #38809][PATCH] loss of stack elements with a do block inside a
return
M t/op/do.t
commit b4da7baecba4c47b718c6a389ee37a234323bc09
Author: Bram via RT perlbug-comm...@perl.org
Date: Sat Oct 31 19:33:04 2009 -0500
[PATCH] Todo test for [perl #38133] (was: [regex] backref problem with
quantified groups)
This patch was modified to work with the updated file locations.
M t/re/pat_rt_report.t
---
Summary of changes:
t/re/pat_rt_report.t | 14 +-
1 files changed, 13 insertions(+), 1 deletions(-)
diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index 92f4acc..efbbe8f 100644
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -21,7 +21,7 @@ BEGIN {
}
-plan tests = 2510; # Update this when adding/deleting tests.
+plan tests = 2511; # Update this when adding/deleting tests.
run_tests() unless caller;
@@ -1178,6 +1178,18 @@ sub run_tests {
ok($s =~ $pat, $pat);
}
}
+
+{
+local $TODO = [perl #38133];
+
+A =~ /(((?:A))?)+/;
+my $first = $2;
+
+A =~ /(((A))?)+/;
+my $second = $2;
+
+iseq($first, $second);
+}
} # End of sub run_tests
1;
--
Perl5 Master Repository
[perl.git] branch blead, updated. v5.11.0-183-g74c2567
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/74c2567ea04065ba1e35ab395fe543042852be14?hp=7b00711fc6f174fa5decef23606eea519c272aa4
- Log -
commit 74c2567ea04065ba1e35ab395fe543042852be14
Author: Steve Peters st...@fisharerojo.org
Date: Thu Oct 15 09:50:42 2009 -0500
Hmmm... this may be a heisenbug. Works on some terminals but not
others.
This reverts commit 9e8c01f558a03902ff2f54935fd7e6dcc7ec656c.
---
Summary of changes:
ext/POSIX/POSIX.pm |2 +-
ext/POSIX/POSIX.xs |6 +++---
ext/POSIX/t/time.t |4 +---
3 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index b410fd9..120769c 100644
--- a/ext/POSIX/POSIX.pm
+++ b/ext/POSIX/POSIX.pm
@@ -4,7 +4,7 @@ use warnings;
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
-our $VERSION = 1.18;
+our $VERSION = 1.17;
use AutoLoader;
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 14b24ff..6de3588 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -1781,7 +1781,7 @@ mktime(sec, min, hour, mday, mon, year, wday = 0, yday =
0, isdst = -1)
# ST(0) = sv_2mortal(newSVpv(...))
void
strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst =
-1)
- SV *fmt
+ char * fmt
int sec
int min
int hour
@@ -1793,9 +1793,9 @@ strftime(fmt, sec, min, hour, mday, mon, year, wday = -1,
yday = -1, isdst = -1)
int isdst
CODE:
{
- char *buf = my_strftime(SvPVutf8_nolen(fmt), sec, min, hour, mday,
mon, year, wday, yday, isdst);
+ char *buf = my_strftime(fmt, sec, min, hour, mday, mon, year, wday,
yday, isdst);
if (buf) {
- ST(0) = sv_2mortal(newSVpvn_utf8(buf, strlen(buf),
SvUTF8(fmt)));
+ ST(0) = sv_2mortal(newSVpv(buf, 0));
Safefree(buf);
}
}
diff --git a/ext/POSIX/t/time.t b/ext/POSIX/t/time.t
index b1bdee2..103a161 100644
--- a/ext/POSIX/t/time.t
+++ b/ext/POSIX/t/time.t
@@ -4,7 +4,7 @@ use strict;
use Config;
use POSIX;
-use Test::More tests = 10;
+use Test::More tests = 9;
# go to UTC to avoid DST issues around the world when testing. SUS3 says that
# null should get you UTC, but some environments want the explicit names.
@@ -39,8 +39,6 @@ my $orig_loc = setlocale(LC_TIME, C) || die Cannot
setlocale() to C: $!;
my $jan_16 = 15 * 86400;
is(ctime($jan_16), strftime(%a %b %d %H:%M:%S %Y\n, localtime($jan_16)),
get ctime() equal to strftime());
-is(strftime(%Yå¹´%mæ%dæ¥, localtime($jan_16)), 1970å¹´01æ16æ¥,
-strftime() can handle unicode chars in the format string);
setlocale(LC_TIME, $orig_loc) || die Cannot setlocale() back to orig: $!;
# clock() seems to have different definitions of what it does between POSIX
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-1649-g5945e41
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/5945e41e91490c43ef1007c462cb87c2cbc71af5?hp=a4133167b58b08f5c4b0308e2c6a6830796adfdb - Log - commit 5945e41e91490c43ef1007c462cb87c2cbc71af5 Author: Steve Peters st...@fisharerojo.org Date: Thu Jul 23 11:15:46 2009 -0500 Add file to the MANIFEST and sort --- Summary of changes: MANIFEST |7 --- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/MANIFEST b/MANIFEST index 9b2e198..0874226 100644 --- a/MANIFEST +++ b/MANIFEST @@ -2206,8 +2206,8 @@ lib/ExtUtils/MM_Win95.pm MakeMaker methods for Win95 lib/ExtUtils/MY.pm MakeMaker user override class lib/ExtUtils/NOTES Notes about MakeMaker internals lib/ExtUtils/Packlist.pm Manipulates .packlist files -lib/ExtUtils/ParseXS.pmconverts Perl XS code into C code lib/ExtUtils/ParseXS/Changes ExtUtils::ParseXS change log +lib/ExtUtils/ParseXS.pmconverts Perl XS code into C code lib/ExtUtils/ParseXS/t/basic.t See if ExtUtils::ParseXS works lib/ExtUtils/ParseXS/t/usage.t ExtUtils::ParseXS tests lib/ExtUtils/ParseXS/t/XSTest.pm Test file for ExtUtils::ParseXS tests @@ -2230,7 +2230,6 @@ lib/ExtUtils/t/Constant.t See if ExtUtils::Constant works lib/ExtUtils/t/cp.tSee if ExtUtils::Command works lib/ExtUtils/t/dir_target.tVerify if dir_target() is supported lib/ExtUtils/t/Embed.t See if ExtUtils::Embed and embedding works -lib/ExtUtils/t/test_boilerplate.t MakeMaker test lib/ExtUtils/testlib.pmFixes up @INC to use just-built extension lib/ExtUtils/t/eu_command.tSee if ExtUtils::Command works lib/ExtUtils/t/FIRST_MAKEFILE.tSee if FIRST_MAKEFILE works @@ -2246,8 +2245,8 @@ lib/ExtUtils/t/INST_PREFIX.t See if MakeMaker can apply PREFIXs lib/ExtUtils/t/INST.t Check MakeMaker INST_* macros lib/ExtUtils/t/is_of_type.tTest for ExtUtils::MakeMaker lib/ExtUtils/t/Liblist.t See if ExtUtils::Liblist works -lib/ExtUtils/t/make.t See if make detection works lib/ExtUtils/t/MakeMaker_Parameters.t test MakeMaker Parameters section +lib/ExtUtils/t/make.t See if make detection works lib/ExtUtils/t/maketext_filter.t See if maketext_filter works lib/ExtUtils/t/Manifest.t See if ExtUtils::Manifest works lib/ExtUtils/t/metafile_data.t See if META.yml handling works @@ -2280,6 +2279,7 @@ lib/ExtUtils/t/prompt.t See if E::MM::prompt() works lib/ExtUtils/t/recurs.tSee if recursive builds work lib/ExtUtils/t/revision.t See if $Revision is correct lib/ExtUtils/t/split_command.t See if MM's xargs-like function works +lib/ExtUtils/t/test_boilerplate.t MakeMaker test lib/ExtUtils/t/testdata/reallylongdirectoryname/arch1/Config.pm test data for MakeMaker lib/ExtUtils/t/testdata/reallylongdirectoryname/arch2/Config.pm test data for MakeMaker lib/ExtUtils/t/testlib.t See if ExtUtils::testlib works @@ -4260,6 +4260,7 @@ t/op/readline.t See if / readline / rcatline work t/op/read.tSee if read() works t/op/recurse.t See if deep recursion works t/op/ref.t See if refs and objects work +t/op/reg_60508.t See if bug #60508 is fixed t/op/reg_email.t See if regex recursion works by parsing email addresses t/op/reg_email_thr.t See if regex recursion works by parsing email addresses in another thread t/op/regexp_noamp.tSee if regular expressions work with optimizations -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-1423-g68f62fd
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/68f62fdf7fe6ca672ef9024c62410f5e18575b94?hp=aeeb13907a575905ecbff42fc030f66088fa79b1 - Log - commit 68f62fdf7fe6ca672ef9024c62410f5e18575b94 Author: Steve Peters st...@fisharerojo.org Date: Mon Jun 22 23:15:22 2009 -0500 Add Porting/release_managers_guide.pod to MANIFEST --- Summary of changes: MANIFEST |1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/MANIFEST b/MANIFEST index 930d640..d961f69 100644 --- a/MANIFEST +++ b/MANIFEST @@ -3728,6 +3728,7 @@ Porting/podtidy Reformat pod using Pod::Tidy Porting/pumpkin.podGuidelines and hints for Perl maintainers Porting/README.y2038 Perl notes for the 2038 fix Porting/regcharclass.plGenerate regcharclass.h from inline data +Porting/release_managers_guide.pod Release Manager's Guide Porting/sort_perldiag.pl Keep our diagnostics orderly Porting/testall.atom Cumulative profile with Third Degree Porting/thirdclean Cleanup Third Degree reports -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-1383-g9441003
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/9441003632c1655e69cacf0e741f01d3190ca6d0?hp=17633433c13dda15b2bbefe0fff88605b4fe7a6e
- Log -
commit 9441003632c1655e69cacf0e741f01d3190ca6d0
Author: David Golden dagol...@cpan.org
Date: Tue Jun 16 07:35:47 2009 -0500
[PATCH] Updating Module::Build to 0.33_02
---
Summary of changes:
MANIFEST |1 -
Porting/Maintainers.pl |6 +-
lib/Module/Build.pm |9 +-
lib/Module/Build/API.pod | 10 +++
lib/Module/Build/Authoring.pod |3 +-
lib/Module/Build/Base.pm | 128 ++
lib/Module/Build/Compat.pm | 20 +++--
lib/Module/Build/Config.pm |2 +-
lib/Module/Build/ConfigData.pm | 66 ---
lib/Module/Build/Cookbook.pm |3 +-
lib/Module/Build/Dumper.pm |2 +-
lib/Module/Build/ModuleInfo.pm |2 +-
lib/Module/Build/Notes.pm|2 +-
lib/Module/Build/PPMMaker.pm |8 +-
lib/Module/Build/Platform/Amiga.pm |2 +-
lib/Module/Build/Platform/Default.pm |2 +-
lib/Module/Build/Platform/EBCDIC.pm |2 +-
lib/Module/Build/Platform/MPEiX.pm |2 +-
lib/Module/Build/Platform/MacOS.pm |2 +-
lib/Module/Build/Platform/RiscOS.pm |2 +-
lib/Module/Build/Platform/Unix.pm|9 +--
lib/Module/Build/Platform/VMS.pm | 67 ++--
lib/Module/Build/Platform/VOS.pm |2 +-
lib/Module/Build/Platform/Windows.pm |2 +-
lib/Module/Build/Platform/aix.pm |2 +-
lib/Module/Build/Platform/cygwin.pm |2 +-
lib/Module/Build/Platform/darwin.pm |2 +-
lib/Module/Build/Platform/os2.pm |2 +-
lib/Module/Build/PodParser.pm|2 +-
lib/Module/Build/scripts/bundle.pl | 53
lib/Module/Build/t/bundled/Tie/CPHash.pm |2 +-
lib/Module/Build/t/compat.t | 63 +++
lib/Module/Build/t/ext.t |8 ++-
lib/Module/Build/t/extend.t |4 +-
lib/Module/Build/t/metadata.t| 20 -
lib/Module/Build/t/runthrough.t | 19 -
36 files changed, 328 insertions(+), 205 deletions(-)
delete mode 100755 lib/Module/Build/scripts/bundle.pl
diff --git a/MANIFEST b/MANIFEST
index ead080d..beaf19f 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2573,7 +2573,6 @@ lib/Module/Build/Platform/Windows.pm Module::Build
lib/Module/Build.pmModule::Build
lib/Module/Build/PodParser.pm Module::Build
lib/Module/Build/PPMMaker.pm Module::Build
-lib/Module/Build/scripts/bundle.pl Module::Build
lib/Module/Build/scripts/config_data Module::Build
lib/Module/Build/t/add_property.t Module::Build
lib/Module/Build/t/basic.t Module::Build
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 6e7562d..167c3ce 100644
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1122,11 +1122,11 @@ package Maintainers;
'Module::Build' =
{
'MAINTAINER'= 'kwilliams',
- 'DISTRIBUTION' = 'EWILHELM/Module-Build-0.32.tar.gz',
+ 'DISTRIBUTION' = 'DAGOLDEN/Module-Build-0.33_02.tar.gz',
'FILES' = q[lib/Module/Build lib/Module/Build.pm],
- 'EXCLUDED' = [ qw{ t/par.t t/signature.t }, ],
+ 'EXCLUDED' = [ qw{ t/par.t t/signature.t scripts/bundle.pl}, ],
'CPAN' = 1,
- 'UPSTREAM' = undef,
+ 'UPSTREAM' = 'cpan',
},
'Module::CoreList' =
diff --git a/lib/Module/Build.pm b/lib/Module/Build.pm
index fe453b5..ae9639a 100644
--- a/lib/Module/Build.pm
+++ b/lib/Module/Build.pm
@@ -15,7 +15,7 @@ use Module::Build::Base;
use vars qw($VERSION @ISA);
@ISA = qw(Module::Build::Base);
-$VERSION = '0.32_01';
+$VERSION = '0.33_02';
$VERSION = eval $VERSION;
# Okay, this is the brute-force method of finding out what kind of
@@ -312,10 +312,9 @@ module for source distribution through a medium like CPAN.
It will create a
tarball of the files listed in FMANIFEST and compress the tarball using
GZIP compression.
-By default, this action will use the external Ctar and Cgzip
-executables on Unix-like platforms, and the CArchive::Tar module
-elsewhere. However, you can force it to use whatever executable you
-want by supplying an explicit Ctar (and optional Cgzip) parameter:
+By default, this action will use the CArchive::Tar module. However, you can
+force it to use binary tar and gzip executables by supplying an explicit
+Ctar (and optional Cgzip) parameter:
./Build dist --tar C:\path\to\tar.exe --gzip C:\path\to\zip.exe
diff --git a/lib/Module/Build/API.pod
[perl.git] branch blead, updated. GitLive-blead-1318-g454dbe4
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/454dbe40843112257eaf162094b08e258367e968?hp=12c541f435c0fde6414e8942d051e05098e0253e
- Log -
commit 454dbe40843112257eaf162094b08e258367e968
Merge: 26e8050... 12c541f...
Author: Steve Peters st...@fisharerojo.org
Date: Wed Jun 10 08:32:55 2009 -0500
Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into
blead
commit 26e8050aaf2eeca2f04cdc7bc5df07f8dc4ff0f9
Author: Niko Tyni nt...@debian.org
Date: Wed Jun 10 08:32:42 2009 -0500
[perl #66452] TMPDIR not honored when opening an anonymous temporary file
M perlio.c
M t/io/perlio.t
---
Summary of changes:
perlio.c |4 +++-
t/io/perlio.t | 15 ++-
2 files changed, 17 insertions(+), 2 deletions(-)
diff --git a/perlio.c b/perlio.c
index e92a32a..89718e9 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5174,7 +5174,9 @@ PerlIO_tmpfile(void)
f = PerlIO_fdopen(fd, w+b);
#else /* WIN32 */
#if defined(HAS_MKSTEMP) ! defined(VMS) ! defined(OS2)
- SV * const sv = newSVpvs(/tmp/PerlIO_XX);
+ const char * const tmpdir = PerlEnv_getenv(TMPDIR);
+ SV * const sv = newSVpv(tmpdir ? tmpdir : /tmp, 0);
+ sv_catpv(sv, /PerlIO_XX);
/*
* I have no idea how portable mkstemp() is ... NI-S
*/
diff --git a/t/io/perlio.t b/t/io/perlio.t
index c145945..8d76d91 100644
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -8,13 +8,14 @@ BEGIN {
}
}
-use Test::More tests = 37;
+use Test::More tests = 39;
use_ok('PerlIO');
my $txt = txt$$;
my $bin = bin$$;
my $utf = utf$$;
+my $nonexistent = nex$$;
my $txtfh;
my $binfh;
@@ -89,6 +90,17 @@ ok(close($utffh));
# report after STDOUT is restored
ok($status, ' re-open STDOUT');
close OLDOUT;
+
+SKIP: {
+ skip(TMPDIR not honored on this platform, 2)
+if !$Config{d_mkstemp}
+|| $^O eq 'VMS' || $^O eq 'MSwin32' || $^O eq 'os2';
+ local $ENV{TMPDIR} = $nonexistent;
+ ok( !open(my $x,+,undef), 'TMPDIR honored by magic temp file via 3
arg open with undef - fails if TMPDIR points to a non-existent dir');
+
+ mkdir $ENV{TMPDIR};
+ ok(open(my $x,+,undef), 'TMPDIR honored by magic temp file via 3 arg
open with undef - works if TMPDIR points to an existent dir');
+}
}
# in-memory open
@@ -136,5 +148,6 @@ END {
1 while unlink $txt;
1 while unlink $bin;
1 while unlink $utf;
+1 while rmdir $nonexistent;
}
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-1315-gaf6a0f9
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/af6a0f9e3d4aacb66f6fd0d20aa527ab7d9a9032?hp=dfed8d37710c8ee747a9c1375201396b85ccaed2
- Log -
commit af6a0f9e3d4aacb66f6fd0d20aa527ab7d9a9032
Author: Paul Marquess paul.marqu...@ntlworld.com
Date: Tue Jun 9 22:26:21 2009 -0500
[PATCH] Filter-Util-Call (was RE: pmqs: dual life modules)
---
Summary of changes:
ext/Filter-Util-Call/t/call.t | 22 ++
1 files changed, 14 insertions(+), 8 deletions(-)
diff --git a/ext/Filter-Util-Call/t/call.t b/ext/Filter-Util-Call/t/call.t
index c1a5685..b1c7c05 100644
--- a/ext/Filter-Util-Call/t/call.t
+++ b/ext/Filter-Util-Call/t/call.t
@@ -1,13 +1,19 @@
BEGIN {
-chdir('t') if -d 't';
-@INC = '.';
-push @INC, '../lib';
-require Config; import Config;
-if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) {
-print 1..0 # Skip: Filter::Util::Call was not built\n;
-exit 0;
+if ($ENV{PERL_CORE}){
+chdir('t') if -d 't';
+@INC = ('.', '../lib');
+
+require Config; import Config;
+%Config=%Config if 0; # cease -w
+if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) {
+print 1..0 # Skip: Filter::Util::Call was not built\n;
+exit 0;
+}
+require 'lib/filter-util.pl';
+}
+else {
+require 'filter-util.pl';
}
-require 'lib/filter-util.pl';
}
use strict;
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-1300-g59ea7c6
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/59ea7c6d8e0c5d0244e7496dd44e31e7c14e8f83?hp=983ed8e9492b48b2d8de93f487df19d0f20bb0ab
- Log -
commit 59ea7c6d8e0c5d0244e7496dd44e31e7c14e8f83
Author: Steve Peters st...@fisharerojo.org
Date: Mon Jun 8 11:43:56 2009 -0500
Sync bleadperl and Net-Ping with the release of Net-Ping-2.36
---
Summary of changes:
lib/Net/Ping.pm |2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index ebdbb42..e9fff93 100644
--- a/lib/Net/Ping.pm
+++ b/lib/Net/Ping.pm
@@ -16,7 +16,7 @@ use Carp;
@ISA = qw(Exporter);
@EXPORT = qw(pingecho);
-$VERSION = 2.35;
+$VERSION = 2.36;
sub SOL_IP { 0; };
sub IP_TOS { 1; };
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-1267-gdcfdccf
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/dcfdccf94c5ada3342776b740fd487168bef3ca3?hp=813720522fb5f54e39efcf9e4103d762ad005f51 - Log - commit dcfdccf94c5ada3342776b740fd487168bef3ca3 Author: Paul Marquess paul.marqu...@ntlworld.com Date: Fri Jun 5 19:42:38 2009 -0500 [PATCH] *-Compress-* 2.020 --- Summary of changes: ext/Compress-Raw-Bzip2/Bzip2.xs|4 +- ext/Compress-Raw-Bzip2/Changes |4 ++ ext/Compress-Raw-Bzip2/README |6 ++-- ext/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm |2 +- ext/Compress-Raw-Bzip2/t/000prereq.t |2 +- ext/Compress-Raw-Zlib/Changes |4 ++ ext/Compress-Raw-Zlib/README |6 ++-- ext/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm | 11 +++ ext/IO-Compress/Changes|9 ++ ext/IO-Compress/Makefile.PL|2 +- ext/IO-Compress/README |6 ++-- ext/IO-Compress/lib/Compress/Zlib.pm | 12 ext/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm |6 ++-- ext/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm |6 ++-- .../lib/IO/Compress/Adapter/Identity.pm|4 +- ext/IO-Compress/lib/IO/Compress/Base.pm|4 +- ext/IO-Compress/lib/IO/Compress/Base/Common.pm |2 +- ext/IO-Compress/lib/IO/Compress/Bzip2.pm | 10 +++--- ext/IO-Compress/lib/IO/Compress/Deflate.pm | 10 +++--- ext/IO-Compress/lib/IO/Compress/Gzip.pm| 12 ext/IO-Compress/lib/IO/Compress/Gzip/Constants.pm |2 +- ext/IO-Compress/lib/IO/Compress/RawDeflate.pm | 12 ext/IO-Compress/lib/IO/Compress/Zip.pm | 24 ext/IO-Compress/lib/IO/Compress/Zip/Constants.pm |2 +- ext/IO-Compress/lib/IO/Compress/Zlib/Constants.pm |2 +- ext/IO-Compress/lib/IO/Compress/Zlib/Extra.pm |4 +- .../lib/IO/Uncompress/Adapter/Bunzip2.pm | 15 + .../lib/IO/Uncompress/Adapter/Identity.pm |9 -- .../lib/IO/Uncompress/Adapter/Inflate.pm |7 ++-- ext/IO-Compress/lib/IO/Uncompress/AnyInflate.pm| 18 ++-- ext/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm | 30 ++-- ext/IO-Compress/lib/IO/Uncompress/Base.pm | 10 ++ ext/IO-Compress/lib/IO/Uncompress/Bunzip2.pm | 10 +++--- ext/IO-Compress/lib/IO/Uncompress/Gunzip.pm| 14 ext/IO-Compress/lib/IO/Uncompress/Inflate.pm |8 ++-- ext/IO-Compress/lib/IO/Uncompress/RawInflate.pm| 10 +++--- ext/IO-Compress/lib/IO/Uncompress/Unzip.pm | 18 ++-- ext/IO-Compress/t/000prereq.t |2 +- 38 files changed, 169 insertions(+), 150 deletions(-) diff --git a/ext/Compress-Raw-Bzip2/Bzip2.xs b/ext/Compress-Raw-Bzip2/Bzip2.xs index 36b2dbe..c343e8a 100644 --- a/ext/Compress-Raw-Bzip2/Bzip2.xs +++ b/ext/Compress-Raw-Bzip2/Bzip2.xs @@ -796,10 +796,10 @@ bzinflate (s, buf, output) bufinc *= 2 ; } -/*DispStream(s, pre); */ +/* DispStream(s, pre); */ RETVAL = BZ2_bzDecompress ((s-stream)); -/*DispStream(s, apres);*/ +/* DispStream(s, apres); */ if (RETVAL != BZ_OK || s-flags FLAG_LIMIT_OUTPUT) break ; diff --git a/ext/Compress-Raw-Bzip2/Changes b/ext/Compress-Raw-Bzip2/Changes index f8c7a64..798e1ac 100644 --- a/ext/Compress-Raw-Bzip2/Changes +++ b/ext/Compress-Raw-Bzip2/Changes @@ -1,6 +1,10 @@ CHANGES --- + 2.020 4 June 2009 + + * No Changes + 2.019 4 May 2009 * tidied up Bzip2.xs diff --git a/ext/Compress-Raw-Bzip2/README b/ext/Compress-Raw-Bzip2/README index 7f6bcb7..c96ce46 100644 --- a/ext/Compress-Raw-Bzip2/README +++ b/ext/Compress-Raw-Bzip2/README @@ -1,9 +1,9 @@ Compress-Raw-Bzip2 - Version 2.019 + Version 2.020 - 4th May 2009 + 3rd June 2009 Copyright (c) 2005-2009 Paul Marquess. All rights reserved. This program is free software; you can redistribute it @@ -164,7 +164,7 @@ To help me help you, I need all of the following information: If you haven't installed Compress-Raw-Bzip2 then search Compress::Raw::Bzip2.pm for a line like this: - $VERSION = 2.019 ; + $VERSION = 2.020 ; c. The version of bzip2 you have used. If you have successfully installed Compress-Raw-Bzip2, this one-liner diff --git a/ext/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm b/ext/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm index
[perl.git] branch blead, updated. GitLive-blead-1007-g2b622f1
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/2b622f1ab95eef319d54ddc6bec007dfd5f831a8?hp=30a06a3af12bb1237a004c2795d506c231bc6ea5
- Log -
commit 2b622f1ab95eef319d54ddc6bec007dfd5f831a8
Author: Michael G Schwern schw...@pobox.com
Date: Sat Apr 25 21:16:12 2009 -0500
[PATCH] Allow PERL5OPT=-W
---
Summary of changes:
perl.c |2 +-
pod/perlrun.pod |2 +-
t/run/runenv.t | 11 ++-
3 files changed, 12 insertions(+), 3 deletions(-)
diff --git a/perl.c b/perl.c
index 701b010..130a83c 100644
--- a/perl.c
+++ b/perl.c
@@ -1923,7 +1923,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
d = s;
if (!*s)
break;
- if (!strchr(CDIMUdmtw, *s))
+ if (!strchr(CDIMUdmtwW, *s))
Perl_croak(aTHX_ Illegal switch in PERL5OPT: -%c, *s);
while (++s *s) {
if (isSPACE(*s)) {
diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index 308bea2..c3b30c8 100644
--- a/pod/perlrun.pod
+++ b/pod/perlrun.pod
@@ -974,7 +974,7 @@ is used. The program should instead say:
XPERL5OPT
Command-line options (switches). Switches in this variable are taken
-as if they were on every Perl command line. Only the B-[CDIMUdmtw]
+as if they were on every Perl command line. Only the B-[CDIMUdmtwW]
switches are allowed. When running taint checks (because the program
was running setuid or setgid, or the B-T switch was used), this
variable is ignored. If PERL5OPT begins with B-T, tainting will be
diff --git a/t/run/runenv.t b/t/run/runenv.t
index 1d2a6a7..03706ed 100644
--- a/t/run/runenv.t
+++ b/t/run/runenv.t
@@ -15,7 +15,7 @@ BEGIN {
require './test.pl'
}
-plan tests = 75;
+plan tests = 76;
my $STDOUT = tempfile();
my $STDERR = tempfile();
@@ -157,6 +157,15 @@ try({PERL5OPT = '-t'},
'-1',
'');
+try({PERL5OPT = '-W'},
+['-e', 'local $^W = 0; no warnings; print $x'],
+'',
+ERROR
+Name main::x used only once: possible typo at -e line 1.
+Use of uninitialized value \$x in print at -e line 1.
+ERROR
+);
+
try({PERLLIB = foobar$Config{path_sep}42},
['-e', 'print grep { $_ eq foobar } @INC'],
'foobar',
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-1008-g46ad78b
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/46ad78bae1143b11df6e542008abadd9b3e1583b?hp=2b622f1ab95eef319d54ddc6bec007dfd5f831a8
- Log -
commit 46ad78bae1143b11df6e542008abadd9b3e1583b
Author: Jos I. Boumans j...@dwim.org
Date: Sat Apr 25 21:20:37 2009 -0500
[PATCH] Update Term::UI to 0.20
---
Summary of changes:
lib/Term/UI.pm |4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Term/UI.pm b/lib/Term/UI.pm
index 4b20faa..136f75b 100644
--- a/lib/Term/UI.pm
+++ b/lib/Term/UI.pm
@@ -11,7 +11,7 @@ use strict;
BEGIN {
use varsqw[$VERSION $AUTOREPLY $VERBOSE $INVALID];
$VERBOSE= 1;
-$VERSION= '0.18';
+$VERSION= '0.20';
$INVALID= loc('Invalid selection, please try again: ');
}
@@ -147,7 +147,7 @@ sub get_reply {
### so this choice is the default? add it to 'prompt_add'
### so we can construct a foo? [DIGIT] type prompt
-$prompt_add = $i if $choice eq $args-{default};
+$prompt_add = $i if (defined $args-{default} and $choice eq
$args-{default});
### create a DIGIT choice type line
$args-{print_me} .= sprintf \n%3s %-s, $i, $choice;
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-994-g75585ce
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/75585ce3d6239f0b454466f55cbd9010c634ef85?hp=c98623cf8bac8367507075aa63d49f990d1036dd
- Log -
commit 75585ce3d6239f0b454466f55cbd9010c634ef85
Author: Steve Peters st...@fisharerojo.org
Date: Thu Apr 23 12:13:00 2009 -0500
Add an idea to perltodo
---
Summary of changes:
pod/perltodo.pod | 14 ++
1 files changed, 14 insertions(+), 0 deletions(-)
diff --git a/pod/perltodo.pod b/pod/perltodo.pod
index 440cae1..0a75e70 100644
--- a/pod/perltodo.pod
+++ b/pod/perltodo.pod
@@ -400,6 +400,20 @@ C$Config{link} and institute a fall-back plan if it
weren't found.
Although I can see that as confusing, given that C$Config{d_link} is true
when (hard) links are available.
+=head2 Configure Windows using PowerShell
+
+Currently, Windows uses hard-coded config files based to build the
+config.h for compiling Perl. Makefiles are also hard-coded and need to be
+hand edited prior to building Perl. While this makes it easy to create a
perl.exe
+that works across multiple Windows versions, being able to accurately
+configure a perl.exe for a specific Windows versions and VS C++ would be
+a nice enhancement. With PowerShell available on Windows XP and up, this
+may now be possible. Step 1 might be to investigate whether this is possible
+and use this to clean up our current makefile situation. Step 2 would be to
+see if there would be a way to use our existing metaconfig units to configure a
+Windows Perl or whether we go in a separate direction and make it so. Of
+course, we all know what step 3 is.
+
=head1 Tasks that need a little C knowledge
These tasks would need a little C knowledge, but don't need any specific
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-942-gc14f59c
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/c14f59c3c1b4192dd6126638d5f8a7214c2dd445?hp=6e0da8f3ffa51c3bb7795b79ead8b082afb21a52
- Log -
commit c14f59c3c1b4192dd6126638d5f8a7214c2dd445
Author: Paul Marquess paul.marqu...@ntlworld.com
Date: Mon Apr 13 08:23:28 2009 -0500
[PATCH] Compress-Raw-Bzip2 2.018 (was RE: Compress-Raw-Bzip2 fails for g++)
---
Summary of changes:
ext/Compress-Raw-Bzip2/Bzip2.xs | 15 ++
ext/Compress-Raw-Bzip2/Changes |5 +++
ext/Compress-Raw-Bzip2/README|4 +-
ext/Compress-Raw-Bzip2/bzip2-src/bzip2recover.c |4 +-
ext/Compress-Raw-Bzip2/bzip2-src/bzlib.c | 33 --
ext/Compress-Raw-Bzip2/bzip2-src/decompress.c|6 ++--
ext/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm |2 +-
ext/Compress-Raw-Bzip2/t/01bzip2.t |2 +-
8 files changed, 41 insertions(+), 30 deletions(-)
diff --git a/ext/Compress-Raw-Bzip2/Bzip2.xs b/ext/Compress-Raw-Bzip2/Bzip2.xs
index 6dec48d..ba13ab2 100644
--- a/ext/Compress-Raw-Bzip2/Bzip2.xs
+++ b/ext/Compress-Raw-Bzip2/Bzip2.xs
@@ -338,6 +338,9 @@ PROTOTYPES: DISABLE
INCLUDE: constants.xs
BOOT:
+#ifndef NO_WRITEABLE_DATA
+ trace = TRACE_DEFAULT ;
+#endif
/* Check this version of bzip2 is == 1 */
if (BZ2_bzlibVersion()[0] != '1')
croak(COMPRESS_CLASS needs bzip2 version 1.x, you have %s\n,
BZ2_bzlibVersion()) ;
@@ -350,8 +353,8 @@ const char *
bzlibversion()
void
-new(class, appendOut=1, blockSize100k=1, workfactor=0, verbosity=0)
-const char * class
+new(className, appendOut=1, blockSize100k=1, workfactor=0, verbosity=0)
+const char * className
int appendOut
intblockSize100k
int workfactor
@@ -387,7 +390,7 @@ new(class, appendOut=1, blockSize100k=1, workfactor=0,
verbosity=0)
err = BZ_MEM_ERROR ;
{
-SV* obj = sv_setref_pv(sv_newmortal(), class, (void*)s);
+SV* obj = sv_setref_pv(sv_newmortal(), className, (void*)s);
XPUSHs(obj);
}
if(0)
@@ -405,8 +408,8 @@ new(class, appendOut=1, blockSize100k=1, workfactor=0,
verbosity=0)
MODULE = Compress::Raw::Bunzip2 PACKAGE = Compress::Raw::Bunzip2
void
-new(class, appendOut=1 , consume=1, small=0, verbosity=0)
-const char* class
+new(className, appendOut=1 , consume=1, small=0, verbosity=0)
+const char* className
int appendOut
int consume
int small
@@ -440,7 +443,7 @@ new(class, appendOut=1 , consume=1, small=0, verbosity=0)
err = BZ_MEM_ERROR ;
{
-SV* obj = sv_setref_pv(sv_newmortal(), class, (void*)s);
+SV* obj = sv_setref_pv(sv_newmortal(), className, (void*)s);
XPUSHs(obj);
}
if (0)
diff --git a/ext/Compress-Raw-Bzip2/Changes b/ext/Compress-Raw-Bzip2/Changes
index 928bfcd..944eaaa 100644
--- a/ext/Compress-Raw-Bzip2/Changes
+++ b/ext/Compress-Raw-Bzip2/Changes
@@ -1,6 +1,11 @@
CHANGES
---
+ 2.018 11 April 2009
+
+ * Changes to bzip2 source to get the module to build using a C++
+compiler
+
2.017 28 March 2009
* Minor changes to allow building in perl core.
diff --git a/ext/Compress-Raw-Bzip2/README b/ext/Compress-Raw-Bzip2/README
index 559e5c1..9e70cd7 100644
--- a/ext/Compress-Raw-Bzip2/README
+++ b/ext/Compress-Raw-Bzip2/README
@@ -1,9 +1,9 @@
Compress-Raw-Bzip2
- Version 2.017
+ Version 2.018
-28th March 2009
+11th April 2009
Copyright (c) 2005-2009 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it
diff --git a/ext/Compress-Raw-Bzip2/bzip2-src/bzip2recover.c
b/ext/Compress-Raw-Bzip2/bzip2-src/bzip2recover.c
index 5f6d621..bdbcd8b 100644
--- a/ext/Compress-Raw-Bzip2/bzip2-src/bzip2recover.c
+++ b/ext/Compress-Raw-Bzip2/bzip2-src/bzip2recover.c
@@ -153,7 +153,7 @@ typedef
/*-*/
static BitStream* bsOpenReadStream ( FILE* stream )
{
- BitStream *bs = malloc ( sizeof(BitStream) );
+ BitStream *bs = (BitStream*) malloc ( sizeof(BitStream) );
if (bs == NULL) mallocFail ( sizeof(BitStream) );
bs-handle = stream;
bs-buffer = 0;
@@ -166,7 +166,7 @@ static BitStream* bsOpenReadStream ( FILE* stream )
/*-*/
static BitStream* bsOpenWriteStream ( FILE* stream )
{
- BitStream *bs = malloc ( sizeof(BitStream) );
+ BitStream *bs = (BitStream*) malloc ( sizeof(BitStream) );
if (bs == NULL) mallocFail ( sizeof(BitStream) );
bs-handle = stream;
bs-buffer = 0;
diff --git a/ext/Compress-Raw-Bzip2/bzip2-src/bzlib.c
b/ext/Compress-Raw-Bzip2/bzip2-src/bzlib.c
index
[perl.git] branch blead, updated. GitLive-blead-946-g3915ffe
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/3915ffe07a6c4c63a7c57102cce7e300db028fa8?hp=5dfb71230edbb30406110efe28429e2b41f8e200
- Log -
commit 3915ffe07a6c4c63a7c57102cce7e300db028fa8
Merge: ad6402b... 5dfb712...
Author: Steve Peters st...@fisharerojo.org
Date: Mon Apr 13 08:57:14 2009 -0500
Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into
blead
commit ad6402bdb921e482fec0b070a69ca353669e4a93
Author: Steve Peters st...@fisharerojo.org
Date: Mon Apr 13 08:56:36 2009 -0500
Upgrade to CGI.pm-3.43
M lib/CGI.pm
M lib/CGI/Util.pm
M lib/CGI/t/util-58.t
---
Summary of changes:
lib/CGI.pm | 281 ++-
lib/CGI/Util.pm | 21 +++--
lib/CGI/t/util-58.t | 42 +---
3 files changed, 162 insertions(+), 182 deletions(-)
diff --git a/lib/CGI.pm b/lib/CGI.pm
index 21d74c0..61118bd 100644
--- a/lib/CGI.pm
+++ b/lib/CGI.pm
@@ -18,8 +18,8 @@ use Carp 'croak';
# The most recent version and complete docs are available at:
# http://stein.cshl.org/WWW/software/CGI/
-$CGI::revision = '$Id: CGI.pm,v 1.260 2008/09/08 14:13:23 lstein Exp $';
-$CGI::VERSION='3.42';
+$CGI::revision = '$Id: CGI.pm,v 1.263 2009/02/11 16:56:37 lstein Exp $';
+$CGI::VERSION='3.43';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
# UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
@@ -294,10 +294,10 @@ sub import {
# To allow overriding, search through the packages
# Till we find one in which the correct subroutine is defined.
my @packages = ($self,@{$self\:\:ISA});
-foreach $sym (keys %EXPORT) {
+for $sym (keys %EXPORT) {
my $pck;
my $def = ${$self\:\:AutoloadClass} || $DefaultClass;
- foreach $pck (@packages) {
+ for $pck (@packages) {
if (defined({$pck\:\:$sym})) {
$def = $pck;
last;
@@ -317,7 +317,7 @@ sub expand_tags {
return (start_$1,end_$1) if $tag=~/^(?:\*|start_|end_)(.+)/;
my(@r);
return ($tag) unless $EXPORT_TAGS{$tag};
-foreach (@{$EXPORT_TAGS{$tag}}) {
+for (@{$EXPORT_TAGS{$tag}}) {
push(@r,expand_tags($_));
}
return @r;
@@ -381,7 +381,7 @@ sub new {
sub DESTROY {
my $self = shift;
if ($OS eq 'WINDOWS') {
-foreach my $href (values %{$self-{'.tmpfiles'}}) {
+for my $href (values %{$self-{'.tmpfiles'}}) {
$href-{hndl}-DESTROY if defined $href-{hndl};
$href-{name}-DESTROY if defined $href-{name};
}
@@ -433,7 +433,7 @@ sub param {
if (substr($p[0],0,1) eq '-') {
@values = defined($value) ? (ref($value) ref($value) eq 'ARRAY'
? @{$value} : $value) : ();
} else {
- foreach ($value,@other) {
+ for ($value,@other) {
push(@values,$_) if defined($_);
}
}
@@ -488,7 +488,7 @@ sub self_or_CGI {
# Initialize the query object from the environment.
# If a parameter list is found, this object will be set
-# to an associative array in which parameter names are keys
+# to a hash in which parameter names are keys
# and the values are stored as lists
# If a keyword list is found, this method creates a bogus
# parameter list with the single parameter 'keywords'.
@@ -603,7 +603,7 @@ sub init {
last METHOD;
}
if (ref($initializer) ref($initializer) eq 'HASH') {
- foreach (keys %$initializer) {
+ for (keys %$initializer) {
$self-param('-name'=$_,'-value'=$initializer-{$_});
}
last METHOD;
@@ -697,9 +697,9 @@ sub init {
$self-delete_all();
}
-# Associative array containing our defined fieldnames
+# hash containing our defined fieldnames
$self-{'.fieldnames'} = {};
-foreach ($self-param('.cgifields')) {
+for ($self-param('.cgifields')) {
$self-{'.fieldnames'}-{$_}++;
}
@@ -752,7 +752,7 @@ sub save_request {
# again, we initialize ourselves in exactly the same way. This allows
# us to have several of these objects.
@QUERY_PARAM = $self-param; # save list of parameters
-foreach (@QUERY_PARAM) {
+for (@QUERY_PARAM) {
next unless defined $_;
$QUERY_PARAM{$_}=$self-{param}{$_};
}
@@ -765,7 +765,7 @@ sub parse_params {
my($self,$tosplit) = @_;
my(@pairs) = split(/[;]/,$tosplit);
my($param,$value);
-foreach (@pairs) {
+for (@pairs) {
($param,$value) = split('=',$_,2);
next unless defined $param;
next if $NO_UNDEF_PARAMS and not defined $value;
@@ -899,7 +899,7 @@ sub _setup_symbols {
# to avoid reexporting unwanted variables
undef %EXPORT;
-foreach (@_) {
+for (@_) {
$HEADERS_ONCE++, next if /^[:-]unique_headers
[perl.git] branch blead, updated. GitLive-blead-947-g2f2071b
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/2f2071b189aec38784eaa4544119619ec94657b8?hp=3915ffe07a6c4c63a7c57102cce7e300db028fa8
- Log -
commit 2f2071b189aec38784eaa4544119619ec94657b8
Author: Andreas J. Koenig andreas.koenig.7os6v...@franz.ak.mind.de
Date: Mon Apr 13 16:35:16 2009 -0500
[PATCH] Update CPAN.pm to 1.93_52
---
Summary of changes:
MANIFEST |2 +-
lib/CPAN.pm | 36 +++---
lib/CPAN/Author.pm| 31 -
lib/CPAN/Complete.pm | 12 +++-
lib/CPAN/DeferedCode.pm | 16 -
lib/CPAN/Distribution.pm | 19 -
lib/CPAN/Distroprefs.pm |7 ++-
lib/CPAN/Exception/RecursiveDependency.pm | 15 +++--
lib/CPAN/FTP.pm | 48 ++---
lib/CPAN/FTP/netrc.pm |2 +
lib/CPAN/FirstTime.pm | 104
lib/CPAN/HandleConfig.pm |1 +
lib/CPAN/Index.pm | 73 +++-
lib/CPAN/LWP/UserAgent.pm |2 +
lib/CPAN/Module.pm| 40 ++-
lib/CPAN/Shell.pm | 17 +
16 files changed, 289 insertions(+), 136 deletions(-)
delete mode 100644 lib/CPAN/DeferedCode.pm
diff --git a/MANIFEST b/MANIFEST
index 9bbc6d0..21c6a76 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1898,11 +1898,11 @@ lib/CPAN/Bundle.pm helper package for
CPAN.pm
lib/CPAN/CacheMgr.pm helper package for CPAN.pm
lib/CPAN/Complete.pm helper package for CPAN.pm
lib/CPAN/Debug.pm helper package for CPAN.pm
-lib/CPAN/DeferedCode.pmhelper package for CPAN.pm
lib/CPAN/DeferredCode.pm helper package for CPAN.pm
lib/CPAN/Distribution.pm helper package for CPAN.pm
lib/CPAN/Distroprefs.pmhelper package for CPAN.pm
lib/CPAN/Distrostatus.pm helper package for CPAN.pm
+lib/CPAN/Exception/blocked_urllist.pm helper package for CPAN.pm
lib/CPAN/Exception/RecursiveDependency.pm helper package for CPAN.pm
lib/CPAN/Exception/yaml_not_installed.pm helper package for CPAN.pm
lib/CPAN/FirstTime.pm Utility for creating CPAN config files
diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 9b5e0b3..e7475b8 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -2,7 +2,7 @@
# vim: ts=4 sts=4 sw=4:
use strict;
package CPAN;
-$CPAN::VERSION = '1.93_51';
+$CPAN::VERSION = '1.93_52';
$CPAN::VERSION =~ s/_//;
# we need to run chdir all over and we would get at wrong libraries
@@ -25,7 +25,7 @@ use CPAN::Debug;
use CPAN::Distribution;
use CPAN::Distrostatus;
use CPAN::FTP;
-use CPAN::Index;
+use CPAN::Index 1.93; # https://rt.cpan.org/Ticket/Display.html?id=43349
use CPAN::InfoObj;
use CPAN::Module;
use CPAN::Prompt;
@@ -248,7 +248,7 @@ sub soft_chdir_with_alternatives ($);
sub _uniq {
my(@list) = @_;
my %seen;
-return map { !$seen{$_} } @list;
+return grep { !$seen{$_}++ } @list;
}
#- sub CPAN::shell ;
@@ -351,7 +351,8 @@ ReadLine support %s
} elsif (/^\!/) {
s/^\!//;
my($eval) = $_;
-package CPAN::Eval;
+package
+CPAN::Eval; # hide from the indexer
use strict;
use vars qw($import_done);
CPAN-import(':DEFAULT') unless $import_done++;
@@ -374,13 +375,20 @@ ReadLine support %s
CPAN::Shell-$command(@line)
};
_unredirect;
+my $reported_error;
if ($@) {
-my $err = $@;
-if ($err =~ /\S/) {
-require Carp;
-require Dumpvalue;
-my $dv = Dumpvalue-new(tick = '');
-Carp::cluck(sprintf Catching error: %s,
$dv-stringify($err));
+my $err = $@;
+if (ref $err and
$err-isa('CPAN::Exception::blocked_urllist')) {
+$CPAN::Frontend-mywarn(Client not fully configured,
please proceed with configuring.$err);
+$reported_error = ref $err;
+} else {
+# I'd prefer never to arrive here and make all errors
exception objects
+if ($err =~ /\S/) {
+require Carp;
+require Dumpvalue;
+my $dv = Dumpvalue-new(tick = '');
+Carp::cluck(sprintf Catching error: %s,
$dv-stringify($err));
+}
}
}
if ($command =~ /^(
@@ -400,7 +408,13 @@ ReadLine support %s
|upgrade
[perl.git] branch blead, updated. GitLive-blead-948-g512e135
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/512e1353c90135f2f86b8e9e0540d4f90ecc6215?hp=2f2071b189aec38784eaa4544119619ec94657b8
- Log -
commit 512e1353c90135f2f86b8e9e0540d4f90ecc6215
Author: Steve Peters st...@fisharerojo.org
Date: Tue Apr 14 00:21:05 2009 -0500
Add file missed in previous commit.
---
Summary of changes:
lib/CPAN/Exception/blocked_urllist.pm | 40 +
1 files changed, 40 insertions(+), 0 deletions(-)
create mode 100644 lib/CPAN/Exception/blocked_urllist.pm
diff --git a/lib/CPAN/Exception/blocked_urllist.pm
b/lib/CPAN/Exception/blocked_urllist.pm
new file mode 100644
index 000..0df385b
--- /dev/null
+++ b/lib/CPAN/Exception/blocked_urllist.pm
@@ -0,0 +1,40 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::blocked_urllist;
+use strict;
+use overload '' = as_string;
+
+use vars qw(
+$VERSION
+);
+$VERSION = 1.0;
+
+
+sub new {
+my($class) = @_;
+bless {}, $class;
+}
+
+sub as_string {
+my($self) = shift;
+if ($CPAN::Config-{connect_to_internet_ok}) {
+return qq{
+
+You have not configured a urllist. Please consider to set it with
+
+o conf init urllist
+
+};
+} else {
+return qq{
+
+You have not configured a urllist and did not allow to connect to the
+internet. Please consider to call
+
+o conf init connect_to_internet_ok urllist
+
+};
+}
+}
+
+1;
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-886-g2dcc2c2
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/2dcc2c2419dfb3dbc8ef03f46aec70f2310259cf?hp=f5800e99d72d77bcc6c5baa0f11e9dbedfb30ce4 - Log - commit 2dcc2c2419dfb3dbc8ef03f46aec70f2310259cf Author: Jerry D. Hedden jdhed...@cpan.org Date: Tue Mar 31 15:52:20 2009 -0500 Can't use inet_ntop and inet_pton under Cygwin because it doesn't fully implement IPv6 yet. --- Summary of changes: hints/cygwin.sh |4 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/hints/cygwin.sh b/hints/cygwin.sh index f411c6d..3d6ea8d 100644 --- a/hints/cygwin.sh +++ b/hints/cygwin.sh @@ -73,3 +73,7 @@ lddlflags=$lddlflags $ldflags #ldflags=$ldflags -s #ccdlflags=$ccdlflags -s #lddlflags=$lddlflags -s + +# IPv6 not fully implemented under Cygwin +d_inetntop='undef' +d_inetpton='undef' -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-879-g89b75a3
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/89b75a3bb567ba74d8de183f09a611ebbc42ccd8?hp=b1c3c09642d09c7f9654b8b6e0f19a60666079e9
- Log -
commit 89b75a3bb567ba74d8de183f09a611ebbc42ccd8
Author: Steve Peters st...@fisharerojo.org
Date: Tue Mar 31 00:54:39 2009 -0500
Upgrade to CPANPLUS-Dist-Build-0.18.
---
Summary of changes:
lib/CPANPLUS/Dist/Build.pm |9 +++--
lib/CPANPLUS/Dist/Build/Constants.pm |2 +-
2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/lib/CPANPLUS/Dist/Build.pm b/lib/CPANPLUS/Dist/Build.pm
index 57b908a..eaff9a0 100644
--- a/lib/CPANPLUS/Dist/Build.pm
+++ b/lib/CPANPLUS/Dist/Build.pm
@@ -31,7 +31,7 @@ use Locale::Maketext::SimpleClass = 'CPANPLUS', Style =
'gettext';
local $Params::Check::VERBOSE = 1;
-$VERSION = '0.16';
+$VERSION = '0.18';
=pod
@@ -501,7 +501,12 @@ sub create {
$args = check( $tmpl, \%hash ) or return;
}
-return 1 if $dist-status-created !$force;
+# restore the state as we have created this already.
+if ( $dist-status-created !$force ) {
+### add this directory to your lib ###
+$self-add_to_includepath();
+return 1;
+}
$dist-status-_create_args( $args );
diff --git a/lib/CPANPLUS/Dist/Build/Constants.pm
b/lib/CPANPLUS/Dist/Build/Constants.pm
index 4b9ac18..253b30e 100644
--- a/lib/CPANPLUS/Dist/Build/Constants.pm
+++ b/lib/CPANPLUS/Dist/Build/Constants.pm
@@ -9,7 +9,7 @@ BEGIN {
require Exporter;
use varsqw[$VERSION @ISA @EXPORT];
-$VERSION= '0.16';
+$VERSION= '0.18';
@ISA= qw[Exporter];
@EXPORT = qw[ BUILD_DIR BUILD ];
}
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-827-g81cdde7
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/81cdde7ffafa7c0955c5f1b0005c66faf4c4d341?hp=c8269701e1f9e7b1dcbe771b4e7a802f050436d4
- Log -
commit 81cdde7ffafa7c0955c5f1b0005c66faf4c4d341
Merge: 036d8bd... c826970...
Author: Steve Peters st...@fisharerojo.org
Date: Thu Mar 26 20:00:57 2009 -0500
Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into
blead
commit 036d8bd42e6e430b0e760ef10edcff408b0b2527
Author: Steve Peters st...@fisharerojo.org
Date: Thu Mar 26 19:59:23 2009 -0500
Add inet_pton() and inet_ntop() to Socket.
M ext/Socket/Socket.pm
M ext/Socket/Socket.xs
M ext/Socket/t/Socket.t
---
Summary of changes:
ext/Socket/Socket.pm | 19 -
ext/Socket/Socket.xs | 50 +
ext/Socket/t/Socket.t | 12 ++-
3 files changed, 78 insertions(+), 3 deletions(-)
diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index ad5e618..8ef4fb3 100644
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -1,11 +1,11 @@
package Socket;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = 1.81;
+$VERSION = 1.90;
=head1 NAME
-Socket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa - load the C socket.h
defines and structure manipulators
+Socket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa, inet_pton, inet_ntop -
load the C socket.h defines and structure manipulators
=head1 SYNOPSIS
@@ -171,6 +171,21 @@ Takes a sockaddr_un structure (as returned by
pack_sockaddr_un())
and returns the pathname. Will croak if the structure does not
have AF_UNIX in the right place.
+=item inet_pton ADDRESS_FAMILY, HOSTNAME
+
+Takes an address family, either AF_INET or AF_INET6, and a string giving
+the name of a host, and translates that to an opaque string
+(if programming in C, struct in_addr or struct in6_addr depending on the
+address family passed in). The host string may be a string hostname, such
+as 'www.perl.org', or an IP address. If using an IP address, the type of
+IP address must be consistant with the address family passed into the function.
+
+=item inet_ntop ADDRESS_FAMILY, IP_ADDRESS
+
+Takes an address family, either AF_INET or AF_INET6, and a string
+(an opaque string as returned by inet_aton() or inet_pton()) and
+translates it to an IPv4 or IPv6 address string.
+
=back
=cut
diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 076297f..064de2e 100644
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -442,3 +442,53 @@ unpack_sockaddr_in(sin_sv)
PUSHs(sv_2mortal(newSViv((IV) port)));
PUSHs(sv_2mortal(newSVpvn((char *)ip_address, sizeof ip_address)));
}
+
+void
+inet_ntop(af, ip_address_sv)
+int af
+SV *ip_address_sv
+CODE:
+#ifdef HAS_INETNTOP
+ STRLEN addrlen, struct_size;
+ struct in6_addr addr;
+ char str[INET6_ADDRSTRLEN];
+ char *ip_address = SvPV(ip_address_sv, addrlen);
+
+if(af == AF_INET) {
+struct_size = sizeof(struct in_addr);
+} else if(af == AF_INET6) {
+struct_size = sizeof(struct in6_addr);
+} else {
+ croak(Bad address family for Socket::inet_ntop, got %d, should be
either AF_INET or AF_INET6,
+ af);
+}
+
+ Copy( ip_address, addr, sizeof addr, char );
+ inet_ntop(af, addr, str, INET6_ADDRSTRLEN);
+
+ ST(0) = sv_2mortal(newSVpv(str, strlen(str)));
+#else
+ST(0) = (SV *)not_here(inet_ntop);
+#endif
+
+void
+inet_pton(af, host)
+int af
+const char * host
+CODE:
+#ifdef HAS_INETPTON
+struct in6_addr ip_address;
+if(af != AF_INET af != AF_INET6) {
+ croak(Bad address family for %s, got %d, should be either AF_INET
or AF_INET6,
+Socket::inet_pton,
+af);
+}
+int ok = (*host != '\0') inet_pton(af, host, ip_address);
+
+ST(0) = sv_newmortal();
+if (ok) {
+sv_setpvn( ST(0), (char *)ip_address, sizeof ip_address );
+}
+#else
+ST(0) = (SV *)not_here(inet_pton);
+#endif
diff --git a/ext/Socket/t/Socket.t b/ext/Socket/t/Socket.t
index f707999..cec72e7 100755
--- a/ext/Socket/t/Socket.t
+++ b/ext/Socket/t/Socket.t
@@ -14,7 +14,7 @@ BEGIN {
use Socket qw(:all);
-print 1..17\n;
+print 1..20\n;
$has_echo = $^O ne 'MSWin32';
$alarmed = 0;
@@ -167,3 +167,13 @@ if ($^O eq 'linux') {
# doesn't have abstract socket support
print ok 17 - skipped on this platform\n;
}
+
+if($Config{d_inetntop} $Config{d_inetaton}){
+print ((inet_ntop(AF_INET, inet_pton(AF_INET, 10.20.30.40)) eq
10.20.30.40) ? ok 18\n : not ok 18\n);
+print ((inet_ntop(AF_INET, inet_aton
[perl.git] branch blead, updated. GitLive-blead-828-ge9872d0
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/e9872d041419b6e58310a20ac3d1749bda877f09?hp=81cdde7ffafa7c0955c5f1b0005c66faf4c4d341 - Log - commit e9872d041419b6e58310a20ac3d1749bda877f09 Author: Steve Peters st...@fisharerojo.org Date: Thu Mar 26 20:28:27 2009 -0500 What am I thinking? Just bump the version. --- Summary of changes: ext/Socket/Socket.pm |2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm index 8ef4fb3..6b268ef 100644 --- a/ext/Socket/Socket.pm +++ b/ext/Socket/Socket.pm @@ -1,7 +1,7 @@ package Socket; our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = 1.90; +$VERSION = 1.82; =head1 NAME -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-803-g3d43828
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/3d4382850300c498d5f4a81fdec29a4a557840bd?hp=aae7e7b3d1e34c8713fc4867e92c9ef0fd0ecb95
- Log -
commit 3d4382850300c498d5f4a81fdec29a4a557840bd
Merge: 86247f3... aae7e7b...
Author: Steve Peters st...@fisharerojo.org
Date: Wed Mar 25 07:32:12 2009 -0500
Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into
blead
commit 86247f3d607ecfd3df0af4adc5c04a1407f6f61b
Author: Steve Peters st...@fisharerojo.org
Date: Wed Mar 25 07:26:01 2009 -0500
Upgrade to Encode-2.33.
M ext/Encode/Changes
M ext/Encode/Encode.pm
M ext/Encode/lib/Encode/MIME/Header.pm
---
Summary of changes:
ext/Encode/Changes | 11 +--
ext/Encode/Encode.pm |4 ++--
ext/Encode/lib/Encode/MIME/Header.pm |6 +++---
3 files changed, 14 insertions(+), 7 deletions(-)
diff --git a/ext/Encode/Changes b/ext/Encode/Changes
index 6c68166..5c68f48 100644
--- a/ext/Encode/Changes
+++ b/ext/Encode/Changes
@@ -1,8 +1,15 @@
# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 2.32 2009/03/07 07:32:37 dankogai Exp dankogai $
+# $Id: Changes,v 2.33 2009/03/25 07:55:57 dankogai Exp dankogai $
#
-$Revision: 2.32 $ $Date: 2009/03/07 07:32:37 $
+$Revision: 2.33 $ $Date: 2009/03/25 07:55:57 $
+! lib/Encode/MIME/Header.pm
+ Decontaminated $ which sneaked in on 2.31.
+ 67fc9f3a39c746da95aab6bb01539...@robmhp
+ 693254b90903242352x2dc26ba6p5e68deb871fa8...@mail.gmail.com
+ http://coderepos.org/share/changeset/31542
+
+2.32 2009/03/07 07:32:37
! lib/Encode/Alias.pm t/Alias.t
Encode now resolves 'en_US.UTF-8' to utf-8-strict like 'ja_JP.euc'
Those who set locale on their shells should be happier now.
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index ffaf9b8..c6ba72f 100644
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -1,10 +1,10 @@
#
-# $Id: Encode.pm,v 2.32 2009/03/07 07:32:37 dankogai Exp dankogai $
+# $Id: Encode.pm,v 2.33 2009/03/25 07:53:19 dankogai Exp $
#
package Encode;
use strict;
use warnings;
-our $VERSION = sprintf %d.%02d, q$Revision: 2.32 $ =~ /(\d+)/g;
+our $VERSION = sprintf %d.%02d, q$Revision: 2.33 $ =~ /(\d+)/g;
sub DEBUG () { 0 }
use XSLoader ();
XSLoader::load( __PACKAGE__, $VERSION );
diff --git a/ext/Encode/lib/Encode/MIME/Header.pm
b/ext/Encode/lib/Encode/MIME/Header.pm
index 624bf17..aba5b3b 100644
--- a/ext/Encode/lib/Encode/MIME/Header.pm
+++ b/ext/Encode/lib/Encode/MIME/Header.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
no warnings 'redefine';
-our $VERSION = do { my @r = ( q$Revision: 2.9 $ =~ /\d+/g ); sprintf %d. .
%02d x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf %d. .
%02d x $#r, @r };
use Encode qw(find_encoding encode_utf8 decode_utf8);
use MIME::Base64;
use Carp;
@@ -175,9 +175,9 @@ sub _encode_q {
my $chunk = shift;
$chunk = encode_utf8($chunk);
$chunk =~ s{
-[^0-9A-Za-z]
+ ([^0-9A-Za-z])
}{
-join( = map {sprintf =%02X, $_} unpack(C*, $))
+join( = map {sprintf =%02X, $_} unpack(C*, $1))
}egox;
return HEAD . 'Q?' . $chunk . TAIL;
}
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-804-g9b33fb8
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/9b33fb8e6c642ded0db0a0bb8945dd083127b56f?hp=3d4382850300c498d5f4a81fdec29a4a557840bd - Log - commit 9b33fb8e6c642ded0db0a0bb8945dd083127b56f Author: Dan Jacobson jida...@hoffa.dreamhost.com Date: Wed Mar 25 08:09:05 2009 -0500 Add SEE ALSO's to find2perl and File::Find. --- Summary of changes: lib/File/Find.pm |4 x2p/find2perl.PL |8 +++- 2 files changed, 11 insertions(+), 1 deletions(-) diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 641e420..eddedbd 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -411,6 +411,10 @@ File::Find used to produce incorrect results if called recursively. During the development of perl 5.8 this bug was fixed. The first fixed version of File::Find was 1.01. +=head1 SEE ALSO + +find, find2perl. + =cut our @ISA = qw(Exporter); diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 5add931..982ed26 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -55,6 +55,12 @@ my $startperl = #! $perlpath -w; # Ken Pizzini k...@halcyon.com # # Modified 2000-01-28 to use the 'follow' option of File::Find +# +# Note currently +# $ find2perl -name a|wc #produces a shorter program +# 30 72 569 +# $ find2perl|wc #than this: +# 33 76 655 sub tab (); sub n ($$); @@ -921,7 +927,7 @@ Predicates which take a numeric argument N can come in three forms: =head1 SEE ALSO -find +find, File::Find. =cut !NO!SUBS! -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-805-g036055a
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/036055ae9ae83cd5b00514419663540cb13fc21a?hp=9b33fb8e6c642ded0db0a0bb8945dd083127b56f
- Log -
commit 036055ae9ae83cd5b00514419663540cb13fc21a
Author: Ian Goodacre ian.gooda...@xtra.co.nz
Date: Wed Mar 25 08:39:11 2009 -0500
[perl #63914] Time::Piece reports timezone incorrectly
---
Summary of changes:
ext/Time-Piece/Piece.xs |2 +-
ext/Time-Piece/t/02core.t |9 -
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/ext/Time-Piece/Piece.xs b/ext/Time-Piece/Piece.xs
index e20b6d4..e65f20c 100644
--- a/ext/Time-Piece/Piece.xs
+++ b/ext/Time-Piece/Piece.xs
@@ -23,7 +23,7 @@ extern C {
* support is added and NETaa14816 is considered in full.
* It does not address tzname aspects of NETaa14816.
*/
-#if !defined(HAS_GNULIBC)
+#if defined(HAS_GNULIBC)
# ifndef STRUCT_TM_HASZONE
#define STRUCT_TM_HASZONE
# else
diff --git a/ext/Time-Piece/t/02core.t b/ext/Time-Piece/t/02core.t
index d020558..fb43038 100644
--- a/ext/Time-Piece/t/02core.t
+++ b/ext/Time-Piece/t/02core.t
@@ -1,4 +1,4 @@
-use Test::More tests = 93;
+use Test::More tests = 95;
my $is_win32 = ($^O =~ /Win32/);
my $is_qnx = ($^O eq 'qnx');
@@ -47,6 +47,13 @@ cmp_ok($t-datetime, 'eq','2000-02-29T12:34:56');
cmp_ok($t-daylight_savings, '==', 0);
# -tzoffset?
+{
+local $ENV{TZ} = EST;
+my $lt = localtime;
+cmp_ok(scalar($lt-tzoffset), 'eq', '-18000');
+cmp_ok($lt-strftime(%z), 'eq', '-0500');
+}
+
cmp_ok(($t-julian_day / 2451604.0243 ) - 1, '', 0.001);
cmp_ok(($t-mjd/ 51603.52426) - 1, '', 0.001);
cmp_ok($t-week, '==', 9);
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-794-g3dae3b3
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/3dae3b3445810204b098aa3420cb5d43bf991d8b?hp=18a10db9e0dfeb9718248d280295618033e2a34f - Log - commit 3dae3b3445810204b098aa3420cb5d43bf991d8b Merge: d5fe29e... 18a10db... Author: Steve Peters st...@fisharerojo.org Date: Tue Mar 24 09:06:43 2009 -0500 Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into blead commit d5fe29ea038e03d6136aadb6ea36b91f496175d9 Author: Steve Peters st...@fisharerojo.org Date: Tue Mar 24 09:05:57 2009 -0500 Mark upstream as blead for Net::Ping. M Porting/Maintainers.pl --- Summary of changes: Porting/Maintainers.pl |2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index a006d65..1f4545e 100644 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -747,7 +747,7 @@ package Maintainers; 'MAINTAINER'= 'smpeters', 'FILES' = q[lib/Net/Ping.pm lib/Net/Ping], 'CPAN' = 1, - 'UPSTREAM' = undef, + 'UPSTREAM' = 'blead', }, 'NEXT' = -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-795-g373b131
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/373b131131d48670ca1f2081fcd02b380b66f41b?hp=3dae3b3445810204b098aa3420cb5d43bf991d8b - Log - commit 373b131131d48670ca1f2081fcd02b380b66f41b Author: Steve Peters st...@fisharerojo.org Date: Tue Mar 24 09:26:45 2009 -0500 Add a SEE ALSO section based on suggestions from Dan Jacobson. --- Summary of changes: pod/perldoc.pod |3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/pod/perldoc.pod b/pod/perldoc.pod index 43471c9..9240439 100644 --- a/pod/perldoc.pod +++ b/pod/perldoc.pod @@ -252,6 +252,9 @@ number, the more it emits. Up to 3.14_05, the switch B-v was used to produce verbose messages of Bperldoc operation, which is now enabled by B-D. +=head1 SEE ALSO + +Lperlpod, LPod::Perldoc =head1 AUTHOR -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-796-g6f63574
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/6f63574e655f386b13267d58419ef322ca7e3f5d?hp=373b131131d48670ca1f2081fcd02b380b66f41b
- Log -
commit 6f63574e655f386b13267d58419ef322ca7e3f5d
Author: Dan Kogai danko...@dan.co.jp
Date: Tue Mar 24 12:51:01 2009 -0500
Fix for regular expressions for RFC2822.
---
Summary of changes:
pod/perlfaq9.pod |3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod
index 609f898..8ac3d0e 100644
--- a/pod/perlfaq9.pod
+++ b/pod/perlfaq9.pod
@@ -433,7 +433,8 @@ This Ijust matches the address itself:
my $dot_atom = qr{$atom(?:\.$atom)*};
my $quoted = qr{(?:\\[^\r\n]|[^\\])*};
my $local = qr{(?:$dot_atom|$quoted)};
-my $domain_lit = qr{\[(?:\\\S|[\x21-\x5a\x5e-\x7e])*\]};
+my $quotedpair = qr{\\[\x00-\x09\x0B-\x0c\x0e-\x7e]};
+my $domain_lit = qr{\[(?:$quotedpair|[\x21-\x5a\x5e-\x7e])*\]};
my $domain = qr{(?:$dot_atom|$domain_lit)};
my $addr_spec = qr{$loc...@$domain};
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-797-g2d373db
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/2d373db1171ead2bd9f470f98a3c73d12966b508?hp=6f63574e655f386b13267d58419ef322ca7e3f5d
- Log -
commit 2d373db1171ead2bd9f470f98a3c73d12966b508
Author: Steve Peters st...@fisharerojo.org
Date: Tue Mar 24 13:17:10 2009 -0500
For some reason, the core version and the cpan version got reversed.
---
Summary of changes:
Porting/corecpan.pl |2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index df2a70a..eb77fe1 100644
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -148,7 +148,7 @@ else {
for my $dist (sort keys %results) {
print Module $dist...\n;
for my $file (sort keys %{$results{$dist}}) {
- my ($vcpan, $vcore) = @{$results{$dist}{$file...@labels};
+ my ($vcore, $vcpan) = @{$results{$dist}{$file...@labels};
if (our $opt_v or $vcore ne $vcpan) {
print $file: core=$vcore, cpan=$vcpan\n;
}
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-791-g76467b2
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/76467b2a651c6c83b127a7ee5b8170cd17171b66?hp=7efcbeefb3812bba5ff588d00b309f3591f5df08 - Log - commit 76467b2a651c6c83b127a7ee5b8170cd17171b66 Author: Steve Peters st...@fisharerojo.org Date: Mon Mar 23 10:13:51 2009 -0500 Upgrade to ExtUtils-MakeMaker-6.50 --- Summary of changes: lib/ExtUtils/Command/MM.pm |2 +- lib/ExtUtils/Liblist.pm |2 +- lib/ExtUtils/Liblist/Kid.pm |2 +- lib/ExtUtils/MM.pm |2 +- lib/ExtUtils/MM_AIX.pm |2 +- lib/ExtUtils/MM_Any.pm |2 +- lib/ExtUtils/MM_BeOS.pm |2 +- lib/ExtUtils/MM_Cygwin.pm|2 +- lib/ExtUtils/MM_DOS.pm |2 +- lib/ExtUtils/MM_Darwin.pm|2 +- lib/ExtUtils/MM_MacOS.pm |2 +- lib/ExtUtils/MM_NW5.pm |2 +- lib/ExtUtils/MM_OS2.pm |2 +- lib/ExtUtils/MM_QNX.pm |2 +- lib/ExtUtils/MM_UWIN.pm |2 +- lib/ExtUtils/MM_Unix.pm |2 +- lib/ExtUtils/MM_VMS.pm |2 +- lib/ExtUtils/MM_VOS.pm |2 +- lib/ExtUtils/MM_Win32.pm |2 +- lib/ExtUtils/MM_Win95.pm |2 +- lib/ExtUtils/MY.pm |2 +- lib/ExtUtils/MakeMaker.pm|2 +- lib/ExtUtils/MakeMaker/Config.pm |2 +- lib/ExtUtils/MakeMaker/bytes.pm |2 +- lib/ExtUtils/MakeMaker/vmsish.pm |2 +- lib/ExtUtils/Mkbootstrap.pm |2 +- lib/ExtUtils/Mksymlists.pm |2 +- lib/ExtUtils/testlib.pm |2 +- 28 files changed, 28 insertions(+), 28 deletions(-) diff --git a/lib/ExtUtils/Command/MM.pm b/lib/ExtUtils/Command/MM.pm index 4f7b73a..c9c43ec 100644 --- a/lib/ExtUtils/Command/MM.pm +++ b/lib/ExtUtils/Command/MM.pm @@ -10,7 +10,7 @@ our @ISA = qw(Exporter); our @EXPORT = qw(test_harness pod2man perllocal_install uninstall warn_if_old_packlist); -our $VERSION = '6.49_01'; +our $VERSION = '6.50'; my $Is_VMS = $^O eq 'VMS'; diff --git a/lib/ExtUtils/Liblist.pm b/lib/ExtUtils/Liblist.pm index 4ff8a24..b74306c 100644 --- a/lib/ExtUtils/Liblist.pm +++ b/lib/ExtUtils/Liblist.pm @@ -2,7 +2,7 @@ package ExtUtils::Liblist; use strict; -our $VERSION = '6.49_01'; +our $VERSION = '6.50'; use File::Spec; require ExtUtils::Liblist::Kid; diff --git a/lib/ExtUtils/Liblist/Kid.pm b/lib/ExtUtils/Liblist/Kid.pm index 6c3ebe9..113667e 100644 --- a/lib/ExtUtils/Liblist/Kid.pm +++ b/lib/ExtUtils/Liblist/Kid.pm @@ -9,7 +9,7 @@ use 5.006; # Broken out of MakeMaker from version 4.11 use strict; -our $VERSION = 6.49_01; +our $VERSION = 6.50; use Config; use Cwd 'cwd'; diff --git a/lib/ExtUtils/MM.pm b/lib/ExtUtils/MM.pm index 6d800ee..e0ae615 100644 --- a/lib/ExtUtils/MM.pm +++ b/lib/ExtUtils/MM.pm @@ -3,7 +3,7 @@ package ExtUtils::MM; use strict; use ExtUtils::MakeMaker::Config; -our $VERSION = '6.49_01'; +our $VERSION = '6.50'; require ExtUtils::Liblist; require ExtUtils::MakeMaker; diff --git a/lib/ExtUtils/MM_AIX.pm b/lib/ExtUtils/MM_AIX.pm index 7e5a44a..36a6f62 100644 --- a/lib/ExtUtils/MM_AIX.pm +++ b/lib/ExtUtils/MM_AIX.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_AIX; use strict; -our $VERSION = '6.49_01'; +our $VERSION = '6.50'; require ExtUtils::MM_Unix; our @ISA = qw(ExtUtils::MM_Unix); diff --git a/lib/ExtUtils/MM_Any.pm b/lib/ExtUtils/MM_Any.pm index 69b63a5..0882a14 100644 --- a/lib/ExtUtils/MM_Any.pm +++ b/lib/ExtUtils/MM_Any.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_Any; use strict; -our $VERSION = '6.49_01'; +our $VERSION = '6.50'; use Carp; use File::Spec; diff --git a/lib/ExtUtils/MM_BeOS.pm b/lib/ExtUtils/MM_BeOS.pm index 8c0e550..4a0d25b 100644 --- a/lib/ExtUtils/MM_BeOS.pm +++ b/lib/ExtUtils/MM_BeOS.pm @@ -26,7 +26,7 @@ require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); -our $VERSION = '6.49_01'; +our $VERSION = '6.50'; =item os_flavor diff --git a/lib/ExtUtils/MM_Cygwin.pm b/lib/ExtUtils/MM_Cygwin.pm index 8bcecf7..1eaf00e 100644 --- a/lib/ExtUtils/MM_Cygwin.pm +++ b/lib/ExtUtils/MM_Cygwin.pm @@ -9,7 +9,7 @@ require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); -our $VERSION = '6.49_01'; +our $VERSION = '6.50'; =head1 NAME diff --git a/lib/ExtUtils/MM_DOS.pm b/lib/ExtUtils/MM_DOS.pm index 3d4ed66..1238fe6 100644 --- a/lib/ExtUtils/MM_DOS.pm +++ b/lib/ExtUtils/MM_DOS.pm @@ -2,7 +2,7 @@ package ExtUtils::MM_DOS; use strict; -our $VERSION = 6.49_01; +our $VERSION = 6.50; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; diff --git a/lib/ExtUtils/MM_Darwin.pm b/lib/ExtUtils/MM_Darwin.pm index 3632753..e3d6dbf 100644 --- a/lib/ExtUtils/MM_Darwin.pm +++ b/lib/ExtUtils/MM_Darwin.pm @@ -7,7 +7,7
[perl.git] branch blead, updated. GitLive-blead-694-g5e99c35
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/5e99c3599584e486bfdcabd9de63e308f013df4e?hp=6df20272fc05b52aa3a7ec48f86429cda721a7f2
- Log -
commit 5e99c3599584e486bfdcabd9de63e308f013df4e
Merge: 40596bc... 6df2027...
Author: Steve Peters st...@fisharerojo.org
Date: Mon Feb 23 13:57:38 2009 -0600
Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into
blead
commit 40596bc538f0e2be42b50d80f46887e76a4a3b33
Author: Steve Peters st...@fisharerojo.org
Date: Mon Feb 23 13:25:33 2009 -0600
fileno() was failing when passed a NULL. I'm guessing that we don't really
need to increase the refcount on a NULL fd.
M perlio.c
---
Summary of changes:
perlio.c |4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/perlio.c b/perlio.c
index b935734..0a086a8 100644
--- a/perlio.c
+++ b/perlio.c
@@ -3033,7 +3033,9 @@ PerlIOStdio_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS
*param, int flags)
stdio = PerlSIO_fdopen(fd, PerlIO_modestr(o,mode));
set_this:
PerlIOSelf(f, PerlIOStdio)-stdio = stdio;
- PerlIOUnix_refcnt_inc(fileno(stdio));
+if(stdio) {
+ PerlIOUnix_refcnt_inc(fileno(stdio));
+}
}
return f;
}
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-55-g640238c
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/640238c5b29c59bf811361d5e88cd334fb2e4cb9?hp=f87ebf2c2829dea9288b84872cd584c44e1ce940
- Log -
commit 640238c5b29c59bf811361d5e88cd334fb2e4cb9
Author: Frank Wiegand frank.wieg...@gmail.com
Date: Sat Dec 20 20:50:26 2008 +0100
PATCH -- POD error in Symbol.pm
Hi,
two POD errors in Symbol.pm:
- wrong comment,
- missing semicolon.
Patch is attached.
Thanks, Frank
---
Summary of changes:
lib/Symbol.pm |6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/Symbol.pm b/lib/Symbol.pm
index 3bb5d92..1e408b5 100644
--- a/lib/Symbol.pm
+++ b/lib/Symbol.pm
@@ -18,8 +18,8 @@ Symbol - manipulate Perl symbols and their names
# replace *FOO{IO} handle but not $FOO, %FOO, etc.
*FOO = geniosym;
-print qualify(x), \n; # Test::x
-print qualify(x, FOO), \n# FOO::x
+print qualify(x), \n; # main::x
+print qualify(x, FOO), \n; # FOO::x
print qualify(BAR::x), \n; # BAR::x
print qualify(BAR::x, FOO), \n; # BAR::x
print qualify(STDOUT, FOO), \n; # main::STDOUT (global)
@@ -85,7 +85,7 @@ require Exporter;
@EXPORT = qw(gensym ungensym qualify qualify_to_ref);
@EXPORT_OK = qw(delete_package geniosym);
-$VERSION = '1.06';
+$VERSION = '1.07';
my $genpkg = Symbol::;
my $genseq = 0;
--
Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-26-g60bc010
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/60bc01042ebc8b64b0919127e40a6b62d4e49f90?hp=4adc95e616bac7eea015e9e47e439b063c1132d5 - Log - commit 60bc01042ebc8b64b0919127e40a6b62d4e49f90 Merge: 2bbc8d5... 4adc95e... Author: Steve Peters st...@fisharerojo.org Date: Fri Dec 19 11:45:59 2008 -0600 Merge branch 'blead' of ssh://ste...@perl5.git.perl.org/gitroot/perl into blead commit 2bbc8d558d247c6ef91207a12a4650c0bc292dd6 Author: Steve Peters st...@fisharerojo.org Date: Fri Dec 19 11:38:31 2008 -0600 Subject: PATCH 5.10 documentation From: karl williamson pub...@khwilliamson.com Date: Tue, 16 Dec 2008 16:00:34 -0700 Message-ID: 49483312.80...@khwilliamson.com M autodoc.pl M embed.fnc M global.sym M handy.h M pod/perlapi.pod M pod/perlebcdic.pod M pod/perlguts.pod M pod/perlhack.pod M pod/perlintern.pod M pod/perlunicode.pod M pod/perlunifaq.pod M pod/perluniintro.pod M proto.h M sv.c M t/uni/fold.t M utf8.c --- Summary of changes: autodoc.pl | 25 ++- embed.fnc|1 + global.sym |1 + handy.h | 27 ++- pod/perlapi.pod | 97 -- pod/perlebcdic.pod | 126 +++--- pod/perlguts.pod |4 +- pod/perlhack.pod | 61 +++- pod/perlintern.pod |4 +- pod/perlunicode.pod | 69 +++ pod/perlunifaq.pod |8 ++- pod/perluniintro.pod | 60 --- proto.h |5 ++ sv.c | 23 ++--- t/uni/fold.t |4 +- utf8.c | 22 + 16 files changed, 373 insertions(+), 164 deletions(-) diff --git a/autodoc.pl b/autodoc.pl index f97af93..25fabf0 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -238,7 +238,30 @@ Note that all Perl API global variables must be referenced with the CPL_ prefix. Some macros are provided for compatibility with the older, unadorned names, but this support may be disabled in a future release. -The listing is alphabetical, case insensitive. +Perl was originally written to handle US-ASCII only (that is characters +whose ordinal numbers are in the range 0 - 127). +And documentation and comments may still use the term ASCII, when +sometimes in fact the entire range from 0 - 255 is meant. + +Note that Perl can be compiled and run under EBCDIC (See Lperlebcdic) +or ASCII. Most of the documentation (and even comments in the code) +ignore the EBCDIC possibility. +For almost all purposes the differences are transparent. +As an example, under EBCDIC, +instead of UTF-8, UTF-EBCDIC is used to encode Unicode strings, and so +whenever this documentation refers to Cutf8 +(and variants of that name, including in function names), +it also (essentially transparently) means CUTF-EBCDIC. +But the ordinals of characters differ between ASCII, EBCDIC, and +the UTF- encodings, and a string encoded in UTF-EBCDIC may occupy more bytes +than in UTF-8. + +Also, on some EBCDIC machines, functions that are documented as operating on +US-ASCII (or Basic Latin in Unicode terminology) may in fact operate on all +256 characters in the EBCDIC range, not just the subset corresponding to +US-ASCII. + +The listing below is alphabetical, case insensitive. _EOB_ diff --git a/embed.fnc b/embed.fnc index 9b2a2ad..033bb5b 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1257,6 +1257,7 @@ AmdbR |char* |sv_pv |NN SV *sv AmdbR |char* |sv_pvutf8 |NN SV *sv AmdbR |char* |sv_pvbyte |NN SV *sv Amdb |STRLEN |sv_utf8_upgrade|NN SV *sv +Amdb |STRLEN |sv_utf8_upgrade_nomg|NN SV *sv ApdM |bool |sv_utf8_downgrade|NN SV *const sv|const bool fail_ok Apd|void |sv_utf8_encode |NN SV *const sv ApdM |bool |sv_utf8_decode |NN SV *const sv diff --git a/global.sym b/global.sym index fe26578..9598d52 100644 --- a/global.sym +++ b/global.sym @@ -663,6 +663,7 @@ Perl_sv_pv Perl_sv_pvutf8 Perl_sv_pvbyte Perl_sv_utf8_upgrade +Perl_sv_utf8_upgrade_nomg Perl_sv_utf8_downgrade Perl_sv_utf8_encode Perl_sv_utf8_decode diff --git a/handy.h b/handy.h index f2eeadc..e82a644 100644 --- a/handy.h +++ b/handy.h @@ -412,33 +412,36 @@ Cstrncmp). =head1 Character classes =for apidoc Am|bool|isALNUM|char ch -Returns a boolean indicating whether the C Cchar is an ASCII alphanumeric -character (including underscore) or digit. +Returns a boolean indicating whether the C Cchar is a US-ASCII (Basic Latin) +alphanumeric character (including underscore) or digit. =for apidoc Am|bool|isALPHA|char ch -Returns a boolean indicating whether the C Cchar is an ASCII alphabetic -character. +Returns a boolean indicating whether
[perl.git] branch blead, updated. GitLive-blead-27-g985dc10
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/985dc10ab33c95586dcbba902505c7460cbcf5e3?hp=60bc01042ebc8b64b0919127e40a6b62d4e49f90 - Log - commit 985dc10ab33c95586dcbba902505c7460cbcf5e3 Author: Steve Peters st...@fisharerojo.org Date: Fri Dec 19 21:07:35 2008 -0600 Subject: [perl #61418] perlthanks isn't documented in perlthanks From: Abigail (via RT) perlbug-follo...@perl.org Date: Tue, 16 Dec 2008 13:09:56 -0800 Message-ID: rt-3.6.head-15883-1229461796-1657.61418-7...@perl.org --- Summary of changes: utils/perlbug.PL | 16 ++-- 1 files changed, 14 insertions(+), 2 deletions(-) diff --git a/utils/perlbug.PL b/utils/perlbug.PL index c86478a..97cf0c8 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -1216,11 +1216,13 @@ Bperlbug S[ B-v ] S[ B-a Iaddress ] S[ B-s Isubject ] S[ B-b Ibody | B-f Iinputfile ] S[ B-F Ioutputfile ] S[ B-r Ireturnaddress ] S[ B-e Ieditor ] S[ B-c Iadminaddress | B-C ] -S[ B-S ] S[ B-t ] S[ B-d ] S[ B-A ] S[ B-h ] +S[ B-S ] S[ B-t ] S[ B-d ] S[ B-A ] S[ B-h ] S[ B-T ] Bperlbug S[ B-v ] S[ B-r Ireturnaddress ] S[ B-A ] S[ B-ok | B-okay | B-nok | B-nokay ] +Bperlthanks + =head1 DESCRIPTION @@ -1301,7 +1303,7 @@ Lperldebug. =item Do you have a proper test case? The easier it is to reproduce your bug, the more likely it will be -fixed -- if nobody can duplicate your problem, it probably won't be +fixed -- if nobody can duplicate your problem, it probably won't be addressed. A good test case has most of these attributes: short, simple code; @@ -1371,6 +1373,12 @@ your Subject line informative. a bug is not informative. Neither is perl crashes nor is HELP!!!. These don't help. A compact description of what's wrong is fine. +=item Can you use Cperlbug to submit a thank-you note? + +Yes, you can do this by either using the C-T option, or by invoking +the program as Cperlthanks. Thank-you notes are good. It makes people +smile. + =back Having done your bit, please be prepared to wait, to be told the @@ -1490,6 +1498,10 @@ supply one on the command line. Test mode. The target address defaults to Bperlbug-t...@perl.org. +=item B-T + +Send a thank-you note instead of a bug report. + =item B-v Include verbose configuration data in the report. -- Perl5 Master Repository
[perl.git] branch blead, updated. GitLive-blead-28-gdc96081
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/dc96081217a267e72cb4c28ba8c95ca5811a4b9d?hp=985dc10ab33c95586dcbba902505c7460cbcf5e3 - Log - commit dc96081217a267e72cb4c28ba8c95ca5811a4b9d Author: Steve Peters st...@fisharerojo.org Date: Fri Dec 19 22:40:30 2008 -0600 It looks like the previous patch is working fine on UNIXish boxes, but is failing on Windows. Anyways sv_utf8_upgrade_nomg() is a macro anyways, so moving the documentation to sv.h. --- Summary of changes: embed.fnc |1 - global.sym |1 - pod/perlapi.pod | 22 +++--- proto.h |5 - sv.c|4 sv.h|4 6 files changed, 15 insertions(+), 22 deletions(-) diff --git a/embed.fnc b/embed.fnc index 033bb5b..9b2a2ad 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1257,7 +1257,6 @@ AmdbR |char* |sv_pv |NN SV *sv AmdbR |char* |sv_pvutf8 |NN SV *sv AmdbR |char* |sv_pvbyte |NN SV *sv Amdb |STRLEN |sv_utf8_upgrade|NN SV *sv -Amdb |STRLEN |sv_utf8_upgrade_nomg|NN SV *sv ApdM |bool |sv_utf8_downgrade|NN SV *const sv|const bool fail_ok Apd|void |sv_utf8_encode |NN SV *const sv ApdM |bool |sv_utf8_decode |NN SV *const sv diff --git a/global.sym b/global.sym index 9598d52..fe26578 100644 --- a/global.sym +++ b/global.sym @@ -663,7 +663,6 @@ Perl_sv_pv Perl_sv_pvutf8 Perl_sv_pvbyte Perl_sv_utf8_upgrade -Perl_sv_utf8_upgrade_nomg Perl_sv_utf8_downgrade Perl_sv_utf8_encode Perl_sv_utf8_decode diff --git a/pod/perlapi.pod b/pod/perlapi.pod index cf85505..3fb7754 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -25,7 +25,7 @@ unadorned names, but this support may be disabled in a future release. Perl was originally written to handle US-ASCII only (that is characters whose ordinal numbers are in the range 0 - 127). And documentation and comments may still use the term ASCII, when -sometimes in fact the entire range from 0 - 256 is meant. +sometimes in fact the entire range from 0 - 255 is meant. Note that Perl can be compiled and run under EBCDIC (See Lperlebcdic) or ASCII. Most of the documentation (and even comments in the code) @@ -5134,6 +5134,16 @@ Like Csv_setsv but doesn't process magic. =for hackers Found in file sv.h +=item sv_utf8_upgrade_nomg +Xsv_utf8_upgrade_nomg + +Like sv_utf8_upgrade, but doesn't do magic on Csv + + STRLEN sv_utf8_upgrade_nomg(NN SV *sv) + +=for hackers +Found in file sv.h + =back @@ -6534,16 +6544,6 @@ use the Encode extension for that. =for hackers Found in file sv.c -=item sv_utf8_upgrade_nomg -Xsv_utf8_upgrade_nomg - -Like sv_utf8_upgrade, but doesn't do magic on Csv - - STRLEN sv_utf8_upgrade_nomg(SV *sv) - -=for hackers -Found in file sv.c - =item sv_vcatpvf Xsv_vcatpvf diff --git a/proto.h b/proto.h index bf5e1ac..f152635 100644 --- a/proto.h +++ b/proto.h @@ -3969,11 +3969,6 @@ PERL_CALLCONV void Perl_reginitcolors(pTHX); #define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE \ assert(sv) -/* PERL_CALLCONV STRLENPerl_sv_utf8_upgrade_nomg(pTHX_ SV *sv) - __attribute__nonnull__(pTHX_1); */ -#define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE_NOMG \ - assert(sv) - PERL_CALLCONV bool Perl_sv_utf8_downgrade(pTHX_ SV *const sv, const bool fail_ok) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_UTF8_DOWNGRADE \ diff --git a/sv.c b/sv.c index 917c897..cfae3b7 100644 --- a/sv.c +++ b/sv.c @@ -3154,10 +3154,6 @@ Returns the number of bytes in the converted string This is not as a general purpose byte encoding to Unicode interface: use the Encode extension for that. -=for apidoc sv_utf8_upgrade_nomg - -Like sv_utf8_upgrade, but doesn't do magic on Csv - =for apidoc sv_utf8_upgrade_flags Converts the PV of an SV to its UTF-8-encoded form. diff --git a/sv.h b/sv.h index 7a65fe8..a09a134 100644 --- a/sv.h +++ b/sv.h @@ -1523,6 +1523,10 @@ Like Csv_setsv but doesn't process magic. =for apidoc Am|void|sv_catsv_nomg|SV* dsv|SV* ssv Like Csv_catsv but doesn't process magic. +=for apidoc Amdb|STRLEN|sv_utf8_upgrade_nomg|NN SV *sv + +Like sv_utf8_upgrade, but doesn't do magic on Csv + =cut */ -- Perl5 Master Repository
Change 35074: [perl #60978] [PATCH] Tied filehandles can't distinguish eof forms
Change 35074 by ste...@stevep-kirk on 2008/12/11 17:32:54
Subject: [perl #60978] [PATCH] Tied filehandles can't distinguish eof
forms
From: Chip Salzenberg c...@pobox.com
Date: Wed, 10 Dec 2008 14:45:24 -0800
Message-ID: 20081210224524.gd18...@tytlal.topaz.cx
Affected files ...
... //depot/perl/pod/perltie.pod#45 edit
... //depot/perl/pp_sys.c#574 edit
... //depot/perl/t/op/tiehandle.t#13 edit
Differences ...
//depot/perl/pod/perltie.pod#45 (text)
Index: perl/pod/perltie.pod
--- perl/pod/perltie.pod#44~32873~ 2008-01-06 08:03:13.0 -0800
+++ perl/pod/perltie.pod2008-12-11 09:32:54.0 -0800
@@ -952,6 +952,19 @@
sub GETC { print Don't GETC, Get Perl; return a; }
+=item EOF this
+XEOF
+
+This method will be called when the Ceof function is called.
+
+Starting with Perl 5.12, an additional integer parameter will be passed. It
+will be zero if Ceof is called without parameter; C1 if Ceof is given
+a filehandle as a parameter, e.g. Ceof(FH); and C2 in the very special
+case that the tied filehandle is CARGV and Ceof is called with an empty
+parameter list, e.g. Ceof().
+
+sub EOF { not length $stringbuf }
+
=item CLOSE this
XCLOSE
//depot/perl/pp_sys.c#574 (text)
Index: perl/pp_sys.c
--- perl/pp_sys.c#573~35018~2008-12-05 10:11:56.0 -0800
+++ perl/pp_sys.c 2008-12-11 09:32:54.0 -0800
@@ -2025,51 +2025,60 @@
{
dVAR; dSP;
GV *gv;
+IO *io;
+MAGIC *mg;
-if (MAXARG == 0) {
- if (PL_op-op_flags OPf_SPECIAL) {/* eof() */
- IO *io;
- gv = PL_last_in_gv = GvEGV(PL_argvgv);
- io = GvIO(gv);
- if (io !IoIFP(io)) {
- if ((IoFLAGS(io) IOf_START) av_len(GvAVn(gv)) 0) {
- IoLINES(io) = 0;
- IoFLAGS(io) = ~IOf_START;
- do_open(gv, -, 1, FALSE, O_RDONLY, 0, NULL);
- if ( GvSV(gv) ) {
- sv_setpvs(GvSV(gv), -);
- }
- else {
- GvSV(gv) = newSVpvs(-);
- }
- SvSETMAGIC(GvSV(gv));
- }
- else if (!nextargv(gv))
- RETPUSHYES;
- }
- }
+if (MAXARG)
+ gv = PL_last_in_gv = MUTABLE_GV(POPs); /* eof(FH) */
+else if (PL_op-op_flags OPf_SPECIAL)
+ gv = PL_last_in_gv = GvEGV(PL_argvgv); /* eof() - ARGV magic */
+else
+ gv = PL_last_in_gv; /* eof */
+
+if (!gv)
+ RETPUSHNO;
+
+if ((io = GvIO(gv)) (mg = SvTIED_mg((const SV *)io,
PERL_MAGIC_tiedscalar))) {
+ PUSHMARK(SP);
+ XPUSHs(SvTIED_obj(MUTABLE_SV(io), mg));
+ /*
+* in Perl 5.12 and later, the additional paramter is a bitmask:
+* 0 = eof
+* 1 = eof(FH)
+* 2 = eof() - ARGV magic
+*/
+ if (MAXARG)
+ mPUSHi(1); /* 1 = eof(FH) - simple, explicit FH */
+ else if (PL_op-op_flags OPf_SPECIAL)
+ mPUSHi(2); /* 2 = eof() - ARGV magic */
else
- gv = PL_last_in_gv; /* eof */
+ mPUSHi(0); /* 0 = eof - simple, implicit FH */
+ PUTBACK;
+ ENTER;
+ call_method(EOF, G_SCALAR);
+ LEAVE;
+ SPAGAIN;
+ RETURN;
}
-else
- gv = PL_last_in_gv = MUTABLE_GV(POPs); /* eof(FH) */
-if (gv) {
- IO * const io = GvIO(gv);
- MAGIC * mg;
- if (io (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) {
- PUSHMARK(SP);
- XPUSHs(SvTIED_obj(MUTABLE_SV(io), mg));
- PUTBACK;
- ENTER;
- call_method(EOF, G_SCALAR);
- LEAVE;
- SPAGAIN;
- RETURN;
+if (!MAXARG (PL_op-op_flags OPf_SPECIAL)) { /* eof() */
+ if (io !IoIFP(io)) {
+ if ((IoFLAGS(io) IOf_START) av_len(GvAVn(gv)) 0) {
+ IoLINES(io) = 0;
+ IoFLAGS(io) = ~IOf_START;
+ do_open(gv, -, 1, FALSE, O_RDONLY, 0, NULL);
+ if (GvSV(gv))
+ sv_setpvs(GvSV(gv), -);
+ else
+ GvSV(gv) = newSVpvs(-);
+ SvSETMAGIC(GvSV(gv));
+ }
+ else if (!nextargv(gv))
+ RETPUSHYES;
}
}
-PUSHs(boolSV(!gv || do_eof(gv)));
+PUSHs(boolSV(do_eof(gv)));
RETURN;
}
//depot/perl/t/op/tiehandle.t#13 (xtext)
Index: perl/t/op/tiehandle.t
--- perl/t/op/tiehandle.t#12~32873~ 2008-01-06 08:03:13.0 -0800
+++ perl/t/op/tiehandle.t 2008-12-11 09:32:54.0 -0800
@@ -10,7 +10,7 @@
my @data = ();
require './test.pl';
-plan(tests = 50);
+plan(tests = 63);
sub compare {
local $Level = $Level + 1;
@@ -61,6 +61,11 @@
3;
}
+sub EOF {
+::compare(EOF = @_);
+@data ? '' : 1;
+}
+
sub WRITE {
::compare(WRITE
Change 34976: setsid() returns -1 on failure.
Change 34976 by [EMAIL PROTECTED] on 2008/12/02 05:10:09 setsid() returns -1 on failure. Affected files ... ... //depot/perl/pod/perlipc.pod#69 edit Differences ... //depot/perl/pod/perlipc.pod#69 (text) Index: perl/pod/perlipc.pod --- perl/pod/perlipc.pod#68~33977~ 2008-06-01 06:17:40.0 -0700 +++ perl/pod/perlipc.pod2008-12-01 21:10:09.0 -0800 @@ -536,7 +536,7 @@ or die Can't write to /dev/null: $!; defined(my $pid = fork) or die Can't fork: $!; exit if $pid; - setsid or die Can't start a new session: $!; + die Can't start a new session: $! if setsid == -1; open STDERR, 'STDOUT' or die Can't dup stdout: $!; } End of Patch.
Change 34945: [PATCH] Small eval documentation tweak
Change 34945 by [EMAIL PROTECTED] on 2008/11/27 14:53:59 Subject: [PATCH] Small eval documentation tweak From: Bo Lindbergh [EMAIL PROTECTED] Date: Wed, 26 Nov 2008 10:54:53 +0100 Message-Id: [EMAIL PROTECTED] Affected files ... ... //depot/perl/pod/perlfunc.pod#608 edit Differences ... //depot/perl/pod/perlfunc.pod#608 (text) Index: perl/pod/perlfunc.pod --- perl/pod/perlfunc.pod#607~34834~2008-11-14 07:12:18.0 -0800 +++ perl/pod/perlfunc.pod 2008-11-27 06:53:59.0 -0800 @@ -1549,7 +1549,8 @@ determined. If there is a syntax error or runtime error, or a Cdie statement is -executed, an undefined value is returned by Ceval, and C$@ is set to the +executed, Ceval returns an undefined value in scalar context +or an empty list in list context, and C$@ is set to the error message. If there was no error, C$@ is guaranteed to be a null string. Beware that using Ceval neither silences perl from printing warnings to STDERR, nor does it stuff the text of warning messages into C$@. End of Patch.
Change 34921: Addendum to bug #38809: fix assertion failure, more tests
Change 34921 by [EMAIL PROTECTED] on 2008/11/26 18:18:44
Subject: Addendum to bug #38809: fix assertion failure, more tests
From: Vincent Pit [EMAIL PROTECTED]
Date: Wed, 26 Nov 2008 18:49:48 +0100
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/op.c#1029 edit
... //depot/perl/t/op/do.t#21 edit
Differences ...
//depot/perl/op.c#1029 (text)
Index: perl/op.c
--- perl/op.c#1028~34920~ 2008-11-26 08:24:07.0 -0800
+++ perl/op.c 2008-11-26 10:18:44.0 -0800
@@ -7651,14 +7651,15 @@
} else {
for (; kid; kid = kid-op_sibling)
if ((kid-op_type == OP_NULL)
-(kid-op_flags OPf_SPECIAL)) {
+((kid-op_flags (OPf_SPECIAL|OPf_KIDS)) ==
(OPf_SPECIAL|OPf_KIDS))) {
/* This is a do block */
- OP *op = cUNOPx(kid)-op_first;
- assert(op (op-op_type == OP_LEAVE) (op-op_flags
OPf_KIDS));
- op = cUNOPx(op)-op_first;
- assert(op-op_type == OP_ENTER !(op-op_flags
OPf_SPECIAL));
- /* Force the use of the caller's context */
- op-op_flags |= OPf_SPECIAL;
+ OP *op = kUNOP-op_first;
+ if (op-op_type == OP_LEAVE op-op_flags OPf_KIDS) {
+ op = cUNOPx(op)-op_first;
+ assert(op-op_type == OP_ENTER !(op-op_flags
OPf_SPECIAL));
+ /* Force the use of the caller's context */
+ op-op_flags |= OPf_SPECIAL;
+ }
}
}
//depot/perl/t/op/do.t#21 (xtext)
Index: perl/t/op/do.t
--- perl/t/op/do.t#20~34907~2008-11-24 22:28:40.0 -0800
+++ perl/t/op/do.t 2008-11-26 10:18:44.0 -0800
@@ -29,7 +29,7 @@
return $ok;
}
-print 1..32\n;
+print 1..38\n;
# Test do sub and proper @_ handling.
$_[0] = 0;
@@ -105,21 +105,40 @@
ok( $owww eq '', 'last is if not' );
# [perl #38809]
[EMAIL PROTECTED] = (7);
+$x = sub { do { return do { @a } }; 2 }-();
+ok(defined $x $x == 1, 'return do { } receives caller scalar context');
[EMAIL PROTECTED] = sub { do { return do { @a } }; 2 }-();
+ok(@x eq 7, 'return do { } receives caller list context');
+
@a = (7, 8);
$x = sub { do { return do { 1; @a } }; 3 }-();
-ok(defined $x $x == 2, 'return do { } receives caller scalar context');
+ok(defined $x $x == 2, 'return do { ; } receives caller scalar context');
@x = sub { do { return do { 1; @a } }; 3 }-();
-ok(@x eq 7 8, 'return do { } receives caller list context');
+ok(@x eq 7 8, 'return do { ; } receives caller list context');
+
[EMAIL PROTECTED] = (11 .. 15);
+$x = sub { do { return do { 1; @a, @b } }; 3 }-();
+ok(defined $x $x == 5, 'return do { ; , } receives caller scalar context');
[EMAIL PROTECTED] = sub { do { return do { 1; @a, @b } }; 3 }-();
+ok(@x eq 7 8 11 12 13 14 15, 'return do { ; , } receives caller list
context');
+
+$x = sub { do { return do { 1; @a }, do { 2; @b } }; 3 }-();
+ok(defined $x $x == 5, 'return do { ; }, do { ; } receives caller scalar
context');
[EMAIL PROTECTED] = sub { do { return do { 1; @a }, do { 2; @b } }; 3 }-();
+ok(@x eq 7 8 11 12 13 14 15, 'return do { ; }, do { ; } receives caller
list context');
+
@a = (7, 8, 9);
$x = sub { do { do { 1; return @a } }; 4 }-();
ok(defined $x $x == 3, 'do { return } receives caller scalar context');
@x = sub { do { do { 1; return @a } }; 4 }-();
ok(@x eq 7 8 9, 'do { return } receives caller list context');
+
@a = (7, 8, 9, 10);
$x = sub { do { return do { 1; do { 2; @a } } }; 5 }-();
-ok(defined $x $x == 4, 'return do { do { } } receives caller scalar
context');
+ok(defined $x $x == 4, 'return do { do { ; } } receives caller scalar
context');
@x = sub { do { return do { 1; do { 2; @a } } }; 5 }-();
-ok(@x eq 7 8 9 10, 'return do { do { } } receives caller list context');
+ok(@x eq 7 8 9 10, 'return do { do { ; } } receives caller list context');
END {
1 while unlink($$.16, $$.17, $$.18);
End of Patch.
Change 34943: [perl #32979] [PATCH] perlrun #!/bin/sh incantation n.g. 4 linux
Change 34943 by [EMAIL PROTECTED] on 2008/11/27 05:51:49
Subject: [perl #32979] [PATCH] perlrun #!/bin/sh incantation n.g. 4
linux
From: Steve Peters via RT [EMAIL PROTECTED]
Date: 21 Dec 2004 17:36:12 -
Message-ID: [EMAIL PROTECTED]
Applying a four year old patch from myself. w00t!
Affected files ...
... //depot/perl/pod/perlrun.pod#172 edit
Differences ...
//depot/perl/pod/perlrun.pod#172 (text)
Index: perl/pod/perlrun.pod
--- perl/pod/perlrun.pod#171~34696~ 2008-11-02 09:09:10.0 -0800
+++ perl/pod/perlrun.pod2008-11-26 21:51:49.0 -0800
@@ -77,9 +77,10 @@
The sequences -* and - are specifically ignored so that you could,
if you were so inclined, say
-#!/bin/sh -- # -*- perl -*- -p
-eval 'exec perl -wS $0 ${1+$@}'
-if $running_under_some_shell;
+#!/bin/sh
+#! -*-perl-*-
+eval 'exec perl -x -wS $0 ${1+$@}'
+if 0;
to let Perl see the B-p switch.
End of Patch.
Change 34905: [perl #7911] no warning for useless /d in tr/0-9//d
Change 34905 by [EMAIL PROTECTED] on 2008/11/25 03:51:41
Subject: [perl #7911] no warning for useless /d in tr/0-9//d
From: reneeb via RT [EMAIL PROTECTED]
Date: Mon, 17 Nov 2008 06:13:57 -0800
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/op.c#1023 edit
... //depot/perl/pod/perldiag.pod#502 edit
... //depot/perl/t/lib/warnings/op#38 edit
Differences ...
//depot/perl/op.c#1023 (text)
Index: perl/op.c
--- perl/op.c#1022~34886~ 2008-11-18 12:32:23.0 -0800
+++ perl/op.c 2008-11-24 19:51:41.0 -0800
@@ -3451,6 +3451,15 @@
}
}
}
+
+if(ckWARN(WARN_MISC)) {
+if(del rlen == tlen) {
+Perl_warner(aTHX_ packWARN(WARN_MISC), Useless use of /d modifier
in transliteration operator);
+} else if(rlen tlen) {
+Perl_warner(aTHX_ packWARN(WARN_MISC), Replacement list is longer
than search list);
+}
+}
+
if (grows)
o-op_private |= OPpTRANS_GROWS;
#ifdef PERL_MAD
//depot/perl/pod/perldiag.pod#502 (text)
Index: perl/pod/perldiag.pod
--- perl/pod/perldiag.pod#501~34830~2008-11-13 02:57:27.0 -0800
+++ perl/pod/perldiag.pod 2008-11-24 19:51:41.0 -0800
@@ -3654,6 +3654,12 @@
numeric field that will never go blank so that the repetition never
terminates. You might use ^# instead. See Lperlform.
+=item Replacement list is longer than search list
+
+(W misc) You have used a replacement list that is longer than the
+search list. So the additional elements in the replacement list
+are meaningless.
+
=item Reversed %s= operator
(W syntax) You wrote your assignment operator backwards. The = must
@@ -4609,6 +4615,12 @@
The -- HERE shows in the regular expression about
where the problem was discovered. See Lperlre.
+=item Useless use of /d modifier in transliteration operator
+
+(W misc) You have used the /d modifier where the searchlist has the
+same length as the replacelist. See Lperlop for more information
+about the /d modifier.
+
=item Useless use of %s in void context
(W void) You did something without a side effect in a context that does
//depot/perl/t/lib/warnings/op#38 (text)
Index: perl/t/lib/warnings/op
--- perl/t/lib/warnings/op#37~33309~2008-02-14 07:14:36.0 -0800
+++ perl/t/lib/warnings/op 2008-11-24 19:51:41.0 -0800
@@ -551,7 +551,7 @@
# op.c
#
use warnings 'misc' ;
-my $a ; my @a = () ; my %a = () ; my $b = [EMAIL PROTECTED] ; my $c = \%a ;
+my $a ; my @a = () ; my %a = () ; my $b = [EMAIL PROTECTED] ; my $c = \%a ;my
$d = 'test';
@a =~ /abc/ ;
@a =~ s/a/b/ ;
@a =~ tr/a/b/ ;
@@ -564,9 +564,11 @@
%$c =~ /abc/ ;
%$c =~ s/a/b/ ;
%$c =~ tr/a/b/ ;
+$d =~ tr/a/b/d ;
+$d =~ tr/a/bc/;
{
no warnings 'misc' ;
-my $a ; my @a = () ; my %a = () ; my $b = [EMAIL PROTECTED] ; my $c = \%a ;
+my $a ; my @a = () ; my %a = () ; my $b = [EMAIL PROTECTED] ; my $c = \%a ; my
$d = 'test';
@a =~ /abc/ ;
@a =~ s/a/b/ ;
@a =~ tr/a/b/ ;
@@ -579,6 +581,8 @@
%$c =~ /abc/ ;
%$c =~ s/a/b/ ;
%$c =~ tr/a/b/ ;
+$d =~ tr/a/b/d ;
+$d =~ tr/a/bc/ ;
}
EXPECT
Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
@@ -593,8 +597,10 @@
Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line
16.
+Useless use of /d modifier in transliteration operator at - line 17.
+Replacement list is longer than search list at - line 18.
Can't modify private array in substitution (s///) at - line 6, near s/a/b/ ;
-BEGIN not safe after errors--compilation aborted at - line 18.
+BEGIN not safe after errors--compilation aborted at - line 20.
# op.c
use warnings 'parenthesis' ;
End of Patch.
Change 34906: [PATCH] Re: [perl #56826] Perl-5.8.8 compilation on AIX 5.1
Change 34906 by [EMAIL PROTECTED] on 2008/11/25 05:46:12 Subject: [PATCH] Re: [perl #56826] Perl-5.8.8 compilation on AIX 5.1 From: Andy Dougherty [EMAIL PROTECTED] Date: Fri, 11 Jul 2008 11:27:13 -0400 (EDT) Message-ID: [EMAIL PROTECTED] Affected files ... ... //depot/perl/INSTALL#191 edit Differences ... //depot/perl/INSTALL#191 (text) Index: perl/INSTALL --- perl/INSTALL#190~33841~ 2008-05-17 06:48:16.0 -0700 +++ perl/INSTALL2008-11-24 21:46:12.0 -0800 @@ -1534,11 +1534,9 @@ then don't worry about the warning message. The extension Makefile.PL goes looking for various libraries needed on various systems; few systems will need all the possible libraries listed. -For example, a system may have -lcposix or -lposix, but it's -unlikely to have both, so most users will see warnings for the one -they don't have. The phrase 'probably harmless' is intended to -reassure you that nothing unusual is happening, and the build -process is continuing. +Most users will see warnings for the ones they don't have. The +phrase 'probably harmless' is intended to reassure you that nothing +unusual is happening, and the build process is continuing. On the other hand, if you are building GDBM_File and you get the message End of Patch.
Change 34907: [perl #38809] return do { } : take 3 (or 4...)
Change 34907 by [EMAIL PROTECTED] on 2008/11/25 06:28:40
Subject: [perl #38809] return do { } : take 3 (or 4...)
From: Vincent Pit [EMAIL PROTECTED]
Date: Mon, 29 Sep 2008 17:36:09 +0200
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/op.c#1024 edit
... //depot/perl/op.h#215 edit
... //depot/perl/pp_hot.c#593 edit
... //depot/perl/t/op/do.t#20 edit
Differences ...
//depot/perl/op.c#1024 (text)
Index: perl/op.c
--- perl/op.c#1023~34905~ 2008-11-24 19:51:41.0 -0800
+++ perl/op.c 2008-11-24 22:28:40.0 -0800
@@ -7644,14 +7644,28 @@
Perl_ck_return(pTHX_ OP *o)
{
dVAR;
+OP *kid;
PERL_ARGS_ASSERT_CK_RETURN;
+kid = cLISTOPo-op_first-op_sibling;
if (CvLVALUE(PL_compcv)) {
-OP *kid;
- for (kid = cLISTOPo-op_first-op_sibling; kid; kid = kid-op_sibling)
+ for (; kid; kid = kid-op_sibling)
mod(kid, OP_LEAVESUBLV);
+} else {
+ for (; kid; kid = kid-op_sibling)
+ if ((kid-op_type == OP_NULL)
+(kid-op_flags OPf_SPECIAL)) {
+ /* This is a do block */
+ OP *op = cUNOPx(kid)-op_first;
+ assert(op (op-op_type == OP_LEAVE) (op-op_flags
OPf_KIDS));
+ op = cUNOPx(op)-op_first;
+ assert(op-op_type == OP_ENTER !(op-op_flags
OPf_SPECIAL));
+ /* Force the use of the caller's context */
+ op-op_flags |= OPf_SPECIAL;
+ }
}
+
return o;
}
//depot/perl/op.h#215 (text)
Index: perl/op.h
--- perl/op.h#214~34819~2008-11-12 02:37:46.0 -0800
+++ perl/op.h 2008-11-24 22:28:40.0 -0800
@@ -137,6 +137,7 @@
/* On OP_SMARTMATCH, an implicit smartmatch */
/* On OP_ANONHASH and OP_ANONLIST, create a
reference to the new anon hash or array */
+ /* On OP_ENTER, store caller context */
/* On OP_HELEM and OP_HSLICE, localization
will be followed
by assignment, so do not wipe the target if
it is special
(e.g. a glob or a magic SV) */
//depot/perl/pp_hot.c#593 (text)
Index: perl/pp_hot.c
--- perl/pp_hot.c#592~34833~2008-11-14 06:29:53.0 -0800
+++ perl/pp_hot.c 2008-11-24 22:28:40.0 -0800
@@ -1754,9 +1754,13 @@
I32 gimme = OP_GIMME(PL_op, -1);
if (gimme == -1) {
- if (cxstack_ix = 0)
- gimme = cxstack[cxstack_ix].blk_gimme;
- else
+ if (cxstack_ix = 0) {
+ /* If this flag is set, we're just inside a return, so we should
+* store the caller's context */
+ gimme = (PL_op-op_flags OPf_SPECIAL)
+ ? block_gimme()
+ : cxstack[cxstack_ix].blk_gimme;
+ } else
gimme = G_SCALAR;
}
@@ -1865,13 +1869,7 @@
POPBLOCK(cx,newpm);
-gimme = OP_GIMME(PL_op, -1);
-if (gimme == -1) {
- if (cxstack_ix = 0)
- gimme = cxstack[cxstack_ix].blk_gimme;
- else
- gimme = G_SCALAR;
-}
+gimme = OP_GIMME(PL_op, (cxstack_ix = 0) ? gimme : G_SCALAR);
TAINT_NOT;
if (gimme == G_VOID)
//depot/perl/t/op/do.t#20 (xtext)
Index: perl/t/op/do.t
--- perl/t/op/do.t#19~34310~2008-09-07 14:32:44.0 -0700
+++ perl/t/op/do.t 2008-11-24 22:28:40.0 -0800
@@ -29,7 +29,7 @@
return $ok;
}
-print 1..26\n;
+print 1..32\n;
# Test do sub and proper @_ handling.
$_[0] = 0;
@@ -104,6 +104,23 @@
$owww = do { 4 if not $zok };
ok( $owww eq '', 'last is if not' );
+# [perl #38809]
[EMAIL PROTECTED] = (7, 8);
+$x = sub { do { return do { 1; @a } }; 3 }-();
+ok(defined $x $x == 2, 'return do { } receives caller scalar context');
[EMAIL PROTECTED] = sub { do { return do { 1; @a } }; 3 }-();
+ok(@x eq 7 8, 'return do { } receives caller list context');
[EMAIL PROTECTED] = (7, 8, 9);
+$x = sub { do { do { 1; return @a } }; 4 }-();
+ok(defined $x $x == 3, 'do { return } receives caller scalar context');
[EMAIL PROTECTED] = sub { do { do { 1; return @a } }; 4 }-();
+ok(@x eq 7 8 9, 'do { return } receives caller list context');
[EMAIL PROTECTED] = (7, 8, 9, 10);
+$x = sub { do { return do { 1; do { 2; @a } } }; 5 }-();
+ok(defined $x $x == 4, 'return do { do { } } receives caller scalar
context');
[EMAIL PROTECTED] = sub { do { return do { 1; do { 2; @a } } }; 5 }-();
+ok(@x eq 7 8 9 10, 'return do { do { } } receives caller list context');
+
END {
1 while unlink($$.16, $$.17, $$.18);
}
End of Patch.
Change 34908: Re: [perl #59280] perlbug AutoReply: PUSH on tied array gives incorrect context to method and can result in needless calls to FETCHSIZE
Change 34908 by [EMAIL PROTECTED] on 2008/11/25 06:48:36
Subject: Re: [perl #59280] perlbug AutoReply: PUSH on tied array gives
incorrect context to method and can result in needless calls to FETCHSIZE
From: Luke Ross [EMAIL PROTECTED]
Date: Tue, 30 Sep 2008 22:41:50 +0100
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/pp.c#645 edit
Differences ...
//depot/perl/pp.c#645 (text)
Index: perl/pp.c
--- perl/pp.c#644~34860~2008-11-16 23:33:24.0 -0800
+++ perl/pp.c 2008-11-24 22:48:36.0 -0800
@@ -4523,7 +4523,9 @@
LEAVE;
SPAGAIN;
SP = ORIGMARK;
- PUSHi( AvFILL(ary) + 1 );
+ if (GIMME_V != G_VOID) {
+ PUSHi( AvFILL(ary) + 1 );
+ }
}
else {
PL_delaymagic = DM_DELAY;
@@ -4581,7 +4583,9 @@
}
}
SP = ORIGMARK;
-PUSHi( AvFILL(ary) + 1 );
+if (GIMME_V != G_VOID) {
+ PUSHi( AvFILL(ary) + 1 );
+}
RETURN;
}
End of Patch.
Change 34840: TODO for fixing lvalue subs in the debugger is now to-done. Pointed
Change 34840 by [EMAIL PROTECTED] on 2008/11/16 17:07:24 TODO for fixing lvalue subs in the debugger is now to-done. Pointed out by Florian Ragwitz. Affected files ... ... //depot/perl/pod/perltodo.pod#242 edit Differences ... //depot/perl/pod/perltodo.pod#242 (text) Index: perl/pod/perltodo.pod --- perl/pod/perltodo.pod#241~34451~2008-10-01 01:55:48.0 -0700 +++ perl/pod/perltodo.pod 2008-11-16 09:07:24.0 -0800 @@ -941,11 +941,6 @@ The old perltodo notes that lvalue functions don't work for list or hash slices. This would be good to fix. -=head2 LVALUE functions in the debugger - -The old perltodo notes that lvalue functions don't work in the debugger. This -would be good to fix. - =head2 regexp optimiser optional The regexp optimiser is not optional. It should configurable to be, to allow End of Patch.
Change 34838: Upgrade to File-Temp-0.21
Change 34838 by [EMAIL PROTECTED] on 2008/11/16 06:31:56
Upgrade to File-Temp-0.21
Affected files ...
... //depot/perl/lib/File/Temp.pm#41 edit
... //depot/perl/lib/File/Temp/t/seekable.t#3 edit
Differences ...
//depot/perl/lib/File/Temp.pm#41 (text)
Index: perl/lib/File/Temp.pm
--- perl/lib/File/Temp.pm#40~34252~ 2008-09-03 12:07:36.0 -0700
+++ perl/lib/File/Temp.pm 2008-11-15 22:31:56.0 -0800
@@ -144,7 +144,7 @@
use File::Spec 0.8;
use File::Path qw/ rmtree /;
use Fcntl 1.03;
-use IO::Seekable; # For SEEK_*
+use IO::Seekable; # For SEEK_*
use Errno;
require VMS::Stdio if $^O eq 'VMS';
@@ -175,42 +175,42 @@
# Export list - to allow fine tuning of export table
@EXPORT_OK = qw{
- tempfile
- tempdir
- tmpnam
- tmpfile
- mktemp
- mkstemp
- mkstemps
- mkdtemp
- unlink0
- cleanup
- SEEK_SET
- SEEK_CUR
- SEEK_END
- };
+ tempfile
+ tempdir
+ tmpnam
+ tmpfile
+ mktemp
+ mkstemp
+ mkstemps
+ mkdtemp
+ unlink0
+ cleanup
+ SEEK_SET
+ SEEK_CUR
+ SEEK_END
+ };
# Groups of functions for export
%EXPORT_TAGS = (
- 'POSIX' = [qw/ tmpnam tmpfile /],
- 'mktemp' = [qw/ mktemp mkstemp mkstemps mkdtemp/],
- 'seekable' = [qw/ SEEK_SET SEEK_CUR SEEK_END /],
- );
+'POSIX' = [qw/ tmpnam tmpfile /],
+'mktemp' = [qw/ mktemp mkstemp mkstemps mkdtemp/],
+'seekable' = [qw/ SEEK_SET SEEK_CUR SEEK_END /],
+ );
# add contents of these tags to @EXPORT
Exporter::export_tags('POSIX','mktemp','seekable');
# Version number
-$VERSION = '0.20_02';
+$VERSION = '0.21';
# This is a list of characters that can be used in random filenames
my @CHARS = (qw/ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-a b c d e f g h i j k l m n o p q r s t u v w x y z
-0 1 2 3 4 5 6 7 8 9 _
-/);
+ a b c d e f g h i j k l m n o p q r s t u v w x y z
+ 0 1 2 3 4 5 6 7 8 9 _
+ /);
# Maximum number of tries to make a temp file before failing
@@ -340,13 +340,13 @@
# Default options
my %options = (
-open = 0,
-mkdir = 0,
-suffixlen = 0,
-unlink_on_close = 0,
-use_exlock = 1,
-ErrStr = \$tempErrStr,
- );
+ open = 0,
+ mkdir = 0,
+ suffixlen = 0,
+ unlink_on_close = 0,
+ use_exlock = 1,
+ ErrStr = \$tempErrStr,
+);
# Read the template
my $template = shift;
@@ -406,7 +406,7 @@
# or a tempfile
my ($volume, $directories, $file);
- my $parent; # parent directory
+ my $parent; # parent directory
if ($options{mkdir}) {
# There is no filename at the end
($volume, $directories, $file) = File::Spec-splitpath( $path, 1);
@@ -421,16 +421,16 @@
$parent = File::Spec-curdir;
} else {
- if ($^O eq 'VMS') { # need volume to avoid relative dir spec
+ if ($^O eq 'VMS') { # need volume to avoid relative dir spec
$parent = File::Spec-catdir($volume, @dirs[0..$#dirs-1]);
$parent = 'sys$disk:[]' if $parent eq '';
} else {
- # Put it back together without the last one
- $parent = File::Spec-catdir(@dirs[0..$#dirs-1]);
+# Put it back together without the last one
+$parent = File::Spec-catdir(@dirs[0..$#dirs-1]);
- # ...and attach the volume (no filename)
- $parent = File::Spec-catpath($volume, $parent, '');
+# ...and attach the volume (no filename)
+$parent = File::Spec-catpath($volume, $parent, '');
}
}
@@ -463,17 +463,6 @@
return ();
}
- if ( $^O eq 'cygwin' ) {
- # No-op special case. Under Windows Cygwin (FAT32) the directory
- # permissions cannot be trusted. Directories are always
- # writable.
- }
- elsif (not -w $parent) {
-${$options{ErrStr}} = Parent directory ($parent) is not writable\n;
- return ();
- }
-
-
# Check the stickiness of the directory and chown giveaway if required
# If the directory is world writable the sticky bit
# must be set
@@ -502,7 +491,7 @@
# If we are running before perl5.6.0 we can not auto-vivify
if ($] 5.006) {
- $fh = Symbol::gensym;
+$fh = Symbol::gensym;
}
# Try to make sure this will be marked close-on-exec
@@ -514,53 +503,53 @@
my $open_success = undef;
if (
Change 34833: [perl #48489] patch to fix perl bug #7013
Change 34833 by [EMAIL PROTECTED] on 2008/11/14 14:29:53
Subject: [perl #48489] patch to fix perl bug #7013
From: bharanee rathna (via RT) [EMAIL PROTECTED]
Date: Tue, 11 Dec 2007 15:25:21 -0800
Message-ID: [EMAIL PROTECTED]
Just the pp_hot.c portion of this patch applied along with removing
the TODO from the test added in the previous change.
Affected files ...
... //depot/perl/lib/perl5db.t#9 edit
... //depot/perl/pp_hot.c#592 edit
Differences ...
//depot/perl/lib/perl5db.t#9 (text)
Index: perl/lib/perl5db.t
--- perl/lib/perl5db.t#8~34832~ 2008-11-14 06:18:00.0 -0800
+++ perl/lib/perl5db.t 2008-11-14 06:29:53.0 -0800
@@ -76,9 +76,8 @@
'The ${main::_filename} variable in the debugger was not destroyed'
);
-TODO: {
+{
local $ENV{PERLDB_OPTS} = ReadLine=0;
-local $::TODO = lvalueness isn't propagated in the debugger;
my $output = runperl(switches = [ '-d' ], progfile =
'../lib/perl5db/t/lvalue-bug');
like($output, qr/foo is defined/, 'lvalue subs work in the debugger');
}
//depot/perl/pp_hot.c#592 (text)
Index: perl/pp_hot.c
--- perl/pp_hot.c#591~34831~2008-11-14 04:37:01.0 -0800
+++ perl/pp_hot.c 2008-11-14 06:29:53.0 -0800
@@ -2774,7 +2774,14 @@
Perl_get_db_sub(aTHX_ sv, cv);
if (CvISXSUB(cv))
PL_curcopdb = PL_curcop;
-cv = GvCV(PL_DBsub);
+ if (CvLVALUE(cv)) {
+ /* check for lsub that handles lvalue subroutines */
+cv = GvCV(gv_HVadd(gv_fetchpv(DB::lsub, GV_ADDMULTI, SVt_PVHV)));
+ /* if lsub not found then fall back to DB::sub */
+if (!cv) cv = GvCV(PL_DBsub);
+ } else {
+ cv = GvCV(PL_DBsub);
+ }
if (!cv || (!CvXSUB(cv) !CvSTART(cv)))
DIE(aTHX_ No DB::sub routine defined);
End of Patch.
Change 34832: [PATCH] Add TODO test for :lvalue under -d.
Change 34832 by [EMAIL PROTECTED] on 2008/11/14 14:18:00
Subject: [PATCH] Add TODO test for :lvalue under -d.
From: Florian Ragwitz [EMAIL PROTECTED]
Date: Fri, 14 Nov 2008 11:24:57 +0100
Message-Id: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/MANIFEST#1749 edit
... //depot/perl/lib/perl5db.t#8 edit
... //depot/perl/lib/perl5db/t/lvalue-bug#1 add
Differences ...
//depot/perl/MANIFEST#1749 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1748~34827~ 2008-11-12 11:23:38.0 -0800
+++ perl/MANIFEST 2008-11-14 06:18:00.0 -0800
@@ -2558,6 +2558,7 @@
lib/perl5db.pl Perl debugging routines
lib/perl5db.t Tests for the Perl debugger
lib/perl5db/t/eval-line-bugTests for the Perl debugger
+lib/perl5db/t/lvalue-bug Tests for the Perl debugger
lib/PerlIO.pm PerlIO support module
lib/PerlIO/via/QuotedPrint.pm PerlIO::via::QuotedPrint
lib/PerlIO/via/t/QuotedPrint.t PerlIO::via::QuotedPrint
//depot/perl/lib/perl5db.t#8 (text)
Index: perl/lib/perl5db.t
--- perl/lib/perl5db.t#7~34204~ 2008-08-17 09:53:04.0 -0700
+++ perl/lib/perl5db.t 2008-11-14 06:18:00.0 -0800
@@ -26,7 +26,7 @@
}
}
-plan(1);
+plan(2);
sub rc {
open RC, , .perldb or die $!;
@@ -76,6 +76,13 @@
'The ${main::_filename} variable in the debugger was not destroyed'
);
+TODO: {
+local $ENV{PERLDB_OPTS} = ReadLine=0;
+local $::TODO = lvalueness isn't propagated in the debugger;
+my $output = runperl(switches = [ '-d' ], progfile =
'../lib/perl5db/t/lvalue-bug');
+like($output, qr/foo is defined/, 'lvalue subs work in the debugger');
+}
+
# clean up.
END {
//depot/perl/lib/perl5db/t/lvalue-bug#1 (text)
Index: perl/lib/perl5db/t/lvalue-bug
--- /dev/null 2008-11-04 07:18:13.23315 -0800
+++ perl/lib/perl5db/t/lvalue-bug 2008-11-14 06:18:00.0 -0800
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+#
+# This code is used by lib/perl5db.t !!!
+#
+
+my $i;
+sub foo () : lvalue { $i }
+foo = 1;
+print defined foo ? foo is defined : foo is still undef, \n;
End of Patch.
Change 34834: Various patches added to RT #21568 from [EMAIL PROTECTED]
Change 34834 by [EMAIL PROTECTED] on 2008/11/14 15:12:18 Various patches added to RT #21568 from [EMAIL PROTECTED] Affected files ... ... //depot/perl/pod/perlfunc.pod#607 edit Differences ... //depot/perl/pod/perlfunc.pod#607 (text) Index: perl/pod/perlfunc.pod --- perl/pod/perlfunc.pod#606~34378~2008-09-17 00:01:00.0 -0700 +++ perl/pod/perlfunc.pod 2008-11-14 07:12:18.0 -0800 @@ -2855,7 +2855,7 @@ =item m// -The match operator. See Lperlop. +The match operator. See Lperlop/Regexp Quote-Like Operators. =item map BLOCK LIST Xmap @@ -4776,7 +4776,7 @@ =item s/// -The substitution operator. See Lperlop. +The substitution operator. See Lperlop/Regexp Quote-Like Operators. =item say FILEHANDLE LIST Xsay @@ -5521,7 +5521,7 @@ If you had the entire header of a normal Unix email message in $header, you could split it up into fields and their values this way: -$header =~ s/\n\s+/ /g; # fix continuation lines +$header =~ s/\n(?=\s)//g; # fix continuation lines %hdrs = (UNIX_FROM = split /^(\S*?):\s*/m, $header); The pattern C/PATTERN/ may be replaced with an expression to specify @@ -6674,7 +6674,8 @@ =item tr/// -The transliteration operator. Same as Cy///. See Lperlop. +The transliteration operator. Same as Cy///. See +Lperlop/Quote and Quote-like Operators. =item truncate FILEHANDLE,LENGTH Xtruncate @@ -7432,6 +7433,7 @@ =item y/// -The transliteration operator. Same as Ctr///. See Lperlop. +The transliteration operator. Same as Ctr///. See +Lperlop/Quote and Quote-like Operators. =back End of Patch.
Change 34836: Forgot to include lib/perl5db.pl in change #34833
Change 34836 by [EMAIL PROTECTED] on 2008/11/14 19:17:13
Forgot to include lib/perl5db.pl in change #34833
Affected files ...
... //depot/perl/lib/perl5db.pl#137 edit
Differences ...
//depot/perl/lib/perl5db.pl#137 (text)
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#136~34693~ 2008-11-01 07:51:05.0 -0700
+++ perl/lib/perl5db.pl 2008-11-14 11:17:13.0 -0800
@@ -3776,6 +3776,69 @@
} ## end else [ if (wantarray)
} ## end sub sub
+sub lsub : lvalue {
+
+ # lock ourselves under threads
+ lock($DBGR);
+
+# Whether or not the autoloader was running, a scalar to put the
+# sub's return value in (if needed), and an array to put the sub's
+# return value in (if needed).
+my ( $al, $ret, @ret ) = ;
+ if ($sub =~ /^threads::new$/ $ENV{PERL5DB_THREADED}) {
+ print creating new thread\n;
+ }
+
+# If the last ten characters are C'::AUTOLOAD', note we've traced
+# into AUTOLOAD for $sub.
+if ( length($sub) 10 substr( $sub, -10, 10 ) eq '::AUTOLOAD' ) {
+$al = for $$sub;
+}
+
+# We stack the stack pointer and then increment it to protect us
+# from a situation that might unwind a whole bunch of call frames
+# at once. Localizing the stack pointer means that it will automatically
+# unwind the same amount when multiple stack frames are unwound.
+local $stack_depth = $stack_depth + 1;# Protect from non-local exits
+
+# Expand @stack.
+$#stack = $stack_depth;
+
+# Save current single-step setting.
+$stack[-1] = $single;
+
+# Turn off all flags except single-stepping.
+$single = 1;
+
+# If we've gotten really deeply recursed, turn on the flag that will
+# make us stop with the 'deep recursion' message.
+$single |= 4 if $stack_depth == $deep;
+
+# If frame messages are on ...
+(
+$frame 4# Extended frame entry message
+? (
+print_lineinfo( ' ' x ( $stack_depth - 1 ), in ),
+
+# Why -1? But it works! :-(
+# Because print_trace will call add 1 to it and then call
+# dump_trace; this results in our skipping -1+1 = 0 stack frames
+# in dump_trace.
+print_trace( $LINEINFO, -1, 1, 1, $sub$al )
+ )
+: print_lineinfo( ' ' x ( $stack_depth - 1 ), entering $sub$al\n )
+
+ # standard frame entry message
+ )
+ if $frame;
+
+# Pop the single-step value back off the stack.
+$single |= $stack[ $stack_depth-- ];
+
+# call the original lvalue sub.
+$sub;
+}
+
=head1 EXTENDED COMMAND HANDLING AND THE COMMAND API
In Perl 5.8.0, there was a major realignment of the commands and what they did,
End of Patch.
Change 34786: [perl #57926][PATCH] File::Find Bug
Change 34786 by [EMAIL PROTECTED] on 2008/11/10 03:56:34
Subject: [perl #57926][PATCH] File::Find Bug
From: [EMAIL PROTECTED]
Date: Fri, 22 Aug 2008 16:42:02 +0200 (CEST)
Message-Id: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/lib/File/Find.pm#96 edit
Differences ...
//depot/perl/lib/File/Find.pm#96 (text)
Index: perl/lib/File/Find.pm
--- perl/lib/File/Find.pm#95~33911~ 2008-05-22 23:18:59.0 -0700
+++ perl/lib/File/Find.pm 2008-11-09 19:56:34.0 -0800
@@ -3,7 +3,7 @@
use strict;
use warnings;
use warnings::register;
-our $VERSION = '1.13';
+our $VERSION = '1.14';
require Exporter;
require Cwd;
@@ -78,7 +78,8 @@
=item Cwanted
The value should be a code reference. This code reference is
-described in LThe wanted function below.
+described in LThe wanted function below. The Cwanted subroutine is
+mandatory.
=item Cbydepth
@@ -1266,6 +1267,9 @@
sub wrap_wanted {
my $wanted = shift;
if ( ref($wanted) eq 'HASH' ) {
+unless( exists $wanted-{wanted} and ref( $wanted-{wanted} ) eq
'CODE' ) {
+die 'no wanted subroutine given';
+}
if ( $wanted-{follow} || $wanted-{follow_fast}) {
$wanted-{follow_skip} = 1 unless defined $wanted-{follow_skip};
}
@@ -1276,9 +1280,12 @@
}
return $wanted;
}
-else {
+elsif( ref( $wanted ) eq 'CODE' ) {
return { wanted = $wanted };
}
+else {
+ die 'no wanted subroutine given';
+}
}
sub find {
End of Patch.
Change 34778: From change #34775, reverting perlio.c change for now. Also,
Change 34778 by [EMAIL PROTECTED] on 2008/11/08 15:51:45
From change #34775, reverting perlio.c change for now. Also,
setting the tests to TODO.
Affected files ...
... //depot/perl/ext/PerlIO/t/ioleaks.t#2 edit
... //depot/perl/perlio.c#395 edit
Differences ...
//depot/perl/ext/PerlIO/t/ioleaks.t#2 (text)
Index: perl/ext/PerlIO/t/ioleaks.t
--- perl/ext/PerlIO/t/ioleaks.t#1~34775~2008-11-07 21:18:16.0
-0800
+++ perl/ext/PerlIO/t/ioleaks.t 2008-11-08 07:51:45.0 -0800
@@ -10,14 +10,17 @@
# :perlio - ok
# :crlf - ok
-foreach my $layer(qw(:unix :stdio :perlio :crlf)){
- my $base_fd = do{ open my $in, '', $0 or die $!; fileno $in };
+TODO: {
+local $TODO = [perl #56644] PerlIO resource leaks on open() and then :pop
in :unix and :stdio;
+foreach my $layer(qw(:unix :stdio :perlio :crlf)){
+my $base_fd = do{ open my $in, '', $0 or die $!; fileno $in };
- for(1 .. 3){
- open my $fh, $layer, $0 or die $!;
+for(1 .. 3){
+open my $fh, $layer, $0 or die $!;
- is fileno($fh), $base_fd, $layer;
- binmode $fh, ':pop';
- }
+is fileno($fh), $base_fd, $layer;
+binmode $fh, ':pop';
+}
+}
}
//depot/perl/perlio.c#395 (text)
Index: perl/perlio.c
--- perl/perlio.c#394~34775~2008-11-07 21:18:16.0 -0800
+++ perl/perlio.c 2008-11-08 07:51:45.0 -0800
@@ -2736,14 +2736,9 @@
return PerlLIO_lseek(PerlIOSelf(f, PerlIOUnix)-fd, 0, SEEK_CUR);
}
-IV
-PerlIOUnix_close(pTHX_ PerlIO *f)
-{
- return PerlIOBase_noop_ok(aTHX_ f);
-}
IV
-PerlIOUnix_popped(pTHX_ PerlIO *f)
+PerlIOUnix_close(pTHX_ PerlIO *f)
{
dVAR;
const int fd = PerlIOSelf(f, PerlIOUnix)-fd;
@@ -2777,7 +2772,7 @@
sizeof(PerlIOUnix),
PERLIO_K_RAW,
PerlIOUnix_pushed,
-PerlIOUnix_popped,
+PerlIOBase_popped,
PerlIOUnix_open,
PerlIOBase_binmode, /* binmode */
NULL,
@@ -3127,12 +3122,6 @@
IV
PerlIOStdio_close(pTHX_ PerlIO *f)
{
- return PerlIOBase_noop_ok(aTHX_ f);
-}
-
-IV
-PerlIOStdio_popped(pTHX_ PerlIO *f)
-{
FILE * const stdio = PerlIOSelf(f, PerlIOStdio)-stdio;
if (!stdio) {
errno = EBADF;
@@ -3569,7 +3558,7 @@
sizeof(PerlIOStdio),
PERLIO_K_BUFFERED|PERLIO_K_RAW,
PerlIOStdio_pushed,
-PerlIOStdio_popped,
+PerlIOBase_popped,
PerlIOStdio_open,
PerlIOBase_binmode, /* binmode */
NULL,
End of Patch.
Change 34768: A small refactoring based on a comment in an old RT ticket (RT
Change 34768 by [EMAIL PROTECTED] on 2008/11/07 17:23:05
A small refactoring based on a comment in an old RT ticket (RT
#4362 in case you were wondering).
Affected files ...
... //depot/perl/toke.c#837 edit
Differences ...
//depot/perl/toke.c#837 (text)
Index: perl/toke.c
--- perl/toke.c#836~34705~ 2008-11-03 08:25:42.0 -0800
+++ perl/toke.c 2008-11-07 09:23:05.0 -0800
@@ -546,13 +546,7 @@
if (nl)
*nl = '\0';
}
-else if (
-#ifdef EBCDIC
- iscntrl(PL_multi_close)
-#else
- PL_multi_close 32 || PL_multi_close == 127
-#endif
- ) {
+else if (isCNTRL(PL_multi_close)) {
*tmpbuf = '^';
tmpbuf[1] = (char)toCTRL(PL_multi_close);
tmpbuf[2] = '\0';
End of Patch.
Change 34773: Re: [perl #57322] perlbug AutoReply: ungetc() to :scalar might cause problems
Change 34773 by [EMAIL PROTECTED] on 2008/11/08 04:02:03
Subject: Re: [perl #57322] perlbug AutoReply: ungetc() to :scalar might
cause problems
From: Goro Fuji [EMAIL PROTECTED]
Date: Sun, 27 Jul 2008 14:37:45 +0900
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/MANIFEST#1746 edit
... //depot/perl/ext/PerlIO/scalar/scalar.pm#10 edit
... //depot/perl/ext/PerlIO/scalar/scalar.xs#20 edit
... //depot/perl/ext/PerlIO/scalar/t/scalar_ungetc.t#1 add
Differences ...
//depot/perl/MANIFEST#1746 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1745~34769~ 2008-11-07 12:20:21.0 -0800
+++ perl/MANIFEST 2008-11-07 20:02:03.0 -0800
@@ -965,6 +965,7 @@
ext/PerlIO/scalar/Makefile.PL PerlIO layer for scalars
ext/PerlIO/scalar/scalar.pmPerlIO layer for scalars
ext/PerlIO/scalar/scalar.xsPerlIO layer for scalars
+ext/PerlIO/scalar/t/scalar_ungetc.tTests for PerlIO layer for scalars
ext/PerlIO/t/encoding.tSee if PerlIO encoding conversion works
ext/PerlIO/t/fail.tSee if bad layers fail
ext/PerlIO/t/fallback.tSee if PerlIO fallbacks work
//depot/perl/ext/PerlIO/scalar/scalar.pm#10 (text)
Index: perl/ext/PerlIO/scalar/scalar.pm
--- perl/ext/PerlIO/scalar/scalar.pm#9~33621~ 2008-03-31 15:25:19.0
-0700
+++ perl/ext/PerlIO/scalar/scalar.pm2008-11-07 20:02:03.0 -0800
@@ -1,5 +1,5 @@
package PerlIO::scalar;
-our $VERSION = '0.06';
+our $VERSION = '0.07';
use XSLoader ();
XSLoader::load 'PerlIO::scalar';
1;
//depot/perl/ext/PerlIO/scalar/scalar.xs#20 (text)
Index: perl/ext/PerlIO/scalar/scalar.xs
--- perl/ext/PerlIO/scalar/scalar.xs#19~34700~ 2008-11-03 01:13:16.0
-0800
+++ perl/ext/PerlIO/scalar/scalar.xs2008-11-07 20:02:03.0 -0800
@@ -125,17 +125,6 @@
}
SSize_t
-PerlIOScalar_unread(pTHX_ PerlIO * f, const void *vbuf, Size_t count)
-{
-PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar);
-char *dst = SvGROW(s-var, (STRLEN)s-posn + count);
-s-posn -= count;
-Move(vbuf, dst + s-posn, count, char);
-SvPOK_on(s-var);
-return count;
-}
-
-SSize_t
PerlIOScalar_write(pTHX_ PerlIO * f, const void *vbuf, Size_t count)
{
if (PerlIOBase(f)-flags PERLIO_F_CANWRITE) {
@@ -289,7 +278,7 @@
PerlIOScalar_fileno,
PerlIOScalar_dup,
PerlIOBase_read,
-PerlIOScalar_unread,
+NULL, /* unread */
PerlIOScalar_write,
PerlIOScalar_seek,
PerlIOScalar_tell,
//depot/perl/ext/PerlIO/scalar/t/scalar_ungetc.t#1 (text)
Index: perl/ext/PerlIO/scalar/t/scalar_ungetc.t
--- /dev/null 2008-11-04 07:18:13.23315 -0800
+++ perl/ext/PerlIO/scalar/t/scalar_ungetc.t2008-11-07 20:02:03.0
-0800
@@ -0,0 +1,36 @@
+#!perl -w
+use strict;
+use IO::Handle; # ungetc()
+
+use Test::More tests = 20;
+
+require_ok q{PerlIO::scalar};
+
+my $s = 'foo';
+Internals::SvREADONLY($s, 1);
+eval{
+ $s = 'bar';
+};
+like $@, qr/Modification of a read-only value/, '$s is readonly';
+
+ok open(my $io, '', \$s), 'open';
+
+getc $io;
+
+my $a = ord 'A';
+
+diag buffer[$s];
+is $io-ungetc($a), $a, 'ungetc';
+diag buffer[$s];
+
+is getc($io), chr($a), 'getc';
+
+is $s, 'foo', '$s remains foo';
+
+is getc($io), 'o', 'getc/2';
+is getc($io), 'o', 'getc/3';
+is getc($io), undef, 'getc/4';
+
+for my $c($a .. ($a+10)){
+ is $io-ungetc($c), $c, ungetc($c);
+}
\ No newline at end of file
End of Patch.
Change 34774: [perl #54828] perlio.c has a problem (both 5.8 and 5.10)
Change 34774 by [EMAIL PROTECTED] on 2008/11/08 04:21:44
Subject: [perl #54828] perlio.c has a problem (both 5.8 and 5.10)
From: Goro Fuji (via RT) [EMAIL PROTECTED]
Date: Sun, 25 May 2008 23:10:42 -0700
Message-ID: [EMAIL PROTECTED]
The second part of the patch. The first part was in change #33978.
Affected files ...
... //depot/perl/perlio.c#393 edit
Differences ...
//depot/perl/perlio.c#393 (text)
Index: perl/perlio.c
--- perl/perlio.c#392~34698~2008-11-02 13:12:59.0 -0800
+++ perl/perlio.c 2008-11-07 20:21:44.0 -0800
@@ -4640,9 +4640,7 @@
PerlIOBase(f)-flags = ~PERLIO_F_CRLF;
#ifndef PERLIO_USING_CRLF
/* CRLF is unusual case - if this is just the :crlf layer pop it */
- if (PerlIOBase(f)-tab == PerlIO_crlf) {
- PerlIO_pop(aTHX_ f);
- }
+ PerlIO_pop(aTHX_ f);
#endif
}
return 0;
End of Patch.
Change 34775: Re: [perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio
Change 34775 by [EMAIL PROTECTED] on 2008/11/08 05:18:16
Subject: Re: [perl #56644] PerlIO resource leaks on open() and then
:pop in :unix and :stdio
From: Goro Fuji [EMAIL PROTECTED]
Date: Mon, 7 Jul 2008 08:04:52 +0900
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/MANIFEST#1747 edit
... //depot/perl/ext/PerlIO/t/ioleaks.t#1 add
... //depot/perl/perlio.c#394 edit
... //depot/perl/pod/perliol.pod#37 edit
Differences ...
//depot/perl/MANIFEST#1747 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1746~34773~ 2008-11-07 20:02:03.0 -0800
+++ perl/MANIFEST 2008-11-07 21:18:16.0 -0800
@@ -969,6 +969,7 @@
ext/PerlIO/t/encoding.tSee if PerlIO encoding conversion works
ext/PerlIO/t/fail.tSee if bad layers fail
ext/PerlIO/t/fallback.tSee if PerlIO fallbacks work
+ext/PerlIO/t/ioleaks.t See if PerlIO layers are leaking
ext/PerlIO/t/open.tSee if PerlIO certain special opens work
ext/PerlIO/t/PerlIO.t See if PerlIO works
ext/PerlIO/t/scalar.t See if PerlIO::scalar works
//depot/perl/ext/PerlIO/t/ioleaks.t#1 (text)
Index: perl/ext/PerlIO/t/ioleaks.t
--- /dev/null 2008-11-04 07:18:13.23315 -0800
+++ perl/ext/PerlIO/t/ioleaks.t 2008-11-07 21:18:16.0 -0800
@@ -0,0 +1,23 @@
+#!perl
+# ioleaks.t
+
+use strict;
+use warnings;
+use Test::More 'no_plan';
+
+# :unix - not ok
+# :stdio - not ok
+# :perlio - ok
+# :crlf - ok
+
+foreach my $layer(qw(:unix :stdio :perlio :crlf)){
+ my $base_fd = do{ open my $in, '', $0 or die $!; fileno $in };
+
+ for(1 .. 3){
+ open my $fh, $layer, $0 or die $!;
+
+ is fileno($fh), $base_fd, $layer;
+ binmode $fh, ':pop';
+ }
+}
+
//depot/perl/perlio.c#394 (text)
Index: perl/perlio.c
--- perl/perlio.c#393~34774~2008-11-07 20:21:44.0 -0800
+++ perl/perlio.c 2008-11-07 21:18:16.0 -0800
@@ -2736,10 +2736,15 @@
return PerlLIO_lseek(PerlIOSelf(f, PerlIOUnix)-fd, 0, SEEK_CUR);
}
-
IV
PerlIOUnix_close(pTHX_ PerlIO *f)
{
+ return PerlIOBase_noop_ok(aTHX_ f);
+}
+
+IV
+PerlIOUnix_popped(pTHX_ PerlIO *f)
+{
dVAR;
const int fd = PerlIOSelf(f, PerlIOUnix)-fd;
int code = 0;
@@ -2772,7 +2777,7 @@
sizeof(PerlIOUnix),
PERLIO_K_RAW,
PerlIOUnix_pushed,
-PerlIOBase_popped,
+PerlIOUnix_popped,
PerlIOUnix_open,
PerlIOBase_binmode, /* binmode */
NULL,
@@ -3122,6 +3127,12 @@
IV
PerlIOStdio_close(pTHX_ PerlIO *f)
{
+ return PerlIOBase_noop_ok(aTHX_ f);
+}
+
+IV
+PerlIOStdio_popped(pTHX_ PerlIO *f)
+{
FILE * const stdio = PerlIOSelf(f, PerlIOStdio)-stdio;
if (!stdio) {
errno = EBADF;
@@ -3558,7 +3569,7 @@
sizeof(PerlIOStdio),
PERLIO_K_BUFFERED|PERLIO_K_RAW,
PerlIOStdio_pushed,
-PerlIOBase_popped,
+PerlIOStdio_popped,
PerlIOStdio_open,
PerlIOBase_binmode, /* binmode */
NULL,
//depot/perl/pod/perliol.pod#37 (text)
Index: perl/pod/perliol.pod
--- perl/pod/perliol.pod#36~32026~ 2007-10-04 07:28:34.0 -0700
+++ perl/pod/perliol.pod2008-11-07 21:18:16.0 -0800
@@ -145,7 +145,7 @@
IV (*Pushed)(pTHX_ PerlIO *f,const char *mode,SV *arg,
PerlIO_funcs *tab);
IV (*Popped)(pTHX_ PerlIO *f);
PerlIO *(*Open)(pTHX_ PerlIO_funcs *tab,
- AV *layers, IV n,
+ PerlIO_list_t *layers, IV n,
const char *mode,
int fd, int imode, int perm,
PerlIO *old,
@@ -486,7 +486,7 @@
follows:
PerlIO * (*Open)(pTHX_ PerlIO_funcs *tab,
- AV *layers, IV n,
+ PerlIO_list_t *layers, IV n,
const char *mode,
int fd, int imode, int perm,
PerlIO *old,
@@ -494,7 +494,7 @@
Open should (perhaps indirectly) call CPerlIO_allocate() to allocate
a slot in the table and associate it with the layers information for
-the opened file, by calling CPerlIO_push. The Ilayers AV is an
+the opened file, by calling CPerlIO_push. The Ilayers is an
array of all the layers destined for the CPerlIO *, and any
arguments passed to them, In is the index into that array of the
layer being called. The macro CPerlIOArg will return a (possibly
End of Patch.
Change 34484: Some additional files changes for Test-Simple-0.82
Change 34484 by [EMAIL PROTECTED] on 2008/10/15 13:20:02
Some additional files changes for Test-Simple-0.82
Affected files ...
... //depot/perl/t/lib/Test/Simple/Catch.pm#5 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/death.plx#4 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/death_in_eval.plx#3 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx#2 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/exit.plx#2 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/extras.plx#3 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/five_fail.plx#4 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/last_minute_death.plx#4 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/one_fail.plx#3 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/pre_plan_death.plx#2 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/require.plx#3 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/success.plx#3 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/too_few.plx#4 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/too_few_fail.plx#2 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/two_fail.plx#3 edit
Differences ...
//depot/perl/t/lib/Test/Simple/Catch.pm#5 (text)
Index: perl/t/lib/Test/Simple/Catch.pm
--- perl/t/lib/Test/Simple/Catch.pm#4~23523~2004-11-20 14:17:18.0
-0800
+++ perl/t/lib/Test/Simple/Catch.pm 2008-10-15 06:20:02.0 -0700
@@ -1,9 +1,10 @@
# For testing Test::Simple;
+# $Id: /mirror/googlecode/test-more-trunk/t/lib/Test/Simple/Catch.pm 67132
2008-10-01T01:11:04.501643Z schwern $
package Test::Simple::Catch;
use Symbol;
use TieOut;
-my($out_fh, $err_fh) = (gensym, gensym);
+my( $out_fh, $err_fh ) = ( gensym, gensym );
my $out = tie *$out_fh, 'TieOut';
my $err = tie *$err_fh, 'TieOut';
@@ -13,6 +14,6 @@
$t-failure_output($err_fh);
$t-todo_output($err_fh);
-sub caught { return($out, $err) }
+sub caught { return( $out, $err ) }
1;
//depot/perl/t/lib/Test/Simple/sample_tests/death.plx#4 (text)
Index: perl/t/lib/Test/Simple/sample_tests/death.plx
--- perl/t/lib/Test/Simple/sample_tests/death.plx#3~33394~ 2008-02-28
20:39:18.0 -0800
+++ perl/t/lib/Test/Simple/sample_tests/death.plx 2008-10-15
06:20:02.0 -0700
@@ -1,4 +1,5 @@
require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death.plx
57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
push @INC, 't/lib';
require Test::Simple::Catch;
//depot/perl/t/lib/Test/Simple/sample_tests/death_in_eval.plx#3 (text)
Index: perl/t/lib/Test/Simple/sample_tests/death_in_eval.plx
--- perl/t/lib/Test/Simple/sample_tests/death_in_eval.plx#2~11905~
2001-09-05 18:41:03.0 -0700
+++ perl/t/lib/Test/Simple/sample_tests/death_in_eval.plx 2008-10-15
06:20:02.0 -0700
@@ -1,4 +1,5 @@
require Test::Simple;
+# $Id:
/mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death_in_eval.plx
57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
use Carp;
push @INC, 't/lib';
//depot/perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx#2
(text)
Index: perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx
--- perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx#1~33394~
2008-02-28 20:39:18.0 -0800
+++ perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx 2008-10-15
06:20:02.0 -0700
@@ -1,4 +1,5 @@
require Test::Simple;
+# $Id:
/mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death_with_handler.plx
57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
push @INC, 't/lib';
require Test::Simple::Catch;
//depot/perl/t/lib/Test/Simple/sample_tests/exit.plx#2 (text)
Index: perl/t/lib/Test/Simple/sample_tests/exit.plx
--- perl/t/lib/Test/Simple/sample_tests/exit.plx#1~24401~ 2005-05-05
10:12:38.0 -0700
+++ perl/t/lib/Test/Simple/sample_tests/exit.plx2008-10-15
06:20:02.0 -0700
@@ -1,3 +1,4 @@
require Test::Builder;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/exit.plx
57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
exit 1;
//depot/perl/t/lib/Test/Simple/sample_tests/extras.plx#3 (text)
Index: perl/t/lib/Test/Simple/sample_tests/extras.plx
--- perl/t/lib/Test/Simple/sample_tests/extras.plx#2~11905~ 2001-09-05
18:41:03.0 -0700
+++ perl/t/lib/Test/Simple/sample_tests/extras.plx 2008-10-15
06:20:02.0 -0700
@@ -1,4 +1,5 @@
require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/extras.plx
57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
push @INC, 't/lib';
require Test::Simple::Catch;
//depot/perl/t/lib/Test/Simple/sample_tests/five_fail.plx#4 (text)
Index: perl/t/lib/Test/Simple/sample_tests/five_fail.plx
--- perl/t/lib/Test/Simple/sample_tests/five_fail.plx#3~12472~ 2001-10-17
04:00:54.0 -0700
+++
Change 34488: *sigh* More files messed with for Test-Simple-0.82.
Change 34488 by [EMAIL PROTECTED] on 2008/10/15 14:32:01
*sigh* More files messed with for Test-Simple-0.82.
Affected files ...
... //depot/perl/MANIFEST#1734 edit
... //depot/perl/t/lib/Dev/Null.pm#5 edit
... //depot/perl/t/lib/SigDie.pm#1 add
... //depot/perl/t/lib/TieOut.pm#7 edit
Differences ...
//depot/perl/MANIFEST#1734 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1733~34485~ 2008-10-15 06:38:59.0 -0700
+++ perl/MANIFEST 2008-10-15 07:32:01.0 -0700
@@ -3758,6 +3758,7 @@
t/lib/no_load.tTest that some modules don't load others
t/lib/proxy_constant_subs.tTest that Proxy Constant Subs behave correctly
t/lib/Sans_mypragma.pm Test module for t/lib/mypragma.t
+t/lib/SigDie.pmTest module for Test::More
t/lib/strict/refs Tests of use strict 'refs' for strict.t
t/lib/strict/subs Tests of use strict 'subs' for strict.t
t/lib/strict/vars Tests of use strict 'vars' for strict.t
//depot/perl/t/lib/Dev/Null.pm#5 (text)
Index: perl/t/lib/Dev/Null.pm
--- perl/t/lib/Dev/Null.pm#4~34231~ 2008-08-26 07:12:49.0 -0700
+++ perl/t/lib/Dev/Null.pm 2008-10-15 07:32:01.0 -0700
@@ -1,4 +1,5 @@
package Dev::Null;
+# $Id: /mirror/googlecode/test-more/t/lib/Dev/Null.pm 57943
2008-08-18T02:09:22.275428Z brooklyn.kid51 $
sub TIEHANDLE { bless {} }
sub PRINT { 1 }
//depot/perl/t/lib/SigDie.pm#1 (text)
Index: perl/t/lib/SigDie.pm
--- /dev/null 2008-09-17 12:36:34.330355001 -0700
+++ perl/t/lib/SigDie.pm2008-10-15 07:32:01.0 -0700
@@ -0,0 +1,6 @@
+package SigDie;
+
+use vars qw($DIE);
+$SIG{__DIE__} = sub { $DIE = $@ };
+
+1;
//depot/perl/t/lib/TieOut.pm#7 (text)
Index: perl/t/lib/TieOut.pm
--- perl/t/lib/TieOut.pm#6~23566~ 2004-11-29 04:30:31.0 -0800
+++ perl/t/lib/TieOut.pm2008-10-15 07:32:01.0 -0700
@@ -1,13 +1,14 @@
package TieOut;
+# $Id: /mirror/googlecode/test-more-trunk/t/lib/TieOut.pm 67132
2008-10-01T01:11:04.501643Z schwern $
sub TIEHANDLE {
my $scalar = '';
-bless( \$scalar, $_[0]);
+bless( \$scalar, $_[0] );
}
sub PRINT {
my $self = shift;
-$$self .= join('', @_);
+$$self .= join( '', @_ );
}
sub PRINTF {
@@ -16,7 +17,7 @@
$$self .= sprintf $fmt, @_;
}
-sub FILENO {}
+sub FILENO { }
sub read {
my $self = shift;
End of Patch.
Change 34490: One final tweak for the Test-Simple-0.82 upgrade. Ugh.
Change 34490 by [EMAIL PROTECTED] on 2008/10/15 18:23:56
One final tweak for the Test-Simple-0.82 upgrade. Ugh.
Affected files ...
... //depot/perl/MANIFEST#1735 edit
... //depot/perl/lib/Test/Simple/t/lib/SigDie.pm#1 branch
... //depot/perl/t/lib/SigDie.pm#2 delete
Differences ...
//depot/perl/MANIFEST#1735 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1734~34488~ 2008-10-15 07:32:01.0 -0700
+++ perl/MANIFEST 2008-10-15 11:23:56.0 -0700
@@ -2895,6 +2895,7 @@
lib/Test/Simple/t/lib/Dummy.pm Test::More test module
lib/Test/Simple/t/lib/MyOverload.pmTest::More test module
lib/Test/Simple/t/lib/NoExporter.pmTest::Simple test module
+lib/Test/Simple/t/lib/SigDie.pmTest module for Test::More
lib/Test/Simple/t/missing.tTest::Simple test, missing tests
lib/Test/Simple/t/More.t Test::More test, basic stuff
lib/Test/Simple/t/new_ok.t Test::More test
@@ -3758,7 +3759,6 @@
t/lib/no_load.tTest that some modules don't load others
t/lib/proxy_constant_subs.tTest that Proxy Constant Subs behave correctly
t/lib/Sans_mypragma.pm Test module for t/lib/mypragma.t
-t/lib/SigDie.pmTest module for Test::More
t/lib/strict/refs Tests of use strict 'refs' for strict.t
t/lib/strict/subs Tests of use strict 'subs' for strict.t
t/lib/strict/vars Tests of use strict 'vars' for strict.t
//depot/perl/lib/Test/Simple/t/lib/SigDie.pm#1 (text)
Index: perl/lib/Test/Simple/t/lib/SigDie.pm
--- /dev/null 2008-09-17 12:36:34.330355001 -0700
+++ perl/lib/Test/Simple/t/lib/SigDie.pm2008-10-15 11:23:56.0
-0700
@@ -0,0 +1,6 @@
+package SigDie;
+
+use vars qw($DIE);
+$SIG{__DIE__} = sub { $DIE = $@ };
+
+1;
End of Patch.
Change 34491: Silence a warning in Test::Builder that was causing lib/constant.t
Change 34491 by [EMAIL PROTECTED] on 2008/10/15 19:07:38
Silence a warning in Test::Builder that was causing lib/constant.t
to fail.
Affected files ...
... //depot/perl/lib/Test/Builder.pm#35 edit
Differences ...
//depot/perl/lib/Test/Builder.pm#35 (text)
Index: perl/lib/Test/Builder.pm
--- perl/lib/Test/Builder.pm#34~34483~ 2008-10-15 06:11:04.0 -0700
+++ perl/lib/Test/Builder.pm2008-10-15 12:07:38.0 -0700
@@ -5,7 +5,7 @@
use strict;
use warnings;
-our $VERSION = '0.82';
+our $VERSION = '0.82_01';
$VERSION = eval $VERSION;## no critic
(BuiltinFunctions::ProhibitStringyEval)
# Make Test::Builder thread-safe for ithreads.
@@ -487,6 +487,7 @@
$self-_unoverload( '0+', @_ );
+no warnings 'numeric';
for my $val (@_) {
next unless $self-_is_dualvar($$val);
$$val = $$val + 0;
End of Patch.
Change 34408: [PATCH] Show using waitpid in IPC::Open[23] SYNOPSIS
Change 34408 by [EMAIL PROTECTED] on 2008/09/23 13:37:54 Subject: [PATCH] Show using waitpid in IPC::Open[23] SYNOPSIS From: brian d foy [EMAIL PROTECTED] Date: Sun, 21 Sep 2008 15:23:47 -0500 Message-ID: [EMAIL PROTECTED] Affected files ... ... //depot/perl/lib/IPC/Open2.pm#11 edit ... //depot/perl/lib/IPC/Open3.pm#23 edit Differences ... //depot/perl/lib/IPC/Open2.pm#11 (text) Index: perl/lib/IPC/Open2.pm --- perl/lib/IPC/Open2.pm#10~25320~ 2005-08-22 08:41:15.0 -0700 +++ perl/lib/IPC/Open2.pm 2008-09-23 06:37:54.0 -0700 @@ -28,6 +28,9 @@ # or without using the shell $pid = open2($chld_out, $chld_in, 'some', 'cmd', 'and', 'args'); +waitpid( $pid, 0 ); +my $child_exit_status = $? 8; + =head1 DESCRIPTION The open2() function runs the given $cmd and connects $chld_out for //depot/perl/lib/IPC/Open3.pm#23 (text) Index: perl/lib/IPC/Open3.pm --- perl/lib/IPC/Open3.pm#22~34365~ 2008-09-15 10:01:08.0 -0700 +++ perl/lib/IPC/Open3.pm 2008-09-23 06:37:54.0 -0700 @@ -26,6 +26,9 @@ $pid = open3($wtr, $rdr, $err, 'some cmd and args', 'optarg', ...); +waitpid( $pid, 0 ); +my $child_exit_status = $? 8; + =head1 DESCRIPTION Extremely similar to open2(), open3() spawns the given $cmd and End of Patch.
Change 34402: [perl #59208][PATCH 5.8.x] ext/DynaLoader/t/XSLoader.t assumes dynamic loading
Change 34402 by [EMAIL PROTECTED] on 2008/09/23 02:59:24
Subject: [perl #59208][PATCH 5.8.x] ext/DynaLoader/t/XSLoader.t
assumes dynamic loading
From: Andy Dougherty [EMAIL PROTECTED]
Date: Mon, 22 Sep 2008 13:36:57 -0400 (EDT)
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/ext/DynaLoader/t/XSLoader.t#11 edit
Differences ...
//depot/perl/ext/DynaLoader/t/XSLoader.t#11 (text)
Index: perl/ext/DynaLoader/t/XSLoader.t
--- perl/ext/DynaLoader/t/XSLoader.t#10~34388~ 2008-09-21 10:18:15.0
-0700
+++ perl/ext/DynaLoader/t/XSLoader.t2008-09-22 19:59:24.0 -0700
@@ -52,8 +52,14 @@
calling XSLoader::load() with no argument );
eval q{ package Thwack; XSLoader::load('Thwack'); };
-like( $@, q{/^Can't locate loadable object for module Thwack in @INC/},
-calling XSLoader::load() under a package with no XS part );
+if ($Config{usedl}) {
+ like( $@, q{/^Can't locate loadable object for module Thwack in @INC/},
+ calling XSLoader::load() under a package with no XS part );
+}
+else {
+ like( $@, q{/^Can't load module Thwack, dynamic loading not available in this
perl./},
+ calling XSLoader::load() under a package with no XS part );
+}
# Now try to load well known XS modules
my $extensions = $Config{'extensions'};
End of Patch.
Change 34201: Regen of perlapi.pod after differences where pointed out by
Change 34201 by [EMAIL PROTECTED] on 2008/08/11 14:41:47 Regen of perlapi.pod after differences where pointed out by Vincent Pitt. Affected files ... ... //depot/perl/pod/perlapi.pod#332 edit Differences ... //depot/perl/pod/perlapi.pod#332 (text+w) Index: perl/pod/perlapi.pod --- perl/pod/perlapi.pod#331~33901~ 2008-05-21 06:35:43.0 -0700 +++ perl/pod/perlapi.pod2008-08-11 07:41:47.0 -0700 @@ -3943,7 +3943,7 @@ Perl_croak(aTHX_ Usage %s::%s(%s), ouch awk, eee_yow); - voidcroak_xs_usage(CV *const cv, const char *const params) + voidcroak_xs_usage(const CV *const cv, const char *const params) =for hackers Found in file universal.c End of Patch.
Change 34193: Upgrade to ExtUtils-Manifest-1.54
Change 34193 by [EMAIL PROTECTED] on 2008/08/10 16:58:49
Upgrade to ExtUtils-Manifest-1.54
Affected files ...
... //depot/perl/lib/ExtUtils/MANIFEST.SKIP#16 edit
... //depot/perl/lib/ExtUtils/Manifest.pm#50 edit
... //depot/perl/lib/ExtUtils/t/Manifest.t#27 edit
Differences ...
//depot/perl/lib/ExtUtils/MANIFEST.SKIP#16 (text)
Index: perl/lib/ExtUtils/MANIFEST.SKIP
--- perl/lib/ExtUtils/MANIFEST.SKIP#15~32546~ 2007-11-29 01:25:24.0
-0800
+++ perl/lib/ExtUtils/MANIFEST.SKIP 2008-08-10 09:58:49.0 -0700
@@ -4,6 +4,7 @@
\bSCCS\b
,v$
\B\.svn\b
+\B\.git\b
\b_darcs\b
# Avoid Makemaker generated and utility files.
//depot/perl/lib/ExtUtils/Manifest.pm#50 (text)
Index: perl/lib/ExtUtils/Manifest.pm
--- perl/lib/ExtUtils/Manifest.pm#49~30544~ 2007-03-11 16:42:14.0
-0700
+++ perl/lib/ExtUtils/Manifest.pm 2008-08-10 09:58:49.0 -0700
@@ -13,11 +13,12 @@
$Is_MacOS $Is_VMS
$Debug $Verbose $Quiet $MANIFEST $DEFAULT_MSKIP);
-$VERSION = '1.51_01';
+$VERSION = '1.54';
@ISA=('Exporter');
@EXPORT_OK = qw(mkmanifest
manicheck filecheck fullcheck skipcheck
manifind maniread manicopy maniadd
+maniskip
);
$Is_MacOS = $^O eq 'MacOS';
@@ -71,16 +72,14 @@
mkmanifest();
Writes all files in and below the current directory to your FMANIFEST.
-It works similar to
+It works similar to the result of the Unix command
find . MANIFEST
All files that match any regular expression in a file FMANIFEST.SKIP
(if it exists) are ignored.
-Any existing FMANIFEST file will be saved as FMANIFEST.bak. Lines
-from the old FMANIFEST file is preserved, including any comments
-that are found in the existing FMANIFEST file in the new one.
+Any existing FMANIFEST file will be saved as FMANIFEST.bak.
=cut
@@ -96,8 +95,8 @@
my $bakbase = $MANIFEST;
$bakbase =~ s/\./_/g if $Is_VMS; # avoid double dots
rename $MANIFEST, $bakbase.bak unless $manimiss;
-open M, $MANIFEST or die Could not open $MANIFEST: $!;
-my $skip = _maniskip();
+open M, $MANIFEST or die Could not open $MANIFEST: $!;
+my $skip = maniskip();
my $found = manifind();
my($key,$val,$file,%all);
%all = (%$found, %$read);
@@ -118,6 +117,10 @@
my $tabs = (5 - (length($file)+1)/8);
$tabs = 1 if $tabs 1;
$tabs = 0 unless $text;
+if ($file =~ /\s/) {
+$file =~ s/([\\'])/\\$1/g;
+$file = '$file';
+}
print M $file, \t x $tabs, $text, \n;
}
close M;
@@ -231,7 +234,7 @@
sub skipcheck {
my($p) = @_;
my $found = manifind();
-my $matches = _maniskip();
+my $matches = maniskip();
my @skipped = ();
foreach my $file (_sort keys %$found){
@@ -274,7 +277,7 @@
my($p) = @_;
my $read = maniread() || {};
my $found = manifind($p);
-my $skip = _maniskip();
+my $skip = maniskip();
my @missentry = ();
foreach my $file (_sort keys %$found){
@@ -308,7 +311,7 @@
$mfile ||= $MANIFEST;
my $read = {};
local *M;
-unless (open M, $mfile){
+unless (open M, $mfile){
warn Problem opening $mfile: $!;
return $read;
}
@@ -317,7 +320,16 @@
chomp;
next if /^\s*#/;
-my($file, $comment) = /^(\S+)\s*(.*)/;
+my($file, $comment);
+
+# filename may contain spaces if enclosed in ''
+# (in which case, \\ and \' are escapes)
+if (($file, $comment) = /^'(\\[\\']|.+)+'\s*(.*)/) {
+$file =~ s/\\([\\'])/$1/g;
+}
+else {
+($file, $comment) = /^(\S+)\s*(.*)/;
+}
next unless $file;
if ($Is_MacOS) {
@@ -343,18 +355,33 @@
$read;
}
+=item maniskip
+
+my $skipchk = maniskip();
+my $skipchk = maniskip($manifest_skip_file);
+
+if ($skipchk-($file)) { .. }
+
+reads a named CMANIFEST.SKIP file (defaults to CMANIFEST.SKIP in
+the current directory) and returns a CODE reference that tests whether
+a given filename should be skipped.
+
+=cut
+
# returns an anonymous sub that decides if an argument matches
-sub _maniskip {
+sub maniskip {
my @skip ;
-my $mfile = $MANIFEST.SKIP;
+my $mfile = shift || $MANIFEST.SKIP;
_check_mskip_directives($mfile) if -f $mfile;
local(*M, $_);
-open M, $mfile or open M, $DEFAULT_MSKIP or return sub {0};
+open M, $mfile or open M, $DEFAULT_MSKIP or return sub {0};
while (M){
chomp;
s/\r//;
next if /^#/;
next if /^\s*$/;
+s/^'//;
+s/'$//;
push @skip, _macify($_);
}
close M;
@@ -380,7 +407,7 @@
local (*M, $_);
my @lines = ();
my $flag = 0;
-unless (open M, $mfile) {
+unless (open M, $mfile) {
warn Problem opening $mfile: $!;
return;
}
@@ -410,7 +437,7 @@
$bakbase =~ s/\./_/g if
Change 34194: Upgrade to CGI.pm-3.40
Change 34194 by [EMAIL PROTECTED] on 2008/08/10 17:11:24
Upgrade to CGI.pm-3.40
Affected files ...
... //depot/perl/lib/CGI.pm#79 edit
... //depot/perl/lib/CGI/Fast.pm#18 edit
... //depot/perl/lib/CGI/t/request.t#6 edit
Differences ...
//depot/perl/lib/CGI.pm#79 (text)
Index: perl/lib/CGI.pm
--- perl/lib/CGI.pm#78~33773~ 2008-04-30 05:57:38.0 -0700
+++ perl/lib/CGI.pm 2008-08-10 10:11:24.0 -0700
@@ -18,8 +18,8 @@
# The most recent version and complete docs are available at:
# http://stein.cshl.org/WWW/software/CGI/
-$CGI::revision = '$Id: CGI.pm,v 1.251 2008/04/23 13:08:23 lstein Exp $';
-$CGI::VERSION='3.37';
+$CGI::revision = '$Id: CGI.pm,v 1.257 2008/08/06 14:01:06 lstein Exp $';
+$CGI::VERSION='3.40';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
# UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
@@ -227,7 +227,7 @@
tt u i b blockquote pre img a address cite samp dfn
html head
base body Link nextid title meta kbd start_html
end_html
input Select option comment charset escapeHTML/],
- ':html3'=[qw/div table caption th td TR Tr sup Sub strike
applet Param
+ ':html3'=[qw/div table caption th td TR Tr sup Sub strike
applet Param nobr
embed basefont style span layer ilayer font frameset
frame script small big Area Map/],
':html4'=[qw/abbr acronym bdo col colgroup del fieldset iframe
ins label legend noframes noscript object optgroup
Q
@@ -440,15 +440,15 @@
# If values is provided, then we set it.
if (@values or defined $value) {
$self-add_parameter($name);
- $self-[EMAIL PROTECTED];
+ $self-[EMAIL PROTECTED];
}
} else {
$name = $p[0];
}
-return unless defined($name) $self-{$name};
+return unless defined($name) $self-{param}{$name};
-my @result = @{$self-{$name}};
+my @result = @{$self-{param}{$name}};
if ($PARAM_UTF8) {
eval require Encode; 1; unless Encode-can('decode'); # bring in these
functions
@@ -576,14 +576,14 @@
$self-add_parameter($param);
$self-read_from_client(\$value,$content_length,0)
if $content_length 0;
- push (@{$self-{$param}},$value);
+ push (@{$self-{param}{$param}},$value);
$is_xforms = 1;
} elsif ($ENV{'CONTENT_TYPE'} =~
/multipart\/related.+boundary=\?([^\;,]+)\?.+start=\?\?([^\\]+)\?\?/) {
my($boundary,$start) = ($1,$2);
my($param) = 'XForms:Model';
$self-add_parameter($param);
my($value) =
$self-read_multipart_related($start,$boundary,$content_length,0);
- push (@{$self-{$param}},$value);
+ push (@{$self-{param}{$param}},$value);
if ($MOD_PERL) {
$query_string = $self-r-args;
} else {
@@ -675,7 +675,7 @@
$ENV{'CONTENT_TYPE'} !~ m|^multipart/form-data| ) {
my($param) = $meth . 'DATA' ;
$self-add_parameter($param) ;
- push (@{$self-{$param}},$query_string);
+ push (@{$self-{param}{$param}},$query_string);
undef $query_string ;
}
# YL: End Change for XML handler 10/19/2001
@@ -687,7 +687,7 @@
$self-parse_params($query_string);
} else {
$self-add_parameter('keywords');
- $self-{'keywords'} = [$self-parse_keywordlist($query_string)];
+ $self-{param}{'keywords'} =
[$self-parse_keywordlist($query_string)];
}
}
@@ -754,7 +754,7 @@
@QUERY_PARAM = $self-param; # save list of parameters
foreach (@QUERY_PARAM) {
next unless defined $_;
- $QUERY_PARAM{$_}=$self-{$_};
+ $QUERY_PARAM{$_}=$self-{param}{$_};
}
$QUERY_CHARSET = $self-charset;
%QUERY_FIELDNAMES = %{$self-{'.fieldnames'}};
@@ -773,7 +773,7 @@
$param = unescape($param);
$value = unescape($value);
$self-add_parameter($param);
- push (@{$self-{$param}},$value);
+ push (@{$self-{param}{$param}},$value);
}
}
@@ -781,7 +781,7 @@
my($self,$param)[EMAIL PROTECTED];
return unless defined $param;
push (@{$self-{'.parameters'}},$param)
- unless defined($self-{$param});
+ unless defined($self-{param}{$param});
}
sub all_parameters {
@@ -1008,7 +1008,7 @@
my %to_delete;
foreach my $name (@to_delete)
{
-CORE::delete $self-{$name};
+CORE::delete $self-{param}{$name};
CORE::delete $self-{'.fieldnames'}-{$name};
$to_delete{$name}++;
}
@@ -1057,8 +1057,8 @@
sub keywords {
my($self,@values) = self_or_default(@_);
# If values is provided,
Change 34116: [Patch t/op/re_tests] Re: [perl #56690] Some bugs in Perl regexp (core Perl issues)
Change 34116 by [EMAIL PROTECTED] on 2008/07/09 17:22:47
Subject: [Patch t/op/re_tests] Re: [perl #56690] Some bugs in Perl
regexp (core Perl issues)
From: Abigail [EMAIL PROTECTED]
Date: Tue, 8 Jul 2008 18:48:37 +0200
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/t/op/re_tests#131 edit
Differences ...
//depot/perl/t/op/re_tests#131 (text)
Index: perl/t/op/re_tests
--- perl/t/op/re_tests#130~33667~ 2008-04-11 05:17:38.0 -0700
+++ perl/t/op/re_tests 2008-07-09 10:22:47.0 -0700
@@ -1344,4 +1344,7 @@
.*?(?:(\w)|(\w))x abx y $1-$2 b-
0{50} 000 y -
-
+# Bug #56690
+^a?(?=b)b ab B $ ab
+^a*(?=b)b ab B $ ab
End of Patch.
Change 34098: [PATCH] threads::shared 1.24
Change 34098 by [EMAIL PROTECTED] on 2008/07/02 20:32:50
Subject: [PATCH] threads::shared 1.24
From: Jerry D. Hedden [EMAIL PROTECTED]
Date: Wed, 2 Jul 2008 10:01:59 -0400
Message-ID: [EMAIL PROTECTED]
...plus some adjustments to the test headers to prevent failures
in the Perl core.
Affected files ...
... //depot/perl/MANIFEST#1710 edit
... //depot/perl/ext/threads/shared/shared.pm#63 edit
... //depot/perl/ext/threads/shared/shared.xs#74 edit
... //depot/perl/ext/threads/shared/t/utf8.t#1 add
... //depot/perl/ext/threads/shared/t/wait.t#10 edit
... //depot/perl/ext/threads/shared/t/waithires.t#8 edit
Differences ...
//depot/perl/MANIFEST#1710 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1709~34092~ 2008-06-28 14:06:57.0 -0700
+++ perl/MANIFEST 2008-07-02 13:32:50.0 -0700
@@ -1150,6 +1150,7 @@
ext/threads/shared/t/stress.t Stress test
ext/threads/shared/t/sv_refs.t thread shared variables
ext/threads/shared/t/sv_simple.t thread shared variables
+ext/threads/shared/t/utf8.tTest UTF-8 keys in shared hashes
ext/threads/shared/t/waithires.t Test sub-second cond_timedwait
ext/threads/shared/t/wait.tTest cond_wait and cond_timedwait
ext/threads/t/basic.t ithreads
//depot/perl/ext/threads/shared/shared.pm#63 (text)
Index: perl/ext/threads/shared/shared.pm
--- perl/ext/threads/shared/shared.pm#62~34074~ 2008-06-19 07:04:59.0
-0700
+++ perl/ext/threads/shared/shared.pm 2008-07-02 13:32:50.0 -0700
@@ -7,7 +7,7 @@
use Scalar::Util qw(reftype refaddr blessed);
-our $VERSION = '1.23';
+our $VERSION = '1.24';
my $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@@ -186,7 +186,7 @@
=head1 VERSION
-This document describes threads::shared version 1.23
+This document describes threads::shared version 1.24
=head1 SYNOPSIS
@@ -540,7 +540,7 @@
Lhttp://www.cpanforum.com/dist/threads-shared
Annotated POD for Lthreads::shared:
-Lhttp://annocpan.org/~JDHEDDEN/threads-shared-1.23/shared.pm
+Lhttp://annocpan.org/~JDHEDDEN/threads-shared-1.24/shared.pm
Source repository:
Lhttp://code.google.com/p/threads-shared/
//depot/perl/ext/threads/shared/shared.xs#74 (text)
Index: perl/ext/threads/shared/shared.xs
--- perl/ext/threads/shared/shared.xs#73~33836~ 2008-05-16 10:31:30.0
-0700
+++ perl/ext/threads/shared/shared.xs 2008-07-02 13:32:50.0 -0700
@@ -123,6 +123,7 @@
# define NEED_sv_2pv_flags
# define NEED_vnewSVpvf
# define NEED_warner
+# define NEED_newSVpvn_flags
# include ppport.h
# include shared.h
#endif
@@ -875,7 +876,7 @@
STRLEN len = mg-mg_len;
assert ( mg-mg_ptr != 0 );
if (mg-mg_len == HEf_SVKEY) {
- key = SvPV((SV *) mg-mg_ptr, len);
+ key = SvPVutf8((SV *)mg-mg_ptr, len);
}
SHARED_CONTEXT;
svp = hv_fetch((HV*) saggregate, key, len, 0);
@@ -926,7 +927,7 @@
STRLEN len = mg-mg_len;
assert ( mg-mg_ptr != 0 );
if (mg-mg_len == HEf_SVKEY)
- key = SvPV((SV *) mg-mg_ptr, len);
+ key = SvPVutf8((SV *)mg-mg_ptr, len);
SHARED_CONTEXT;
svp = hv_fetch((HV*) saggregate, key, len, 1);
}
@@ -957,7 +958,7 @@
STRLEN len = mg-mg_len;
assert ( mg-mg_ptr != 0 );
if (mg-mg_len == HEf_SVKEY)
- key = SvPV((SV *) mg-mg_ptr, len);
+ key = SvPVutf8((SV *)mg-mg_ptr, len);
SHARED_CONTEXT;
hv_delete((HV*) saggregate, key, len, G_DISCARD);
}
@@ -1275,7 +1276,7 @@
exists = av_exists((AV*) sobj, SvIV(index));
} else {
STRLEN len;
-char *key = SvPV(index,len);
+char *key = SvPVutf8(index, len);
SHARED_EDIT;
exists = hv_exists((HV*) sobj, key, len);
}
@@ -1299,7 +1300,7 @@
if (entry) {
key = hv_iterkey(entry,len);
CALLER_CONTEXT;
-ST(0) = sv_2mortal(newSVpv(key, len));
+ST(0) = sv_2mortal(newSVpvn_utf8(key, len, 1));
} else {
CALLER_CONTEXT;
ST(0) = PL_sv_undef;
@@ -1325,7 +1326,7 @@
if (entry) {
key = hv_iterkey(entry,len);
CALLER_CONTEXT;
-ST(0) = sv_2mortal(newSVpv(key, len));
+ST(0) = sv_2mortal(newSVpvn_utf8(key, len, 1));
} else {
CALLER_CONTEXT;
ST(0) = PL_sv_undef;
//depot/perl/ext/threads/shared/t/utf8.t#1 (text)
Index: perl/ext/threads/shared/t/utf8.t
--- /dev/null 2008-05-07 15:08:24.549929899 -0700
+++ perl/ext/threads/shared/t/utf8.t2008-07-02 13:32:50.0 -0700
@@ -0,0 +1,95 @@
+use strict;
+use warnings;
+
+BEGIN {
+if ($ENV{'PERL_CORE'}){
+chdir 't';
+unshift @INC, '../lib';
+}
+use Config;
+if (! $Config{'useithreads'}) {
+print(1..0 # SKIP Perl not compiled with
Change 34080: Re: [perl #24174] perl-5.8.0-55 exit bug
Change 34080 by [EMAIL PROTECTED] on 2008/06/23 16:55:46
Subject: Re: [perl #24174] perl-5.8.0-55 exit bug
From: Michael G Schwern [EMAIL PROTECTED]
Date: Mon, 13 Oct 2003 05:13:48 -0700
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/pod/perlfunc.pod#602 edit
Differences ...
//depot/perl/pod/perlfunc.pod#602 (text)
Index: perl/pod/perlfunc.pod
--- perl/pod/perlfunc.pod#601~33848~2008-05-17 23:28:49.0 -0700
+++ perl/pod/perlfunc.pod 2008-06-23 09:55:46.0 -0700
@@ -5146,10 +5146,18 @@
=item sleep
Causes the script to sleep for EXPR seconds, or forever if no EXPR.
+Returns the number of seconds actually slept.
+
May be interrupted if the process receives a signal such as CSIGALRM.
-Returns the number of seconds actually slept. You probably cannot
-mix Calarm and Csleep calls, because Csleep is often implemented
-using Calarm.
+
+eval {
+local $SIG{ALARM} = sub { die Alarm!\n };
+sleep;
+};
+die $@ unless $@ eq Alarm!\n;
+
+You probably cannot mix Calarm and Csleep calls, because Csleep
+is often implemented using Calarm.
On some older systems, it may sleep up to a full second less than what
you requested, depending on how it counts seconds. Most modern systems
End of Patch.
Change 34000: Upgrade to Pod-Simple-3.07
Change 34000 by [EMAIL PROTECTED] on 2008/06/05 12:56:53
Upgrade to Pod-Simple-3.07
Affected files ...
... //depot/perl/lib/Pod/Simple.pm#5 edit
... //depot/perl/lib/Pod/Simple/XHTML.pm#2 edit
... //depot/perl/lib/Pod/Simple/t/xhtml01.t#2 edit
Differences ...
//depot/perl/lib/Pod/Simple.pm#5 (text)
Index: perl/lib/Pod/Simple.pm
--- perl/lib/Pod/Simple.pm#4~33997~ 2008-06-04 12:20:20.0 -0700
+++ perl/lib/Pod/Simple.pm 2008-06-05 05:56:53.0 -0700
@@ -18,7 +18,7 @@
);
@ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.06';
+$VERSION = '3.07';
@Known_formatting_codes = qw(I B C L E F S X Z);
%Known_formatting_codes = map(($_=1), @Known_formatting_codes);
//depot/perl/lib/Pod/Simple/XHTML.pm#2 (text)
Index: perl/lib/Pod/Simple/XHTML.pm
--- perl/lib/Pod/Simple/XHTML.pm#1~33997~ 2008-06-04 12:20:20.0
-0700
+++ perl/lib/Pod/Simple/XHTML.pm2008-06-05 05:56:53.0 -0700
@@ -27,13 +27,31 @@
package Pod::Simple::XHTML;
use strict;
-use vars qw( $VERSION @ISA );
+use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES );
$VERSION = '3.04';
use Carp ();
use Pod::Simple::Methody ();
@ISA = ('Pod::Simple::Methody');
-use HTML::Entities 'encode_entities';
+BEGIN {
+ $HAS_HTML_ENTITIES = eval require HTML::Entities; 1;
+}
+
+my %entities = (
+ q{} = 'gt',
+ q{} = 'lt',
+ q{'} = '#39',
+ q{} = 'quot',
+ q{} = 'amp',
+);
+
+sub encode_entities {
+ return HTML::Entities::encode_entities( $_[0] ) if $HAS_HTML_ENTITIES;
+ my $str = $_[0];
+ my $ents = join '', keys %entities;
+ $str =~ s/([$ents])/'' . $entities{$1} . ';'/ge;
+ return $str;
+}
#~~
//depot/perl/lib/Pod/Simple/t/xhtml01.t#2 (text)
Index: perl/lib/Pod/Simple/t/xhtml01.t
--- perl/lib/Pod/Simple/t/xhtml01.t#1~33997~2008-06-04 12:20:20.0
-0700
+++ perl/lib/Pod/Simple/t/xhtml01.t 2008-06-05 05:56:53.0 -0700
@@ -8,7 +8,7 @@
use strict;
use lib '../lib';
-use Test::More tests = 25;
+use Test::More tests = 26;
use_ok('Pod::Simple::XHTML') or exit;
@@ -318,8 +318,13 @@
EOHTML
-initialize($parser, $results);
-$parser-parse_string_document('EOPOD');
+SKIP: for my $use_html_entities (0, 1) {
+ if ($use_html_entities and not $Pod::Simple::XHTML::HAS_HTML_ENTITIES) {
+skip(HTML::Entities not installed, 1);
+ }
+ local $Pod::Simple::XHTML::HAS_HTML_ENTITIES = $use_html_entities;
+ initialize($parser, $results);
+ $parser-parse_string_document('EOPOD');
=pod
# this header is very important don't you forget it
@@ -332,6 +337,7 @@
my \$text = quot;File is: quot; . lt;FILEgt;;/code/pre
EOHTML
+}
##
End of Patch.
Change 34001: A quick new release of Pod-Simple has removed the dependency on
Change 34001 by [EMAIL PROTECTED] on 2008/06/05 13:04:00 A quick new release of Pod-Simple has removed the dependency on HTML-Parser. HTML-Parser and HTML-Tagset will now be leaving us. Affected files ... ... //depot/perl/MANIFEST#1708 edit ... //depot/perl/Porting/Maintainers.pl#110 edit ... //depot/perl/ext/HTML/Parser/Makefile.PL#2 delete ... //depot/perl/ext/HTML/Parser/Parser.pm#2 delete ... //depot/perl/ext/HTML/Parser/Parser.xs#2 delete ... //depot/perl/ext/HTML/Parser/hints/solaris.pl#2 delete ... //depot/perl/ext/HTML/Parser/hparser.c#2 delete ... //depot/perl/ext/HTML/Parser/hparser.h#2 delete ... //depot/perl/ext/HTML/Parser/lib/HTML/Entities.pm#2 delete ... //depot/perl/ext/HTML/Parser/lib/HTML/Filter.pm#2 delete ... //depot/perl/ext/HTML/Parser/lib/HTML/HeadParser.pm#2 delete ... //depot/perl/ext/HTML/Parser/lib/HTML/LinkExtor.pm#2 delete ... //depot/perl/ext/HTML/Parser/lib/HTML/PullParser.pm#2 delete ... //depot/perl/ext/HTML/Parser/lib/HTML/TokeParser.pm#2 delete ... //depot/perl/ext/HTML/Parser/mkhctype#2 delete ... //depot/perl/ext/HTML/Parser/mkpfunc#2 delete ... //depot/perl/ext/HTML/Parser/t/api_version.t#2 delete ... //depot/perl/ext/HTML/Parser/t/argspec-bad.t#2 delete ... //depot/perl/ext/HTML/Parser/t/argspec.t#2 delete ... //depot/perl/ext/HTML/Parser/t/argspec2.t#2 delete ... //depot/perl/ext/HTML/Parser/t/attr-encoded.t#2 delete ... //depot/perl/ext/HTML/Parser/t/callback.t#2 delete ... //depot/perl/ext/HTML/Parser/t/case-sensitive.t#2 delete ... //depot/perl/ext/HTML/Parser/t/cases.t#2 delete ... //depot/perl/ext/HTML/Parser/t/comment.t#2 delete ... //depot/perl/ext/HTML/Parser/t/crashme.t#2 delete ... //depot/perl/ext/HTML/Parser/t/declaration.t#2 delete ... //depot/perl/ext/HTML/Parser/t/default.t#2 delete ... //depot/perl/ext/HTML/Parser/t/document.t#2 delete ... //depot/perl/ext/HTML/Parser/t/dtext.t#2 delete ... //depot/perl/ext/HTML/Parser/t/entities.t#2 delete ... //depot/perl/ext/HTML/Parser/t/entities2.t#2 delete ... //depot/perl/ext/HTML/Parser/t/filter-methods.t#2 delete ... //depot/perl/ext/HTML/Parser/t/filter.t#2 delete ... //depot/perl/ext/HTML/Parser/t/handler-eof.t#2 delete ... //depot/perl/ext/HTML/Parser/t/handler.t#2 delete ... //depot/perl/ext/HTML/Parser/t/headparser-http.t#2 delete ... //depot/perl/ext/HTML/Parser/t/headparser.t#2 delete ... //depot/perl/ext/HTML/Parser/t/ignore.t#2 delete ... //depot/perl/ext/HTML/Parser/t/largetags.t#2 delete ... //depot/perl/ext/HTML/Parser/t/linkextor-base.t#2 delete ... //depot/perl/ext/HTML/Parser/t/linkextor-rel.t#2 delete ... //depot/perl/ext/HTML/Parser/t/magic.t#2 delete ... //depot/perl/ext/HTML/Parser/t/marked-sect.t#2 delete ... //depot/perl/ext/HTML/Parser/t/msie-compat.t#2 delete ... //depot/perl/ext/HTML/Parser/t/offset.t#2 delete ... //depot/perl/ext/HTML/Parser/t/options.t#2 delete ... //depot/perl/ext/HTML/Parser/t/parsefile.t#2 delete ... //depot/perl/ext/HTML/Parser/t/parser.t#2 delete ... //depot/perl/ext/HTML/Parser/t/plaintext.t#2 delete ... //depot/perl/ext/HTML/Parser/t/pod.t#2 delete ... //depot/perl/ext/HTML/Parser/t/process.t#2 delete ... //depot/perl/ext/HTML/Parser/t/pullparser.t#2 delete ... //depot/perl/ext/HTML/Parser/t/script.t#2 delete ... //depot/perl/ext/HTML/Parser/t/skipped-text.t#2 delete ... //depot/perl/ext/HTML/Parser/t/stack-realloc.t#2 delete ... //depot/perl/ext/HTML/Parser/t/textarea.t#2 delete ... //depot/perl/ext/HTML/Parser/t/threads.t#2 delete ... //depot/perl/ext/HTML/Parser/t/tokeparser.t#2 delete ... //depot/perl/ext/HTML/Parser/t/uentities.t#2 delete ... //depot/perl/ext/HTML/Parser/t/unbroken-text.t#2 delete ... //depot/perl/ext/HTML/Parser/t/unicode-bom.t#2 delete ... //depot/perl/ext/HTML/Parser/t/unicode.t#2 delete ... //depot/perl/ext/HTML/Parser/t/xml-mode.t#2 delete ... //depot/perl/ext/HTML/Parser/tokenpos.h#2 delete ... //depot/perl/ext/HTML/Parser/typemap#2 delete ... //depot/perl/ext/HTML/Parser/util.c#2 delete ... //depot/perl/lib/HTML/Tagset.pm#2 delete ... //depot/perl/lib/HTML/Tagset/t/00_about_verbose.t#2 delete ... //depot/perl/lib/HTML/Tagset/t/01_old_junk.t#2 delete Differences ... //depot/perl/MANIFEST#1708 (text) Index: perl/MANIFEST --- perl/MANIFEST#1707~33998~ 2008-06-04 18:58:26.0 -0700 +++ perl/MANIFEST 2008-06-05 06:04:00.0 -0700 @@ -693,71 +693,6 @@ ext/Hash/Util/Makefile.PL Makefile for Hash::Util ext/Hash/Util/t/Util.t See if Hash::Util works ext/Hash/Util/Util.xs XS bits of Hash::Util -ext/HTML/Parser/hints/solaris.pl files for HTML::Parser -ext/HTML/Parser/hparser.c files for HTML::Parser -ext/HTML/Parser/hparser.h files for HTML::Parser -ext/HTML/Parser/lib/HTML/Entities.pm file for HTML::Entities -ext/HTML/Parser/lib/HTML/Filter.pm file for HTML::Filter -ext/HTML/Parser/lib/HTML/HeadParser.pm file for HTML::HeadParser -ext/HTML/Parser/lib/HTML/LinkExtor.pm file for HTML::LinkExtor -ext/HTML/Parser/lib/HTML/PullParser.pm file for
Change 34002: [perl #55302] cc_runtime syntax error
Change 34002 by [EMAIL PROTECTED] on 2008/06/05 13:17:40
Subject: [perl #55302] cc_runtime syntax error
From: Reini Urban via RT [EMAIL PROTECTED]
Date: Wed, 04 Jun 2008 14:07:05 -0700
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/cc_runtime.h#18 edit
Differences ...
//depot/perl/cc_runtime.h#18 (text)
Index: perl/cc_runtime.h
--- perl/cc_runtime.h#17~27136~ 2006-02-09 08:49:32.0 -0800
+++ perl/cc_runtime.h 2008-06-05 06:17:40.0 -0700
@@ -54,7 +54,7 @@
switch (ret) { \
case 0: \
PL_op = ppaddr(aTHX); \
- if (PL_op != nxt) CALLRUNOPS(); \
+ if (PL_op != nxt) CALLRUNOPS(aTHX); \
JMPENV_POP; \
break; \
case 1: JMPENV_POP; JMPENV_JUMP(1); \
End of Patch.
Change 34003: This needs to change so this doesn't need updating everytime
Change 34003 by [EMAIL PROTECTED] on 2008/06/05 14:28:16
This needs to change so this doesn't need updating everytime
we update Pod::Simple.
Affected files ...
... //depot/perl/lib/Pod/t/text.t#8 edit
Differences ...
//depot/perl/lib/Pod/t/text.t#8 (text)
Index: perl/lib/Pod/t/text.t
--- perl/lib/Pod/t/text.t#7~33999~ 2008-06-04 19:00:46.0 -0700
+++ perl/lib/Pod/t/text.t 2008-06-05 07:28:16.0 -0700
@@ -57,7 +57,7 @@
}
if ($output eq $expected) {
print ok $n\n;
-} elsif ($n == 4 $Pod::Simple::VERSION 3.07) {
+} elsif ($n == 4 $Pod::Simple::VERSION 3.08) {
print ok $n # skip Pod::Simple S parsing bug\n;
} else {
print not ok $n\n;
End of Patch.
Change 34004: [PATCH] incorrectly failing test in lib/Pod/t/text.t
Change 34004 by [EMAIL PROTECTED] on 2008/06/06 01:17:31
Subject: [PATCH] incorrectly failing test in lib/Pod/t/text.t
From: Hans Dieter Pearcey [EMAIL PROTECTED]
Date: Thu, 5 Jun 2008 12:38:38 -0400
Message-ID: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/lib/Pod/t/text.t#9 edit
Differences ...
//depot/perl/lib/Pod/t/text.t#9 (text)
Index: perl/lib/Pod/t/text.t
--- perl/lib/Pod/t/text.t#8~34003~ 2008-06-05 07:28:16.0 -0700
+++ perl/lib/Pod/t/text.t 2008-06-05 18:17:31.0 -0700
@@ -57,8 +57,6 @@
}
if ($output eq $expected) {
print ok $n\n;
-} elsif ($n == 4 $Pod::Simple::VERSION 3.08) {
-print ok $n # skip Pod::Simple S parsing bug\n;
} else {
print not ok $n\n;
print Expected\n\n$expected\nOutput\n==\n$output\n;
@@ -99,5 +97,6 @@
###
Test of S
This is somewhitespace.
+
###
==
End of Patch.
Change 34005: Re: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.25.tar.gz
Change 34005 by [EMAIL PROTECTED] on 2008/06/06 01:27:49
Subject: Re: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.25.tar.gz
From: Sébastien Aperghis-Tramoni [EMAIL PROTECTED]
Date: Fri, 6 Jun 2008 01:23:30 +0200
Message-Id: [EMAIL PROTECTED]
Affected files ...
... //depot/perl/ext/Sys/Syslog/Changes#16 edit
... //depot/perl/ext/Sys/Syslog/Makefile.PL#23 edit
... //depot/perl/ext/Sys/Syslog/README#8 edit
... //depot/perl/ext/Sys/Syslog/Syslog.pm#57 edit
... //depot/perl/ext/Sys/Syslog/Syslog.xs#18 edit
... //depot/perl/ext/Sys/Syslog/t/00-load.t#6 edit
... //depot/perl/ext/Sys/Syslog/t/syslog.t#17 edit
Differences ...
//depot/perl/ext/Sys/Syslog/Changes#16 (text)
Index: perl/ext/Sys/Syslog/Changes
--- perl/ext/Sys/Syslog/Changes#15~32286~ 2007-11-12 08:57:08.0
-0800
+++ perl/ext/Sys/Syslog/Changes 2008-06-05 18:27:49.0 -0700
@@ -1,5 +1,30 @@
Revision history for Sys-Syslog
+0.25 -- 2008.05.17 -- Sebastien Aperghis-Tramoni (SAPER)
+[BUGFIX] CPAN-RT#34691: Fixed an incorrect call to sysopen() which
+prevented Sys::Syslog from working on some Solaris systems.
+Thanks to Paul Townsend.
+[BUGFIX] CPAN-RT#34753: Fixed a slowness introduced in v0.19 (which
+was to work around OSX syslog own slowness). Thanks to Alex Efros.
+[BUGFIX] CPAN-RT#35952: Fixed a bug with the nofatal option.
+[BUGFIX] Fixed build on Win32, thanks to Adam Kennedy.
+[FEATURE] setlogsock() now interprets the second argument as the
+hostname for network mechanisms.
+[DIST] Add AUTHOR to WriteMakefile() in order to fix the META.yml
+generated by ExtUtils::MakeMaker.
+[TESTS] Improved t/pod.t with Pod::Checker.
+
+0.24 -- 2007.12.31 -- Sebastien Aperghis-Tramoni (SAPER)
+[BUGFIX] CPANT-RT#32001: Skip the setlogsock('stream') tests when
+/dev/log is unavailable (Brendan O'Dea).
+
+0.23 -- 2007.11.12 -- Sebastien Aperghis-Tramoni (SAPER)
+[BUGFIX] Fixed a too liberal test in the pipe mechanism, thanks
+to Jan Dubois.
+[DIST] fallback/syslog.h was missing from MANIFEST (thanks to CPAN
+Tester Matthew Musgrove).
+[TESTS] Better handling of Perl 5.005, thanks to CPAN Tester Slaven
Rezic.
+
0.22 -- 2007.11.08 -- Sebastien Aperghis-Tramoni (SAPER)
[BUGFIX] CPAN-RT#29875: Added workaround SpamAssassin overzealous
logging features.
@@ -33,6 +58,8 @@
via syslog().
[BUGFIX] Rewrote the constants generation code in order to provide
fallback value for non-standard macros.
+[BUGFIX] Mark Blackman and Edmund von der Burg identified and fixed the
+random failures appearing on OSX, caused by a UDP timeout.
[FEATURE] Added Win32 event log support thanks to Yves Orton.
[FEATURE] Added new macros from modern BSD and IRIX.
[FEATURE] Each non-standard macro now fall backs to a standard macro.
//depot/perl/ext/Sys/Syslog/Makefile.PL#23 (text)
Index: perl/ext/Sys/Syslog/Makefile.PL
--- perl/ext/Sys/Syslog/Makefile.PL#22~32654~ 2007-12-19 07:47:56.0
-0800
+++ perl/ext/Sys/Syslog/Makefile.PL 2008-06-05 18:27:49.0 -0700
@@ -29,11 +29,14 @@
print * Win32::EventLog detected.\n;
my $name = PerlLog;
-push @extra_prereqs, Win32::TieRegistry = 0, Win32::EventLog = 0;
+push @extra_prereqs,
+Win32 = 0, Win32::TieRegistry = 0, Win32::EventLog = 0;
$virtual_path{'win32/Win32.pm' } = '$(INST_LIBDIR)/Syslog/Win32.pm';
$virtual_path{'win32/PerlLog.dll'} = '$(INST_ARCHAUTODIR)/PerlLog.dll';
+push @extra_params, CCFLAGS = -Ifallback;
+
# recreate the DLL from its uuencoded form if it's not here
if (! -f File::Spec-catfile(win32, $name.dll)) {
# read the uuencoded data
@@ -76,19 +79,31 @@
WriteMakefile(
NAME= 'Sys::Syslog',
LICENSE = 'perl',
+AUTHOR = 'Sebastien Aperghis-Tramoni [EMAIL PROTECTED]',
VERSION_FROM= 'Syslog.pm',
ABSTRACT_FROM = 'Syslog.pm',
INSTALLDIRS = 'perl',
XSPROTOARG = '-noprototypes',
PM = \%virtual_path,
PREREQ_PM = {
-'Test::More' = 0,
-'XSLoader' = 0,
+# run prereqs
+'Carp' = 0,
+'Fcntl' = 0,
+'File::Basename'= 0,
+'File::Spec'= 0,
+'POSIX' = 0,
+'Socket'= 0,
+'XSLoader' = 0,
@extra_prereqs,
+
+# build/test prereqs
+'Test::More'= 0,
},
dist= { COMPRESS = 'gzip -9f', SUFFIX = 'gz', },
clean = { FILES = 'Sys-Syslog-*' },
-realclean = { FILES = 'lib const-c.inc const-xs.inc macros.all
PerlLog.h *.bak *.bin *.rc' },
+realclean = { FILES = 'lib const-c.inc const-xs.inc macros.all '
+.'PerlLog.h
Change 33996: Forgot to update version in DirHandle.pm after updating.
Change 33996 by [EMAIL PROTECTED] on 2008/06/04 18:28:18 Forgot to update version in DirHandle.pm after updating. No cookie for me. Affected files ... ... //depot/perl/lib/DirHandle.pm#10 edit Differences ... //depot/perl/lib/DirHandle.pm#10 (text) Index: perl/lib/DirHandle.pm --- perl/lib/DirHandle.pm#9~33989~ 2008-06-02 06:54:24.0 -0700 +++ perl/lib/DirHandle.pm 2008-06-04 11:28:18.0 -0700 @@ -1,6 +1,6 @@ package DirHandle; -our $VERSION = '1.01'; +our $VERSION = '1.02'; =head1 NAME End of Patch.
Change 33997: Upgrade to Pod-Simple-3.06
Change 33997 by [EMAIL PROTECTED] on 2008/06/04 19:20:20
Upgrade to Pod-Simple-3.06
Affected files ...
... //depot/perl/MANIFEST#1706 edit
... //depot/perl/lib/Pod/Simple.pm#4 edit
... //depot/perl/lib/Pod/Simple.pod#2 edit
... //depot/perl/lib/Pod/Simple/BlackBox.pm#4 edit
... //depot/perl/lib/Pod/Simple/HTML.pm#2 edit
... //depot/perl/lib/Pod/Simple/HTMLBatch.pm#2 edit
... //depot/perl/lib/Pod/Simple/XHTML.pm#1 add
... //depot/perl/lib/Pod/Simple/t/begin.t#2 edit
... //depot/perl/lib/Pod/Simple/t/fcodes_l.t#2 edit
... //depot/perl/lib/Pod/Simple/t/fcodes_s.t#2 edit
... //depot/perl/lib/Pod/Simple/t/xhtml01.t#1 add
... //depot/perl/lib/Pod/Simple/t/xhtml05.t#1 add
Differences ...
//depot/perl/MANIFEST#1706 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1705~33987~ 2008-06-02 05:21:28.0 -0700
+++ perl/MANIFEST 2008-06-04 12:20:20.0 -0700
@@ -2566,6 +2566,9 @@
lib/Pod/Simple/t/verbatim.tPod::Simple test file
lib/Pod/Simple/t/verb_fmt.tPod::Simple test file
lib/Pod/Simple/t/x_nixer.t Pod::Simple test file
+lib/Pod/Simple/t/xhtml01.t Pod::Simple test file
+lib/Pod/Simple/t/xhtml05.t Pod::Simple test file
+lib/Pod/Simple/XHTML.pmturn Pod into XHTML
lib/Pod/Simple/XMLOutStream.pm turn Pod into XML
lib/Pod/t/basic.cappodlators test
lib/Pod/t/basic.clrpodlators test
//depot/perl/lib/Pod/Simple.pm#4 (text)
Index: perl/lib/Pod/Simple.pm
--- perl/lib/Pod/Simple.pm#3~30706~ 2007-03-22 18:43:11.0 -0700
+++ perl/lib/Pod/Simple.pm 2008-06-04 12:20:20.0 -0700
@@ -18,7 +18,7 @@
);
@ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.05';
+$VERSION = '3.06';
@Known_formatting_codes = qw(I B C L E F S X Z);
%Known_formatting_codes = map(($_=1), @Known_formatting_codes);
@@ -983,6 +983,7 @@
# Ltext|name/sec or Ltext|name/sec
# Ltext|/sec or Ltext|/sec or Ltext|sec
# Lscheme:...
+ # Ltext|scheme:...
my($self,@stack) = @_;
@@ -1002,11 +1003,12 @@
# By here, $treelet-[$i] is definitely an L node
- DEBUG 1 and print Ogling L node $treelet-[$i]\n;
+ my $ell = $treelet-[$i];
+ DEBUG 1 and print Ogling L node $ell\n;
# bitch if it's empty
- if( @{$treelet-[$i]} == 2
- or (@{$treelet-[$i]} == 3 and $treelet-[$i][2] eq '')
+ if( @{$ell} == 2
+ or (@{$ell} == 3 and $ell-[2] eq '')
) {
$self-whine( $start_line, An empty L );
$treelet-[$i] = 'L'; # just make it a text node
@@ -1014,55 +1016,70 @@
}
# Catch URLs:
- # URLs can, alas, contain E... sequences, so we can't /assume/
- # that this is one text node. But it has to START with one text
- # node...
- if(! ref $treelet-[$i][2] and
-$treelet-[$i][2] =~ m/^\w+:[^:\s]\S*$/s
+
+ # there are a number of possible cases:
+ # 1) text node containing url: http://foo.com
+ # - [ 'http://foo.com' ]
+ # 2) text node containing url and text: foo|http://foo.com
+ # - [ 'foo|http://foo.com' ]
+ # 3) text node containing url start: mailto:xEatfoo.com
+ # - [ 'mailto:x', [ E ... ], 'foo.com' ]
+ # 4) text node containing url start and text: foo|mailto:xEatfoo.com
+ # - [ 'foo|mailto:x', [ E ... ], 'foo.com' ]
+ # 5) other nodes containing text and url start:
OE39Malley|http://foo.com
+ # - [ 'O', [ E ... ], 'Malley', '|http://foo.com' ]
+ # ... etc.
+
+ # anything before the url is part of the text.
+ # anything after it is part of the url.
+ # the url text node itself may contain parts of both.
+
+ if (my ($url_index, $text_part, $url_part) =
+# grep is no good here; we want to bail out immediately so that we can
+# use $1, $2, etc. without having to do the match twice.
+sub {
+ for (2..$#$ell) {
+next if ref $ell-[$_];
+next unless $ell-[$_] =~ m/^(?:([^|]*)\|)?(\w+:[^:\s]\S*)$/s;
+return ($_, $1, $2);
+ }
+ return;
+}-()
) {
-$treelet-[$i][1]{'type'} = 'url';
-$treelet-[$i][1]{'content-implicit'} = 'yes';
+$ell-[1]{'type'} = 'url';
-# TODO: deal with rel: URLs here?
+my @text = @{$ell}[2..$url_index-1];
+push @text, $text_part if defined $text_part;
-if( 3 == @{ $treelet-[$i] } ) {
- # But if it IS just one text node (most common case)
- DEBUG 1 and printf qq{Catching %s as as ho-hum LURL link.\n},
-$treelet-[$i][2]
- ;
- $treelet-[$i][1]{'to'} = Pod::Simple::LinkSection-new(
-$treelet-[$i][2]
- ); # its own treelet
-} else {
- # It's a URL but complex (like Lfoo:bazE123bar). Feh.
- #$treelet-[$i][1]{'to'} = [ @{$treelet-[$i]} ];
- #splice @{ $treelet-[$i][1]{'to'} }, 0,2;
-
Change 33999: It appears that the S bug in Pod::Simple hasn't been fixed yet.
Change 33999 by [EMAIL PROTECTED] on 2008/06/05 02:00:46
It appears that the S bug in Pod::Simple hasn't been fixed yet.
Bump the version needed for the skip.
Affected files ...
... //depot/perl/lib/Pod/t/text.t#7 edit
Differences ...
//depot/perl/lib/Pod/t/text.t#7 (text)
Index: perl/lib/Pod/t/text.t
--- perl/lib/Pod/t/text.t#6~33987~ 2008-06-02 05:21:28.0 -0700
+++ perl/lib/Pod/t/text.t 2008-06-04 19:00:46.0 -0700
@@ -57,7 +57,7 @@
}
if ($output eq $expected) {
print ok $n\n;
-} elsif ($n == 4 $Pod::Simple::VERSION 3.06) {
+} elsif ($n == 4 $Pod::Simple::VERSION 3.07) {
print ok $n # skip Pod::Simple S parsing bug\n;
} else {
print not ok $n\n;
End of Patch.
Change 33987: Upgrade to podlators-2.1.0
Change 33987 by [EMAIL PROTECTED] on 2008/06/02 12:21:28
Upgrade to podlators-2.1.0
Affected files ...
... //depot/perl/MANIFEST#1705 edit
... //depot/perl/lib/Pod/Man.pm#43 edit
... //depot/perl/lib/Pod/ParseLink.pm#6 edit
... //depot/perl/lib/Pod/Text.pm#40 edit
... //depot/perl/lib/Pod/Text/Color.pm#11 edit
... //depot/perl/lib/Pod/Text/Overstrike.pm#12 edit
... //depot/perl/lib/Pod/Text/Termcap.pm#18 edit
... //depot/perl/lib/Pod/t/basic.t#17 edit
... //depot/perl/lib/Pod/t/color.t#4 edit
... //depot/perl/lib/Pod/t/filehandle.t#3 edit
... //depot/perl/lib/Pod/t/man-options.t#1 add
... //depot/perl/lib/Pod/t/man.t#13 edit
... //depot/perl/lib/Pod/t/parselink.t#2 edit
... //depot/perl/lib/Pod/t/pod-parser.t#2 edit
... //depot/perl/lib/Pod/t/termcap.t#4 edit
... //depot/perl/lib/Pod/t/text-options.t#5 edit
... //depot/perl/lib/Pod/t/text.t#6 edit
... //depot/perl/pod/pod2man.PL#42 edit
Differences ...
//depot/perl/MANIFEST#1705 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1704~33899~ 2008-05-21 06:16:58.0 -0700
+++ perl/MANIFEST 2008-06-02 05:21:28.0 -0700
@@ -2591,6 +2591,7 @@
lib/Pod/t/htmlview.t pod2html render test
lib/Pod/t/InputObjects.t See if Pod::InputObjects works
lib/Pod/t/man.tpodlators test
+lib/Pod/t/man-options.tpodlators test
lib/Pod/t/parselink.t podlators test
lib/Pod/t/pod2html-lib.pl pod2html testing library
lib/Pod/t/pod2latex.t See if Pod::LaTeX works
//depot/perl/lib/Pod/Man.pm#43 (text)
Index: perl/lib/Pod/Man.pm
--- perl/lib/Pod/Man.pm#42~32551~ 2007-11-29 02:21:22.0 -0800
+++ perl/lib/Pod/Man.pm 2008-06-02 05:21:28.0 -0700
@@ -1,7 +1,6 @@
# Pod::Man -- Convert POD data to formatted *roff input.
-# $Id: Man.pm,v 2.16 2007-11-29 01:35:53 eagle Exp $
#
-# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
+# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
# Russ Allbery [EMAIL PROTECTED]
# Substantial contributions by Sean Burke [EMAIL PROTECTED]
#
@@ -40,7 +39,7 @@
# Don't use the CVS revision as the version, since this module is also in Perl
# core and too many things could munge CVS magic revision strings. This
# number should ideally be the same as the CVS revision in podlators, however.
-$VERSION = '2.16';
+$VERSION = '2.17';
# Set the debugging level. If someone has inserted a debug function into this
# class already, use that. Otherwise, use any Pod::Simple debug function
@@ -348,23 +347,22 @@
my $convert = $$options{convert};
my $literal = $$options{literal};
-# Normally we do character translation, but we won't even do that in
-# Data blocks.
-if ($convert) {
-if (ASCII) {
-$text =~ s/(\\|[^\x00-\x7F])/$ESCAPES{ord ($1)} || X/eg;
-} else {
-$text =~ s/(\\)/$ESCAPES{ord ($1)} || X/eg;
-}
-}
-
# Cleanup just tidies up a few things, telling *roff that the hyphens are
-# hard and putting a bit of space between consecutive underscores.
+# hard, putting a bit of space between consecutive underscores, and
+# escaping backslashes. Be careful not to mangle our character
+# translations by doing this before processing character translation.
if ($cleanup) {
+$text =~ s/\\/\\e/g;
$text =~ s/-/\\-/g;
$text =~ s/_(?=_)/_\\|/g;
}
+# Normally we do character translation, but we won't even do that in
+# Data blocks or if UTF-8 output is desired.
+if ($convert !$$self{utf8} ASCII) {
+$text =~ s/([^\x00-\x7F])/$ESCAPES{ord ($1)} || X/eg;
+}
+
# Ensure that *roff doesn't convert literal quotes to UTF-8 single quotes,
# but don't mess up our accept escapes.
if ($literal) {
@@ -641,10 +639,10 @@
# to Roman rather than the actual previous font when used in headings.
# troff output may still be broken, but at least we can fix nroff by
# just switching the font changes to the non-fixed versions.
-$nroff =~ s/\Q$$self{FONTS}{100}\E(.*)\\f[PR]/$1/g;
-$nroff =~ s/\Q$$self{FONTS}{101}\E(.*)\\f([PR])/\\fI$1\\f$2/g;
-$nroff =~ s/\Q$$self{FONTS}{110}\E(.*)\\f([PR])/\\fB$1\\f$2/g;
-$nroff =~ s/\Q$$self{FONTS}{111}\E(.*)\\f([PR])/\\f\(BI$1\\f$2/g;
+$nroff =~ s/\Q$$self{FONTS}{100}\E(.*?)\\f[PR]/$1/g;
+$nroff =~ s/\Q$$self{FONTS}{101}\E(.*?)\\f([PR])/\\fI$1\\f$2/g;
+$nroff =~ s/\Q$$self{FONTS}{110}\E(.*?)\\f([PR])/\\fB$1\\f$2/g;
+$nroff =~ s/\Q$$self{FONTS}{111}\E(.*?)\\f([PR])/\\f\(BI$1\\f$2/g;
# Now finally output the command. Bother with .ie only if the nroff
# and troff output aren't the same.
@@ -1294,9 +1292,6 @@
o\\*/ , u\\*`, u\\*', u\\*^, u\\*:, y\\*', \\*(th, y\\*:,
) if ASCII;
-# Make sure that at least this works even outside of ASCII.
-$ESCAPES{ord(\\)} = \\e;
-
Change 33989: AW: IO::Dir destructor
Change 33989 by [EMAIL PROTECTED] on 2008/06/02 13:54:24 Subject: AW: IO::Dir destructor From: Dintelmann, Peter [EMAIL PROTECTED] Date: Mon, 2 Jun 2008 14:48:35 +0200 Message-ID: [EMAIL PROTECTED] Affected files ... ... //depot/perl/lib/DirHandle.pm#9 edit Differences ... //depot/perl/lib/DirHandle.pm#9 (text) Index: perl/lib/DirHandle.pm --- perl/lib/DirHandle.pm#8~26638~ 2006-01-04 04:19:49.0 -0800 +++ perl/lib/DirHandle.pm 2008-06-02 06:54:24.0 -0700 @@ -60,6 +60,7 @@ my ($dh) = @_; # Don't warn about already being closed as it may have been closed # correctly, or maybe never opened at all. +local($., $@, $!, $^E, $?); no warnings 'io'; closedir($dh); } End of Patch.
Change 33979: Probably startirng with the changes in change #33897,
Change 33979 by [EMAIL PROTECTED] on 2008/06/01 17:32:27
Probably startirng with the changes in change #33897,
t/run/exit.t has been failing on Win32. Update the skipping
mechanism to do more that check for the definition of
POSIX::WIFEXITED.
Affected files ...
... //depot/perl/t/run/exit.t#16 edit
Differences ...
//depot/perl/t/run/exit.t#16 (text)
Index: perl/t/run/exit.t
--- perl/t/run/exit.t#15~25772~ 2005-10-16 12:10:56.0 -0700
+++ perl/t/run/exit.t 2008-06-01 10:32:27.0 -0700
@@ -37,7 +37,8 @@
if ($^O ne 'VMS') {
my $posix_ok = eval { require POSIX; };
my $wait_macros_ok = defined POSIX::WIFEXITED;
-
+ eval { POSIX::WIFEXITED() };
+ $wait_macros_ok = 0 if $@;
$exit = run('exit 42');
is( $exit 8, 42, 'Non-zero exit' );
is( $exit, $?, 'Non-zero exit $?' );
End of Patch.
Change 33986: Skip some File::Copy tests on Win32 since file permissions do not
Change 33986 by [EMAIL PROTECTED] on 2008/06/02 04:02:42
Skip some File::Copy tests on Win32 since file permissions do not
seem to be set correctly.
Affected files ...
... //depot/perl/lib/File/Copy.t#14 edit
Differences ...
//depot/perl/lib/File/Copy.t#14 (xtext)
Index: perl/lib/File/Copy.t
--- perl/lib/File/Copy.t#13~33916~ 2008-05-23 08:50:14.0 -0700
+++ perl/lib/File/Copy.t2008-06-01 21:02:42.0 -0700
@@ -229,6 +229,7 @@
SKIP: {
skip -- Copy preserves RMS defaults, not source file permissions., 21 if
$^O eq 'VMS';
+skip Copy doesn't set file permissions correctly on Win32., 21 if $^O eq
MSWin32;
# Just a sub to get better failure messages.
sub __ ($) {
End of Patch.
Change 33948: Upgrade to Locale-Maketext-1.13
Change 33948 by [EMAIL PROTECTED] on 2008/05/29 13:45:43
Upgrade to Locale-Maketext-1.13
Affected files ...
... //depot/perl/Porting/Maintainers.pl#108 edit
... //depot/perl/lib/Locale/Maketext.pm#14 edit
... //depot/perl/lib/Locale/Maketext/Guts.pm#3 edit
... //depot/perl/lib/Locale/Maketext/GutsLoader.pm#3 edit
Differences ...
//depot/perl/Porting/Maintainers.pl#108 (text)
Index: perl/Porting/Maintainers.pl
--- perl/Porting/Maintainers.pl#107~33907~ 2008-05-22 01:31:30.0
-0700
+++ perl/Porting/Maintainers.pl 2008-05-29 06:45:43.0 -0700
@@ -491,7 +491,7 @@
'Locale::Maketext' =
{
- 'MAINTAINER'= 'petdance',
+ 'MAINTAINER'= 'ferreira',
'FILES' = q[lib/Locale/Maketext.pm
lib/Locale/Maketext.pod lib/Locale/Maketext/ChangeLog
lib/Locale/Maketext/{Guts,GutsLoader}.pm lib/Locale/Maketext/README
lib/Locale/Maketext/TPJ13.pod lib/Locale/Maketext/t],
'CPAN' = 1,
},
//depot/perl/lib/Locale/Maketext.pm#14 (text)
Index: perl/lib/Locale/Maketext.pm
--- perl/lib/Locale/Maketext.pm#13~32415~ 2007-11-20 03:43:29.0
-0800
+++ perl/lib/Locale/Maketext.pm 2008-05-29 06:45:43.0 -0700
@@ -10,7 +10,7 @@
BEGIN { unless(defined DEBUG) { *DEBUG = sub () {0} } }
# define the constant 'DEBUG' at compile-time
-$VERSION = '1.12';
+$VERSION = '1.13';
@ISA = ();
$MATCH_SUPERS = 1;
@@ -189,9 +189,9 @@
foreach my $h_r (
@{ $isa_scan{ref($handle) || $handle} || $handle-_lex_refs }
) {
-DEBUG and print * Looking up \$phrase\ in $h_r\n;
+DEBUG and warn * Looking up \$phrase\ in $h_r\n;
if(exists $h_r-{$phrase}) {
-DEBUG and print Found \$phrase\ in $h_r\n;
+DEBUG and warn Found \$phrase\ in $h_r\n;
unless(ref($value = $h_r-{$phrase})) {
# Nonref means it's not yet compiled. Compile and replace.
$value = $h_r-{$phrase} = $handle-_compile($value);
@@ -200,7 +200,7 @@
}
elsif($phrase !~ m/^_/s and $h_r-{'_AUTO'}) {
# it's an auto lex, and this is an autoable key!
-DEBUG and print Automaking \$phrase\ into $h_r\n;
+DEBUG and warn Automaking \$phrase\ into $h_r\n;
$value = $h_r-{$phrase} = $handle-_compile($phrase);
last;
@@ -210,9 +210,9 @@
}
unless(defined($value)) {
-DEBUG and print ! Lookup of \$phrase\ in/under , ref($handle) ||
$handle, fails.\n;
+DEBUG and warn ! Lookup of \$phrase\ in/under , ref($handle) ||
$handle, fails.\n;
if(ref($handle) and $handle-{'fail'}) {
-DEBUG and print WARNING0: maketext fails looking for $phrase\n;
+DEBUG and warn WARNING0: maketext fails looking for $phrase\n;
my $fail;
if(ref($fail = $handle-{'fail'}) eq 'CODE') { # it's a sub
reference
return {$fail}($handle, $phrase, @_);
@@ -264,7 +264,7 @@
# Complain if they use __PACKAGE__ as a project base class?
if( @languages ) {
-DEBUG and print 'Lgs@', __LINE__, ': ', map($_, @languages), \n;
+DEBUG and warn 'Lgs@', __LINE__, ': ', map($_, @languages), \n;
if($USING_LANGUAGE_TAGS) { # An explicit language-list was given!
@languages =
map {; $_, I18N::LangTags::alternate_language_tags($_) }
@@ -274,7 +274,7 @@
# If it's a locale ID, try converting to a lg tag (untainted),
# otherwise nix it.
@languages;
-DEBUG and print 'Lgs@', __LINE__, ': ', map($_, @languages),
\n;
+DEBUG and warn 'Lgs@', __LINE__, ': ', map($_, @languages),
\n;
}
}
else {
@@ -302,19 +302,19 @@
# We have all these DEBUG statements because otherwise it's hard as hell
# to diagnose ifwhen something goes wrong.
-DEBUG and print 'Lgs1: ', map($_, @languages), \n;
+DEBUG and warn 'Lgs1: ', map($_, @languages), \n;
if($USING_LANGUAGE_TAGS) {
-DEBUG and print 'Lgs@', __LINE__, ': ', map($_, @languages), \n;
+DEBUG and warn 'Lgs@', __LINE__, ': ', map($_, @languages), \n;
@languages = $base_class-_add_supers( @languages );
push @languages, I18N::LangTags::panic_languages(@languages);
-DEBUG and print After adding panic languages:\n,
+DEBUG and warn After adding panic languages:\n,
' Lgs@', __LINE__, ': ', map($_, @languages), \n;
push @languages, $base_class-fallback_languages;
# You are free to override fallback_languages to return empty-list!
-DEBUG and print 'Lgs@', __LINE__, ': ', map($_, @languages), \n;
+DEBUG and warn 'Lgs@', __LINE__, ': ', map($_, @languages), \n;
@languages = # final bit of processing to turn them into classname
things
map {
@@ -324,21 +324,21 @@
Change 33899: Upgrade to Object-Accessor-0.34
Change 33899 by [EMAIL PROTECTED] on 2008/05/21 13:16:58
Upgrade to Object-Accessor-0.34
Affected files ...
... //depot/perl/MANIFEST#1704 edit
... //depot/perl/lib/Object/Accessor.pm#2 edit
... //depot/perl/lib/Object/Accessor/t/06_Object-Accessor-alias.t#1 add
Differences ...
//depot/perl/MANIFEST#1704 (text)
Index: perl/MANIFEST
--- perl/MANIFEST#1703~33862~ 2008-05-19 05:26:51.0 -0700
+++ perl/MANIFEST 2008-05-21 06:16:58.0 -0700
@@ -2331,6 +2331,7 @@
lib/Object/Accessor/t/03_Object-Accessor-local.t Object::Accessor tests
lib/Object/Accessor/t/04_Object-Accessor-lvalue.t Object::Accessor tests
lib/Object/Accessor/t/05_Object-Accessor-callback.tObject::Accessor tests
+lib/Object/Accessor/t/06_Object-Accessor-alias.t Object::Accessor tests
lib/open2.pl Open a two-ended pipe (uses IPC::Open2)
lib/open3.pl Open a three-ended pipe (uses IPC::Open3)
lib/open.pmPragma to specify default I/O layers
//depot/perl/lib/Object/Accessor.pm#2 (text)
Index: perl/lib/Object/Accessor.pm
--- perl/lib/Object/Accessor.pm#1~29113~2006-10-26 05:16:49.0
-0700
+++ perl/lib/Object/Accessor.pm 2008-05-21 06:16:58.0 -0700
@@ -10,12 +10,13 @@
### disable string overloading for callbacks
require overload;
-$VERSION= '0.32';
+$VERSION= '0.34';
$FATAL = 0;
$DEBUG = 0;
use constant VALUE = 0;# array index in the hash value
use constant ALLOW = 1;# array index in the hash value
+use constant ALIAS = 2;# array index in the hash value
=head1 NAME
@@ -32,6 +33,9 @@
$bool = $obj-mk_accessors('foo'); # create accessors
$bool = $obj-mk_accessors(# create accessors with input
{foo = ALLOW_HANDLER} ); # validation
+
+$bool = $obj-mk_aliases( # create an alias to an existing
+alias_name = 'method'); # method name
$clone = $obj-mk_clone;# create a clone of original
# object without data
@@ -240,6 +244,42 @@
: sub { 1 };
}
+=head2 $bool = $self-mk_aliases( alias = method, [alias2 = method2, ...] );
+
+Creates an alias for a given method name. For all intents and purposes,
+these two accessors are now identical for this object. This is akin to
+doing the following on the symbol table level:
+
+ *alias = *method
+
+This allows you to do the following:
+
+ $self-mk_accessors('foo');
+ $self-mk_aliases( bar = 'foo' );
+
+ $self-bar( 42 );
+ print $self-foo; # will print 42
+
+=cut
+
+sub mk_aliases {
+my $self= shift;
+my %aliases = @_;
+
+while( my($alias, $method) = each %aliases ) {
+
+### already created apparently
+if( exists $self-{$alias} ) {
+__PACKAGE__-___debug( Accessor '$alias' already exists);
+next;
+}
+
+$self-___alias( $alias = $method );
+}
+
+return 1;
+}
+
=head2 $clone = $self-mk_clone;
Makes a clone of the current object, which will have the exact same
@@ -257,11 +297,16 @@
### split out accessors with and without allow handlers, so we
### don't install dummy allow handers (which makes O::A::lvalue
-### warn for exampel)
+### warn for example)
my %hash; my @list;
for my $acc ( $self-ls_accessors ) {
my $allow = $self-{$acc}-[ALLOW];
$allow ? $hash{$acc} = $allow : push @list, $acc;
+
+### is this an alias?
+if( my $org = $self-{ $acc }-[ ALIAS ] ) {
+$clone-___alias( $acc = $org );
+}
}
### copy the accessors from $self to $clone
@@ -436,6 +481,11 @@
'$method' from somewhere else?, 1 );
}
+### is this is an alias, redispatch to the original method
+if( my $original = $self-{ $method }-[ALIAS] ) {
+return $self-___autoload( $original, @_ );
+}
+
### assign?
my $val = $assign ? shift(@_) : $self-___get( $method );
@@ -537,6 +587,25 @@
return 1;
}
+=head2 $bool = $self-___alias( ALIAS = METHOD );
+
+Method to directly alias one accessor to another for
+this object. It circumvents all sanity checks, etc.
+
+Use only if you CKnow What You Are Doing!
+
+=cut
+
+sub ___alias {
+my $self= shift;
+my $alias = shift or return;
+my $method = shift or return;
+
+$self-{ $alias }-[ALIAS] = $method;
+
+return 1;
+}
+
sub ___debug {
return unless $DEBUG;
@@ -697,6 +766,8 @@
}
}
+=back
+
=head1 GLOBAL VARIABLES
=head2 $Object::Accessor::FATAL
@@ -730,20 +801,18 @@
http://rt.cpan.org/Ticket/Display.html?id=1827
+=head1 BUG REPORTS
+
+Please report bugs or other issues to Elt[EMAIL PROTECTED]gt.
+
=head1 AUTHOR
-This module by
-Jos Boumans Elt[EMAIL PROTECTED]gt.
+This module by Jos Boumans Elt[EMAIL PROTECTED]gt.
