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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun May 18 11:16:25 2008
New Revision: 12513

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

Log:
 r12428 at sunnavys-mb:  sunnavy | 2008-05-17 13:55:37 +0800
 CPAN::DistnameInfo doesn't like bz2


Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Sun May 18 11:16:25 2008
@@ -339,7 +339,10 @@
 sub just_name {
     my $self = shift;
     my $name = shift;
-    $name .= '.tar.gz' unless $name =~ /(tar\.gz|tgz|tar\.bz2)$/;
+
+    $name =~ s/tar\.bz2$/tar.gz/;  # CPAN::DistnameInfo doesn't like bz2
+
+    $name .= '.tar.gz' unless $name =~ /(tar\.gz|tgz)$/;
 
     require CPAN::DistnameInfo;
     my $info = CPAN::DistnameInfo->new($name);