This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade experimental from version 0.17 to 0.18
authorSteve Hay <steve.m.hay@googlemail.com>
Thu, 30 Nov 2017 08:37:15 +0000 (08:37 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Thu, 30 Nov 2017 08:37:15 +0000 (08:37 +0000)
Porting/Maintainers.pl
cpan/experimental/lib/experimental.pm
cpan/experimental/t/basic.t

index 639db91..2ed349e 100755 (executable)
@@ -406,9 +406,12 @@ use File::Glob qw(:case);
     },
 
     'experimental' => {
-        'DISTRIBUTION' => 'LEONT/experimental-0.017.tar.gz',
+        'DISTRIBUTION' => 'LEONT/experimental-0.018.tar.gz',
         'FILES'        => q[cpan/experimental],
-        'EXCLUDED'     => [qr{^xt/}],
+        'EXCLUDED'     => [
+            qr{^xt/},
+            qr{nytprof.*}
+        ],
     },
 
     'Exporter' => {
index 0d69faa..e6907c0 100644 (file)
@@ -1,10 +1,10 @@
 package experimental;
-$experimental::VERSION = '0.017';
+$experimental::VERSION = '0.018';
 use strict;
 use warnings;
 use version ();
 
-use feature ();
+BEGIN { eval { require feature } };
 use Carp qw/croak carp/;
 
 my %warnings = map { $_ => 1 } grep { /^experimental::/ } keys %warnings::Offsets;
@@ -130,7 +130,7 @@ experimental - Experimental features made easy
 
 =head1 VERSION
 
-version 0.017
+version 0.018
 
 =head1 SYNOPSIS
 
index a270fdf..5be845b 100644 (file)
@@ -1,5 +1,8 @@
 #! perl
 
+use strict;
+use warnings;
+
 use Test::More 0.89;
 
 local $SIG{__WARN__} = sub { fail("Got unexpected warning"); diag($_[0]) };
@@ -12,9 +15,6 @@ if ($] >= 5.010000) {
        1;
 END
 }
-else {
-       fail("No experimental features available on perl $]");
-}
 
 if ($] >= 5.010001) {
        is (eval <<'END', 1, 'switch compiles') or diag $@;
@@ -35,8 +35,8 @@ END
 if ($] >= 5.010001) {
        is (eval <<'END', 1, 'smartmatch compiles') or diag $@;
        use experimental 'smartmatch';
-       sub bar { 1 };
-       is(1 ~~ \&bar, 1, "is 1");
+       sub baz { 1 };
+       is(1 ~~ \&baz, 1, "is 1");
        1;
 END
 }
@@ -53,6 +53,7 @@ END
 if ($] >= 5.021005) {
        is (eval <<'END', 1, 'ref aliasing compiles') or diag $@;
        use experimental 'refaliasing';
+       my (@a, @b);
        \@a = \@b;
        is(\@a, \@b, '@a and @b are the same after \@a=\@b');
        1;