amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-22 01:12:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

First attempt at pod generation in build process

Browse source
This commit is contained in:
Duncan Ferguson 2014-05-29 10:13:41 +01:00
parent 88d4946596
commit 671c231992
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Build.PL
View file

@ -57,10 +57,12 @@ EOF
# If not, there is a problem.
my @files=glob('bin/*');
foreach my $binfile (@files) {
next unless(-f $binfile);
# (my $podfile = $binfile) =~ s!bin!pod_data!;
warn "checking $podfile",$/;
# ignore any dirs or such in the bin directory
next unless(-f $binfile && -x $binfile);
# (my $podfile = $binfile) =~ s!bin!pod_data!;
# warn "checking $podfile",$/;
#
# if(!-f $podfile) {
# warn "$podfile does not exist",$/;
# next;
@ -73,8 +75,11 @@ EOF
# my $options = qx{ $binfile -h 2>&1 };
# warn "Unable to run '$binfile -h'" unless ($options);
my $pod = qx { $binfile --generate-pod 2>&1 };
write_file("${bifile}.pod", $pod);
my $cmd="$binfile --generate-pod 2>&1";
warn "Running: $cmd",$/;
my $pod = qx { $cmd };
die "Failed to generate POD" if($?);
write_file("${binfile}.pod", $pod);
}