[Bps-public-commit] r14730 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Aug  3 02:58:47 2008
New Revision: 14730

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/List.pm

Log:
 r15231 at sunnavys-mb:  sunnavy | 2008-08-03 11:59:17 +0800
 tiny fix


Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Sun Aug  3 02:58:47 2008
@@ -92,7 +92,8 @@
             print $name, ': ', "\n";
             print ' ' x 4 . 'version: ', $versions->{$name} || '',     "\n";
             print ' ' x 4 . 'from: ',    $source->{$name}   || 'CPAN', "\n";
-            print ' ' x 4 . 'references: ', $refs->{$name} || '', "\n";
+            print ' ' x 4 . 'references: ', defined $refs->{$name} ?
+                $refs->{$name} : 'unknown', "\n";
             if ( $self->with_latest_version ) {
                 print ' ' x 4 . 'latest_version: ', $latest_version->{$name}
                   || 'unknown', "\n";