[Bps-public-commit] r12098 - Shipwright/trunk/lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May  6 08:04:32 2008
New Revision: 12098

Modified:
   Shipwright/trunk/lib/Shipwright/Script/List.pm

Log:
fixed undef warning

Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Tue May  6 08:04:32 2008
@@ -45,7 +45,7 @@
 
     if ( $self->dist ) {
         if ( exists $info->{$self->dist} ) {
-            print $self->dist, ': ', $info->{$self->dist}, " dist.\n";
+            print $self->dist, ': ', $info->{$self->dist} || '' , " dist.\n";
         }
         else {
             print $self->dist, ': not exist' . "\n";
@@ -53,7 +53,7 @@
     }
     else {
         for my $dist ( sort keys %$info ) {
-            print $dist, ': ', $info->{$dist}, "\n";
+            print $dist, ': ', $info->{$dist} || '' , "\n";
         }
     }
 }