From 218419af65674e52a2070dd84e2195cb4fe203fd Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Wed, 29 Aug 2007 01:00:11 +0000 Subject: [PATCH] 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. --- darcs-all | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/darcs-all b/darcs-all index f1934dc..7743e8a 100644 --- a/darcs-all +++ b/darcs-all @@ -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"; -- 1.7.10.4