[Bioperl-guts-l] [14821] bioperl-live/trunk/ModuleBuildBioperl.pm: don't complain if there' s no scripts directory

[Senduran Balasubramaniam]

Revision: 14821
Author:   sendu
Date:     2008-08-22 10:35:38 -0400 (Fri, 22 Aug 2008)

Log Message:
-----------
don't complain if there's no scripts directory

Modified Paths:
--------------
    bioperl-live/trunk/ModuleBuildBioperl.pm

Modified: bioperl-live/trunk/ModuleBuildBioperl.pm
===================================================================
--- bioperl-live/trunk/ModuleBuildBioperl.pm	2008-08-22 13:31:59 UTC (rev 14820)
+++ bioperl-live/trunk/ModuleBuildBioperl.pm	2008-08-22 14:35:38 UTC (rev 14821)
@@ -94,8 +94,7 @@
     closedir($scripts_dir);
     my $question = $int_ok ? "Install [a]ll Bioperl scripts, [n]one, or choose groups [i]nteractively?" : "Install [a]ll Bioperl scripts or [n]one?";
     
-    my $prompt = $accept
-               ? 'a' : $self->prompt($question, 'a');
+    my $prompt = $accept ? 'a' : $self->prompt($question, 'a');
     
     if ($prompt =~ /^[aA]/) {
         $self->log_info("  - will install all scripts\n");
@@ -144,6 +143,10 @@
 sub script_files {
     my $self = shift;
     
+    unless (-d 'scripts') {
+        return {};
+    }
+    
     my $chosen_scripts = $self->notes('chosen_scripts');
     if ($chosen_scripts) {
         return if $chosen_scripts eq 'none';