perl-Perl-Critic/Perl-Critic-1.121-do-not-use-Readonly-XS-directly.patch

23 lines
585 B
Diff
Raw Normal View History

--- xt/author/82_optional_modules.t
+++ xt/author/82_optional_modules.t
@@ -11,8 +11,6 @@
use strict;
use warnings;
-use Readonly; # So we don't barf when we hit Readonly::XS below.
-
use lib 'inc';
use Perl::Critic::BuildUtilities qw< recommended_module_versions >;
@@ -37,7 +35,10 @@
plan tests => scalar keys %module_versions;
foreach my $module (sort keys %module_versions) {
+ SKIP: {
+ skip 'Readonly::XS must only be used from Readonly itself', 1 if $module eq 'Readonly::XS';
use_ok( $module, $module_versions{$module} );
+ }
}
# Local Variables: