Commit 218419af authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.

FIX: Remove accidential change to darcs-all in type families patch

- The type families patch includes a change to darcs-all that breaks it for
  ssh repos at least for Perl 5.8.8 (on MacOS).
- My Perl-fu is not sufficient to try to fix the modification, which was
  supposed to improve darcs-all on windows, so I just revert to the old
  code.
parent 6d60ffad
......@@ -11,14 +11,13 @@ chomp $defaultrepo;
my $defaultrepo_base;
my $defaultrepo_lib;
if ($defaultrepo =~ /:\/\//) {
if ($defaultrepo =~ /:/) {
# HTTP or SSH
$defaultrepo_base = $defaultrepo;
$defaultrepo_base =~ s#/[^/]+/?$##;
$defaultrepo_lib = "$defaultrepo_base/packages";
}
elsif (($defaultrepo =~ /^\//) or # unix
($defaultrepo =~ /^.:/)) { # windows, e.g. c:
elsif ($defaultrepo =~ /^\//) {
# Local filesystem, absolute path (assumes a checked-out tree):
$defaultrepo_base = $defaultrepo;
$defaultrepo_lib = "$defaultrepo/libraries";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment