fixup CWD in access(); see below

Calling access() changes the CWD to $GL_REPO_BASE!

This causes a problem in the update script -- you're suddenly in the
wrong directory after calling access()!

This is actually happening inside load_1(), so fix that.
This commit is contained in:
Sitaram Chamarty 2012-03-10 22:57:01 +05:30
parent 877f6eb31b
commit 56cda99edd

View file

@ -117,7 +117,7 @@ sub load_1 {
my $repo = shift; my $repo = shift;
trace( 4, $repo ); trace( 4, $repo );
_chdir( $rc{GL_REPO_BASE} ); _chdir( "$rc{GL_REPO_BASE}/$repo.git" );
if ( $repo eq $last_repo ) { if ( $repo eq $last_repo ) {
$repos{$repo} = $one_repo{$repo}; $repos{$repo} = $one_repo{$repo};
@ -125,10 +125,10 @@ sub load_1 {
return; return;
} }
if ( -f "$repo.git/gl-conf" ) { if ( -f "gl-conf" ) {
_die "split conf not set, gl-conf present for $repo" if not $split_conf{$repo}; _die "split conf not set, gl-conf present for $repo" if not $split_conf{$repo};
my $cc = "$repo.git/gl-conf"; my $cc = "gl-conf";
_die "parse $cc failed: " . ( $! or $@ ) unless do $cc; _die "parse $cc failed: " . ( $! or $@ ) unless do $cc;
$last_repo = $repo; $last_repo = $repo;