Skip to content

Commit b1b5d52

Browse files
committed
Avoid installing this repo.
Other repositories that use it expect a clone to exist, they do not expect it to be installed, and our old install process was broken for years.
1 parent 7581516 commit b1b5d52

File tree

1 file changed

+1
-31
lines changed

1 file changed

+1
-31
lines changed

Build.pm6

Lines changed: 1 addition & 31 deletions
Original file line numberDiff line numberDiff line change
@@ -1,33 +1,3 @@
1-
use v6;
2-
use File::Find;
3-
41
class Build {
5-
method build($workdir) {
6-
my $doc-dir = $workdir.IO.child('doc');
7-
my $dest-pref = $*REPO.repo-chain.grep(/site/).first.prefix.child("doc");
8-
mkdir($dest-pref) unless $dest-pref.d;
9-
10-
my @files = find(dir => "$workdir/doc", type => 'file').list;
11-
my $copied-all = True;
12-
for @files -> $file {
13-
next if $file.basename eq 'HomePage.pod6';
14-
15-
my $rel-dest = $file.relative($doc-dir);
16-
my $abs-dest = IO::Path.new($rel-dest, :CWD($dest-pref)).absolute;
17-
18-
mkdir($abs-dest.IO.parent) unless $abs-dest.IO.parent.d;
19-
20-
say "Copying {$rel-dest} to {$abs-dest}";
21-
22-
copy($file, $abs-dest);
23-
$copied-all = False unless $abs-dest.IO.e;
24-
}
25-
26-
# Zef considers the build to have passed only if a truthy value is returned.
27-
$copied-all;
28-
}
29-
method isa($what) { # Only needed for older panda compatibility
30-
return True if $what.^name eq 'Panda::Builder';
31-
callsame;
32-
}
2+
BEGIN die "This repository is not intended to be installed.";
333
}

0 commit comments

Comments
 (0)