On Wed May 29 08:50:16 2013, OALDERS wrote:
Show quoted text> Using Perl6::Junction under perl 5.18 is generating "Smartmatch is
> experimental" warnings.
Attached patch fixes this for me.
--- lib/Perl6/Junction/All.pm
+++ lib/Perl6/Junction/All.pm
@@ -1,5 +1,7 @@
package Perl6::Junction::All;
use strict;
+use warnings;
+no if $] >= 5.018000, warnings => 'experimental::smartmatch';
our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';
--- lib/Perl6/Junction/Any.pm
+++ lib/Perl6/Junction/Any.pm
@@ -1,5 +1,7 @@
package Perl6::Junction::Any;
use strict;
+use warnings;
+no if $] >= 5.018000, warnings => 'experimental::smartmatch';
our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';
--- lib/Perl6/Junction/None.pm
+++ lib/Perl6/Junction/None.pm
@@ -1,5 +1,7 @@
package Perl6::Junction::None;
use strict;
+use warnings;
+no if $] >= 5.018000, warnings => 'experimental::smartmatch';
our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';
--- lib/Perl6/Junction/One.pm
+++ lib/Perl6/Junction/One.pm
@@ -1,5 +1,7 @@
package Perl6::Junction::One;
use strict;
+use warnings;
+no if $] >= 5.018000, warnings => 'experimental::smartmatch';
our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';