In perl.git, the branch smoke-me/jkeenan/const-c has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/a7603e48e5daa42701e21ceb9635256687dc8564?hp=a56a931faeb43f7bf319889100e1a8b52cacf66e>
discards a56a931faeb43f7bf319889100e1a8b52cacf66e (commit)
- Log -----------------------------------------------------------------
commit a7603e48e5daa42701e21ceb9635256687dc8564
Author: James E Keenan <jkee...@cpan.org>
Date: Mon Sep 10 20:30:11 2018 -0400
Avoid compiler warning showing up on darwin.
-----------------------------------------------------------------------
Summary of changes:
INSTALL | 4 ++--
Porting/Maintainers.pl | 6 +++---
TestInit.pm | 2 +-
cpan/Archive-Tar/lib/Archive/Tar.pm | 2 +-
cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 +-
cpan/Archive-Tar/lib/Archive/Tar/File.pm | 12 +++++++++--
dist/Data-Dumper/Changes | 30 ++++++++++++++++++++++++++++
dist/Data-Dumper/Dumper.pm | 4 ++--
numeric.c | 4 ++--
perlio.c | 12 +++++++++++
10 files changed, 64 insertions(+), 14 deletions(-)
diff --git a/INSTALL b/INSTALL
index 77f8f2b8d4..a2f6a9d66a 100644
--- a/INSTALL
+++ b/INSTALL
@@ -2032,7 +2032,7 @@ will run all tests.
If individual tests fail, you can often run them by hand (from the main
perl directory), e.g.,
- ./perl -MTestInit t/op/groups.t
+ ./perl -I. -MTestInit t/op/groups.t
You should also read the individual tests to see if there are any helpful
comments that apply to your system. You may also need to setup your
@@ -2099,7 +2099,7 @@ test 85 will fail if run under either t/TEST or t/harness.
Try stopping other jobs on the system and then running the test by itself:
- ./perl -MTestInit t/op/pat.t
+ ./perl -I. -MTestInit t/op/pat.t
to see if you have any better luck. If your perl still fails this
test, it does not necessarily mean you have a broken perl. This test
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 8172091e7e..5c076d55b9 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -120,7 +120,7 @@ use File::Glob qw(:case);
%Modules = (
'Archive::Tar' => {
- 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.30.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.32.tar.gz',
'FILES' => q[cpan/Archive-Tar],
'BUGS' => 'bug-archive-...@rt.cpan.org',
'EXCLUDED' => [
@@ -204,7 +204,7 @@ use File::Glob qw(:case);
},
'Carp' => {
- 'DISTRIBUTION' => 'RJBS/Carp-1.38.tar.gz',
+ 'DISTRIBUTION' => 'XSAWYERX/Carp-1.50.tar.gz',
'FILES' => q[dist/Carp],
},
@@ -858,7 +858,7 @@ use File::Glob qw(:case);
},
'PathTools' => {
- 'DISTRIBUTION' => 'XSAWYERX/PathTools-3.74.tar.gz',
+ 'DISTRIBUTION' => 'XSAWYERX/PathTools-3.75.tar.gz',
'FILES' => q[dist/PathTools],
'EXCLUDED' => [
qr{^t/lib/Test/},
diff --git a/TestInit.pm b/TestInit.pm
index bded831e08..bab5aea512 100644
--- a/TestInit.pm
+++ b/TestInit.pm
@@ -10,7 +10,7 @@
# modules from an installed Perl.
#
# t/TEST and t/harness will invoke each test script with
-# perl -MTestInit[=arg,arg,..] some/test.t
+# perl -I. -MTestInit[=arg,arg,..] some/test.t
# You may "use TestInit" in the test # programs but it is not required.
#
# TestInit will completely empty the current @INC and replace it with
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm
b/cpan/Archive-Tar/lib/Archive/Tar.pm
index e08b5e5903..093579a6c2 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar.pm
@@ -31,7 +31,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK
$CHOWN $CHMOD
$DEBUG = 0;
$WARN = 1;
$FOLLOW_SYMLINK = 0;
-$VERSION = "2.30";
+$VERSION = "2.32";
$CHOWN = 1;
$CHMOD = 1;
$SAME_PERMISSIONS = $> == 0 ? 1 : 0;
diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
index 66fad51a07..a48968d9e0 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
@@ -3,7 +3,7 @@ package Archive::Tar::Constant;
BEGIN {
require Exporter;
- $VERSION = '2.30';
+ $VERSION = '2.32';
@ISA = qw[Exporter];
require Time::Local if $^O eq "MacOS";
diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm
b/cpan/Archive-Tar/lib/Archive/Tar/File.pm
index b6fbecf6c9..3efa3159d9 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm
@@ -13,7 +13,7 @@ use Archive::Tar::Constant;
use vars qw[@ISA $VERSION];
#@ISA = qw[Archive::Tar];
-$VERSION = '2.30';
+$VERSION = '2.32';
### set value to 1 to oct() it during the unpack ###
@@ -402,7 +402,15 @@ sub _prefix_and_file {
$file = pop @dirs if $self->is_dir and not length $file;
### splitting ../ gives you the relative path in native syntax
- map { $_ = '..' if $_ eq '-' } @dirs if ON_VMS;
+ ### Remove the root (000000) directory
+ ### The volume from splitpath will also be in native syntax
+ if (ON_VMS) {
+ map { $_ = '..' if $_ eq '-'; $_ = '' if $_ eq '000000' } @dirs;
+ if (length($vol)) {
+ $vol = VMS::Filespec::unixify($vol);
+ unshift @dirs, $vol;
+ }
+ }
my $prefix = File::Spec::Unix->catdir(@dirs);
return( $prefix, $file );
diff --git a/dist/Data-Dumper/Changes b/dist/Data-Dumper/Changes
index 95e3a8ab16..25607bec1b 100644
--- a/dist/Data-Dumper/Changes
+++ b/dist/Data-Dumper/Changes
@@ -6,6 +6,36 @@ Changes - public release history for Data::Dumper
=over 8
+=item 2.172
+
+Prepare recent changes for CPAN release
+
+=item 2.171 (Apr 21 2018)
+
+Restore deparsing support in the XS dumper, on Perl 5.18 and earlier
+
+Test fixes on older Perl versions (notably, skip tests for Unicode glob
+names on Perl 5.14 and earlier, which had incomplete support for Unicode
+in globs)
+
+=item 2.170 (Jan 10 2018)
+
+Fix bug when dumping globs with quoting (which now happens for
+all Unicode glob names)
+
+Internal change: use strlcpy(), for safety
+
+=item 2.169 (Dec 12 2017)
+
+Behavior change: $dumper->Useqq(undef) is now treated as setting the
+"useqq" option, not getting it (and similarly for other options)
+[perl #113090]
+
+=item 2.168 (Dec 1, 2017)
+
+perl #119831: Quote glob names better; notably, Unicode globs are
+now handled correctly
+
=item 2.167_02 (Aug 4 2017)
Attempt to work around XS deparse issues on old perls.
diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm
index 8aa12dc835..22a115008f 100644
--- a/dist/Data-Dumper/Dumper.pm
+++ b/dist/Data-Dumper/Dumper.pm
@@ -10,7 +10,7 @@
package Data::Dumper;
BEGIN {
- $VERSION = '2.171'; # Don't forget to set version and release
+ $VERSION = '2.172'; # Don't forget to set version and release
} # date in POD below!
#$| = 1;
@@ -1467,7 +1467,7 @@ modify it under the same terms as Perl itself.
=head1 VERSION
-Version 2.171
+Version 2.172
=head1 SEE ALSO
diff --git a/numeric.c b/numeric.c
index 00f41fce7f..e5e08cb241 100644
--- a/numeric.c
+++ b/numeric.c
@@ -1245,9 +1245,9 @@ S_mulexp10(NV value, I32 exponent)
#ifdef Perl_strtod
# define ATOF(s, x) my_atof2(s, &x)
-# else
+#else
# define ATOF(s, x) Perl_atof2(s, x)
-# endif
+#endif
NV
Perl_my_atof(pTHX_ const char* s)
diff --git a/perlio.c b/perlio.c
index f5eb4851b6..3a2f9120d3 100644
--- a/perlio.c
+++ b/perlio.c
@@ -371,7 +371,19 @@ PerlIO_debug(const char *fmt, ...)
/* Use fixed buffer as sv_catpvf etc. needs SVs */
char buffer[1024];
const STRLEN len1 = my_snprintf(buffer, sizeof(buffer), "%.40s:%" IVdf
" ", s ? s : "(none)", (IV) CopLINE(PL_curcop));
+# ifdef USE_QUADMATH
+# ifdef HAS_VSNPRINTF
+ /* my_vsnprintf() isn't available with quadmath, but the native
vsnprintf()
+ should be, otherwise the system isn't likely to support quadmath.
+ Nothing should be calling PerlIO_debug() with floating point anyway.
+ */
+ const STRLEN len2 = vsnprintf(buffer + len1, sizeof(buffer) - len1,
fmt, ap);
+# else
+ STATIC_ASSERT_STMT(0);
+# endif
+# else
const STRLEN len2 = my_vsnprintf(buffer + len1, sizeof(buffer) - len1,
fmt, ap);
+# endif
PERL_UNUSED_RESULT(PerlLIO_write(PL_perlio_debug_fd, buffer, len1 +
len2));
#else
const char *s = CopFILE(PL_curcop);
--
Perl5 Master Repository
