Upgrade experimental from version 0.019 to 0.020
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 4 Jul 2018 11:50:46 +0000 (12:50 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 4 Jul 2018 11:50:46 +0000 (12:50 +0100)
(This retains blead customizations from da4e040f42 and 14e4cec412.)

Porting/Maintainers.pl
cpan/experimental/lib/experimental.pm
cpan/experimental/t/basic.t
t/porting/customized.dat

index 2a3f2d6..055a5fe 100755 (executable)
@@ -417,12 +417,8 @@ use File::Glob qw(:case);
     },
 
     'experimental' => {
-        'DISTRIBUTION' => 'LEONT/experimental-0.019.tar.gz',
+        'DISTRIBUTION' => 'LEONT/experimental-0.020.tar.gz',
         'FILES'        => q[cpan/experimental],
-        'EXCLUDED'     => [
-            qr{^xt/},
-            qr{nytprof.*}
-        ],
         'EXCLUDED'     => [qr{^xt/}],
         'CUSTOMIZED'   => [
            # smartmatch changes
index 6c0b49e..c900771 100644 (file)
@@ -1,5 +1,5 @@
 package experimental;
-$experimental::VERSION = '0.019';
+$experimental::VERSION = '0.020';
 use strict;
 use warnings;
 use version ();
@@ -23,6 +23,7 @@ my %min_version = (
        bitwise         => '5.22.0',
        const_attr      => '5.22.0',
        current_sub     => '5.16.0',
+       declared_refs   => '5.26.0',
        evalbytes       => '5.16.0',
        fc              => '5.16.0',
        lexical_topic   => '5.10.0',
@@ -48,8 +49,9 @@ $_ = version->new($_) for values %min_version;
 $_ = version->new($_) for values %max_version;
 
 my %additional = (
-       postderef  => ['postderef_qq'],
-       switch     => ['smartmatch'],
+       postderef     => ['postderef_qq'],
+       switch        => ['smartmatch'],
+       declared_refs => ['refaliasing'],
 );
 
 sub _enable {
@@ -130,7 +132,7 @@ experimental - Experimental features made easy
 
 =head1 VERSION
 
-version 0.019
+version 0.020
 
 =head1 SYNOPSIS
 
index adfc566..f39cc23 100644 (file)
@@ -69,7 +69,16 @@ if ($] >= 5.018) {
 END
 }
 
-if ($] >= 5.021005) {
+if ($] >= 5.026000) {
+       is (eval <<'END', 1, 'declared refs compiles') or diag $@;
+       use experimental 'declared_refs';
+       my @b;
+       my \@a = \@b;
+       is(\@a, \@b, '@a and @b are the same after \@a=\@b');
+       1;
+END
+}
+elsif ($] >= 5.021005) {
        is (eval <<'END', 1, 'ref aliasing compiles') or diag $@;
        use experimental 'refaliasing';
        my (@a, @b);
index 07d754a..1ef1f77 100644 (file)
@@ -24,7 +24,7 @@ autodie cpan/autodie/lib/autodie/hints.pm e1998fec61fb4e82fe46585bd82c73200be6f2
 autodie cpan/autodie/t/exceptions.t ad315a208f875e06b0964012ce8d65daa438c036
 autodie cpan/autodie/t/lib/Hints_pod_examples.pm 6944c218e9754b3613c8d0c90a5ae8aceccb5c99
 autodie cpan/autodie/t/mkdir.t 9e70d2282a3cc7d76a78bf8144fccba20fb37dac
-experimental cpan/experimental/t/basic.t a073ea03ccc98dec496569f3648ab01a5fe1c7a0
+experimental cpan/experimental/t/basic.t cb9da8dd05b854375809872a05dd32637508d5da
 perlfaq cpan/perlfaq/lib/perlfaq5.pod dab8fdf5cc1bb9bf3ccbd10773a78c43f7ed3fab
 perlfaq cpan/perlfaq/lib/perlfaq8.pod 586893218bc2faa8f087da862ccc55adfdf6908c
 version cpan/version/lib/version.pm 7ef9219d1d5f1d71f08a79f3b0577df138b21b12