[Bps-public-commit] r12956 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun  6 05:17:34 2008
New Revision: 12956

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source/Base.pm

Log:
 r13046 at sunnavys-mb:  sunnavy | 2008-06-06 17:13:31 +0800
 fixed a uninitialized warning


Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Fri Jun  6 05:17:34 2008
@@ -364,7 +364,7 @@
     require CPAN::DistnameInfo;
     my $info    = CPAN::DistnameInfo->new($name);
     my $version = $info->version;
-    $version =~ s/^v//;
+    $version =~ s/^v// if $version;
     return $version;
 }