[svn:parrot] r10760 - trunk/lib/Parrot

[jhoblitt]

Author: jhoblitt
Date: Wed Dec 28 21:47:26 2005
New Revision: 10760

Modified:
   trunk/lib/Parrot/Configure.pm
Log:
tolerate a steps description being undef

Modified: trunk/lib/Parrot/Configure.pm
==============================================================================
--- trunk/lib/Parrot/Configure.pm       (original)
+++ trunk/lib/Parrot/Configure.pm       Wed Dec 28 21:47:26 2005
@@ -115,7 +115,8 @@ sub runsteps
 {
     my $self = shift;
 
-    my ($verbose, $verbose_step, $ask) = $self->options->get(qw(verbose 
verbose-step ask));
+    my ($verbose, $verbose_step, $ask) =
+        $self->options->get(qw(verbose verbose-step ask));
 
     my $n = 0; # step number
     foreach my $step ($self->steps) {
@@ -125,6 +126,7 @@ sub runsteps
         die $@ if $@;
 
         my $description = $step->description;
+        $description = "" unless defined $description;
 
         # set per step verbosity
         if (defined $verbose_step) {