You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
gentoo-overlay/dev-perl/FileHandle-Unget/files/FileHandle-Unget-0.1634-no-...

60 lines
1.6 KiB

From a042303a6e1858cf3b09062c4856eb0fff2ea3f9 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Tue, 8 Sep 2020 20:51:31 +1200
Subject: Patch out generation of author tests
---
inc/Module/Install/StandardTests.pm | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/inc/Module/Install/StandardTests.pm b/inc/Module/Install/StandardTests.pm
index cd693ff..b565990 100644
--- a/inc/Module/Install/StandardTests.pm
+++ b/inc/Module/Install/StandardTests.pm
@@ -14,7 +14,7 @@ our $VERSION = '0.05';
sub use_standard_tests {
my ($self, %specs) = @_;
- my %with = map { $_ => 1 } qw/compile pod pod_coverage perl_critic/;
+ my %with = map { $_ => 1 } qw/compile/;
if (exists $specs{without}) {
$specs{without} = [ $specs{without} ] unless ref $specs{without};
delete $with{$_} for @{ $specs{without} };
@@ -27,9 +27,6 @@ sub use_standard_tests {
$self->build_requires('Test::Compile');
$self->write_standard_test_compile; # no if; this is mandatory
- $self->write_standard_test_pod if $with{pod};
- $self->write_standard_test_pod_coverage if $with{pod_coverage};
- $self->write_standard_test_perl_critic if $with{perl_critic};
}
@@ -65,7 +62,6 @@ TEST
$self->realclean_files($filename);
}
-
sub write_standard_test_compile {
my $self = shift;
$self->write_test_file('000_standard__compile.t', q/
@@ -79,6 +75,7 @@ sub write_standard_test_compile {
/);
}
+=cut
sub write_standard_test_pod {
my $self = shift;
@@ -130,6 +127,7 @@ sub write_standard_test_perl_critic {
/);
}
+=cut
1;
--
2.28.0