diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-14 13:42:30 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-14 13:42:30 +0000 |
commit | 75808db17caf8b960b351e3408e74142f4c85aac (patch) | |
tree | 7989e9c09a4240248bf4658a22208a0a52d991c4 /t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build | |
parent | Initial commit. (diff) | |
download | lintian-75808db17caf8b960b351e3408e74142f4c85aac.tar.xz lintian-75808db17caf8b960b351e3408e74142f4c85aac.zip |
Adding upstream version 2.117.0.upstream/2.117.0upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 't/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build')
-rwxr-xr-x | t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build new file mode 100755 index 0000000..5ee6c94 --- /dev/null +++ b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build @@ -0,0 +1,45 @@ +#!/usr/bin/perl + +# Attempt to break the GFDL so that the "redeeming" part of the +# license gets in the window /after/ the triggering part. c/cruft +# handles this case correctly now and we don't want to mess that up +# later. + +use strict; +use warnings; + +# Keep in sync with checks/cruft +use constant BLOCK_SIZE => 16_384; + +my ($rootdir) = @ARGV; +my $dir = "$rootdir/debian/src"; +my $file = "$dir/good.texi"; + +unless (-d $dir) { + mkdir $dir or die "mkdir $dir: $!"; +} + +my $slash = '/'; +my $gfdl_start = <<EOT ; +Permission is granted to copy, distribute and${slash}or modify this +document under the terms of the GNU Free Documentation License, +version 1.3 or any later version published by the Free Software +Foundation; +EOT + +my $gfdl_end = <<EOT; +with no Invariant Sections, no Front-Cover Texts and +no Back-Cover Texts. A copy of the license is included in the +section entitled "GNU Free Documentation License". +EOT + +my $fill = BLOCK_SIZE - length $gfdl_start; +my $prefix = ' ' x ($fill - 1); + +open my $fd, '>', $file or die "open $file: $!"; + +print {$fd} $prefix, "\n"; +print {$fd} $gfdl_start; +print {$fd} $gfdl_end; + +close $fd or die "close $file: $!"; |