diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/porting/customized.t')
-rw-r--r-- | gnu/usr.bin/perl/t/porting/customized.t | 7 |
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; |