#!/usr/bin/perl
use IO::File;
use File::Spec 'catfile';
use warnings;
use strict;
 
# Alternative: Use Config's idea of the path to perl.
# IMHO, it's entirely too easy to move the perl executable without upd
+ating
# Config.pm.  We assume the user knew what they were doing when they s
+pecified what
# perl to run to the shell, and simply attempt to interpret it the sam
+e way as the
# shell did, when it's not absolute.
my ($myperl)=(scalar(()=File::Spec->splitdir($^X)) > 1 # If the path h
+as any "slash"es...
              # Assume it's rel to the current directory, or absolute
              ? File::Spec->rel2abs($^X)
              # Otherwise, we have very little to go on.  Get the
              # first executable file Of this name in the path.
              : (
               grep { -x $_ }
               # On unix, empty=.  let this go for other OSes too, as
               # there's no other useful meaning.
               map { File::Spec->catfile($_, $^X) } (File::Spec->rel2a
+bs($^X)),
               File::Spec->path
              )
             );
 
print "Running with perl $myperl\n";
 
my $returnval=0;
my @dirs = grep {-d $_} glob('*');
foreach (@dirs) {
    print "$_\n";
    chdir $_ or do {print "Couldn't change directory to $_: $!"; next}
+;
    system($^X, 'Makefile.PL', @ARGV);
    if ($?==-1) {
        print "Error running Makefile.PL: $!\n";
    } elsif ($?) {
        print "While running Makefile.PL in subdir $_, it failed with 
+\$?=$?.  Continuing anyway.\n";
        print "(Signal ", $?>>8,  ")\n" if $?>>8 ;
        print "(Return ", $?&127, ")\n" if $?&127;
        print "(Core dumped)\n"         if $?&128;
        if ($?>>8 > $returnval) {
            $returnval = $?>>8;
        }
    }
    chdir '..' or die "Couldn't chdir back to main directory: $!";
}
 
print "Writing Makefile in this directory.\n";
 
my @targets = qw(FORCE all ci clean config dist distcheck distclean di
+stdir disttest
    dynamic help install linkext makemakerdflt manifest manifypods met
+afile ppd
    realclean shdist skipcheck static subdirs tardist test testdb unin
+stall
    uutardist veryclean zipdist);
 
my $makefile = IO::File->new('>Makefile') or die "Cannot open Makefile
+: $!";
print $makefile <<"END_OF_MAKEFILE";
# This makefile generated by Build::Bundle::Really
 
@targets:
END_OF_MAKEFILE
 
foreach (@dirs) {
    print $makefile "\tcd $_; make $@";
    print $makefile "\n";
}
 
exit $returnval;
[download]