amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-02 17:33:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge b29f09915e into 4599f3df22

Browse source
This commit is contained in:
Bernhard M. Wiedemann 2018-03-13 01:35:55 +00:00 • committed by GitHub
commit c11feb6392
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
bin_PL/_build_docs
View file

@ -16,16 +16,15 @@ if(! -d $bindir) {
print "Using perl binary: $^X",$/;
print "Using perl version $^V",$/;
for my $source (glob("*")) {
my $dest="$bindir/$source";
my $dest = shift;
my $source = $dest;
$source =~ s{bin/}{};
$dest = "../$dest";
next if($source =~ m/$Script/);
next if($source =~ m/\.x$/);
print "Generating: $source",$/;
print "Generating: $dest from $source",$/;
if(-f $dest) {
chmod(0777, $dest) || die "Could not chmod $dest for removing: $!";
chmod(0755, $dest) || die "Could not chmod $dest for removing: $!";
}
open(my $sfh, '<', $source) || die "Could not open $source for reading: $!";
@ -44,4 +43,3 @@ for my $source (glob("*")) {
close($dfh);
chmod(0555, $dest) || die "Could not chmod $dest: $!";
}