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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed May  7 08:40:07 2008
New Revision: 12132

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

Log:
fixed a 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	Wed May  7 08:40:07 2008
@@ -57,7 +57,7 @@
     else {
         for my $dist ( sort keys %$versions ) {
             print $dist, ': ', "\n";
-            print ' ' x 4 . 'version: ', $versions->{$dist}, "\n";
+            print ' ' x 4 . 'version: ', $versions->{$dist} || '', "\n";
             print ' ' x 4 . 'from: ', $source->{$dist} || 'CPAN', "\n";
         }
     }