summaryrefslogtreecommitdiffstats
path: root/gnu/usr.bin/perl/t/porting/customized.t
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/usr.bin/perl/t/porting/customized.t')
-rw-r--r--gnu/usr.bin/perl/t/porting/customized.t7
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/t/porting/customized.t b/gnu/usr.bin/perl/t/porting/customized.t
index 45fcafb1009..d425e5b775a 100644
--- a/gnu/usr.bin/perl/t/porting/customized.t
+++ b/gnu/usr.bin/perl/t/porting/customized.t
@@ -13,6 +13,7 @@ BEGIN {
@INC = qw(lib Porting t);
require 'test.pl';
skip_all("pre-computed SHA1 won't match under EBCDIC") if $::IS_EBCDIC;
+ skip_all("This distro may have modified some files in cpan/. Skipping validation.") if $ENV{'PERL_BUILD_PACKAGING'};
}
use strict;
@@ -73,10 +74,16 @@ my $data_fh;
if ( $regen ) {
open $data_fh, '>:raw', $customised or die "Can't open $customised";
+ print $data_fh <<'#';
+# Regenerate this file using:
+# cd t
+# ./perl -I../lib porting/customized.t --regen
+#
}
else {
open $data_fh, '<:raw', $customised or die "Can't open $customised";
while (<$data_fh>) {
+ next if /^#/;
chomp;
my ($module,$file,$sha) = split ' ';
$customised{ $module }->{ $file } = $sha;