From: Brandon Casey <casey@nrlssc.navy.mil>
Date: Tue, 29 Jan 2008 22:41:30 +0000 (-0600)
Subject: git-relink: avoid hard linking in objects/info directory
X-Git-Tag: v1.5.4~10
X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=commitdiff_plain;h=0eab8ca68ad7bfcbb7c0aff37985116cbbdacd44;p=git.git

git-relink: avoid hard linking in objects/info directory

git-relink is intended to search for packs and loose objects in
common between two repositories and to replace the one set with
hard links to the other. Files other than packs and loose objects
should not be touched, so add the "info" sub-directory to the
pattern of directory excludes.

Signed-off-by: Brandon Casey <casey@nrlssc.navy.mil>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
---

diff --git a/git-relink.perl b/git-relink.perl
index f6b4f6a2f..15fb93202 100755
--- a/git-relink.perl
+++ b/git-relink.perl
@@ -40,7 +40,7 @@ my $master_dir = pop @dirs;
 opendir(D,$master_dir . "objects/")
 	or die "Failed to open $master_dir/objects/ : $!";
 
-my @hashdirs = grep !/^\.{1,2}$/, readdir(D);
+my @hashdirs = grep { ($_ eq 'pack') || /^[0-9a-f]{2}$/ } readdir(D);
 
 foreach my $repo (@dirs) {
 	$linked = 0;