Changeset 5337

Timestamp:

06/18/09 14:54:28 (3 years ago)

Author:

szabgab

Message:

add some packages to be skipped

File:

• trunk/tools/build_all.pl (modified) (4 diffs)

trunk/tools/build_all.pl

@@ -4 +4 @@
 
 # Try to run perl Makefile.PL or perl Build.PL on all the modules in this repository
+# later we might just run the release.pl script on each directory 
+# (or that could be a second phase)
 
 use FindBin;
@@ -10 +12 @@
 use Capture::Tiny  qw(tee);
 
-my %SKIP = map {$_ =>1 } qw(
-    blogs.padre.perlide.org
+my %SKIP = (
+    'Padre-Plugin-Encode'       => 'due to be integrated',
+    'Padre-Plugin-HTML'         => 'HTML::Tidy is a broken prereq',
+    'Padre-Plugin-NYTProf'      => 'TODO',
+    'Padre-Plugin-Perldoc'      => 'irrelevant, broken prereq',
+    'Padre-Plugin-Swarm'        => 'just a skeleton',
+    'Perl-Dist-Padre'           => 'needs Perl::Dist::Strawberry',
+    'Task-Padre-Plugin-Deps'    => 'HTML::Tidy is broken',
+    'Task-Padre-Plugins'        => '???',
+    'Wx-Perl-Dialog'            => 'currently not in use',
 );
 
-my @dirs = grep { -d $_ } glob "$FindBin::Bin/../*";
+my @dirs = grep { -d $_ } glob "$FindBin::Bin/../[A-Z]*";
 #print Dumper \@dirs;
 
@@ -26 +36 @@
     if (-e 'Build.PL') {
         my ($stdout, $stderr) = tee {
-            system "perl Build.PL" and die "$!";
+            system "perl Build.PL" and die "($base failed:) $!";
         };
         die "There was an error (on stderr) in $base\n" if $stderr;
@@ -32 +42 @@
     } elsif (-e 'Makefile.PL') {
         my ($stdout, $stderr) = tee {
-            system "perl Makefile.PL" and die "$!";
+            system "perl Makefile.PL" and die "($base failed:) $!\n";
         };
         die "There was an error (on stderr) in $base\n" if $stderr;