Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Do not split URLs in case it contains ~. Fixes #134

  • Loading branch information...
commit 100e90af6a62e05f04868abe11fd25d49e926b4f 1 parent 0d767ab
@miyagawa authored
Showing with 10 additions and 1 deletion.
  1. +1 −1  lib/App/cpanminus/script.pm
  2. +9 −0 xt/childe_url.t
View
2  lib/App/cpanminus/script.pm
@@ -165,7 +165,7 @@ sub doit {
$module = join '::', grep { $_ } File::Spec->splitdir($dirs), $file;
}
- ($module, my $version) = split /\~/, $module, 2;
+ ($module, my $version) = split /\~/, $module, 2 if $module =~ /\~[\d\._]+$/;
if ($self->{skip_satisfied} or defined $version) {
$self->check_libs;
my($ok, $local) = $self->check_module($module, $version || 0);
View
9 xt/childe_url.t
@@ -0,0 +1,9 @@
+use strict;
+use Test::More;
+use xt::Run;
+
+run "http://monster.bulknews.net/~miyagawa/Hash-MultiValue-0.12.tar.gz";
+like last_build_log, qr/installed Hash-MultiValue/;
+
+done_testing;
+
Please sign in to comment.
Something went wrong with that request. Please try again.