From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Michael G. Schwern" Subject: [PATCH 4/4] Move initialization of Git::SVN variables into Git::SVN. Date: Tue, 24 Jul 2012 23:01:06 -0700 Message-ID: <1343196066-81319-5-git-send-email-schwern@pobox.com> References: <1343196066-81319-1-git-send-email-schwern@pobox.com> Cc: robbat2@gentoo.org, bwalton@artsci.utoronto.ca, normalperson@yhbt.net, "Michael G. Schwern" To: git@vger.kernel.org, gitster@pobox.com X-From: git-owner@vger.kernel.org Wed Jul 25 08:01:48 2012 Return-path: Envelope-to: gcvg-git-2@plane.gmane.org Received: from vger.kernel.org ([209.132.180.67]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1StufL-0007uy-P2 for gcvg-git-2@plane.gmane.org; Wed, 25 Jul 2012 08:01:48 +0200 Received: (majordomo@vger.kernel.org) by vger.kernel.org via listexpand id S932751Ab2GYGBm (ORCPT ); Wed, 25 Jul 2012 02:01:42 -0400 Received: from mail-yw0-f46.google.com ([209.85.213.46]:50063 "EHLO mail-yw0-f46.google.com" rhost-flags-OK-OK-OK-OK) by vger.kernel.org with ESMTP id S932719Ab2GYGBm (ORCPT ); Wed, 25 Jul 2012 02:01:42 -0400 Received: by yhmm54 with SMTP id m54so342668yhm.19 for ; Tue, 24 Jul 2012 23:01:41 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=sender:from:to:cc:subject:date:message-id:x-mailer:in-reply-to :references; bh=ysQkK7tCq43t+SdR6cretzLx0YYibOJAglThbMDjet0=; b=LdsQADMIw7sQz+zpV6yduelarjm5zm9z/pziUePKQ25f28LtoLzY6dKBPijDqNzrmt pZJKVTulsSCnzpI95Rwdmrv1OYp7Sqj/0ak/WistkhlAslqDH9xDciC9ggovoeJSsva5 4xWRN0rrJtXYZV46tJeqalPhHe7g57eVOSmZywwQToBioki4IJLCw+CRVZa3K6YaFurk ES/2j1t0dyQtId+0GHlbU6M6m5e7WSAChNdVbIBdUlYAd+LY1rEzTlh+p28d04N436th BjVBaFy7ZL68gvmDWW7VzypK/7l3DL7QS8HaDiXqDyKM0PoGu9cyLoN8GAq6KNOTgLF3 +4bw== Received: by 10.68.217.100 with SMTP id ox4mr50630435pbc.87.1343196101258; Tue, 24 Jul 2012 23:01:41 -0700 (PDT) Received: from windhund.local.net (c-71-236-173-173.hsd1.or.comcast.net. [71.236.173.173]) by mx.google.com with ESMTPS id oy8sm13681630pbc.52.2012.07.24.23.01.38 (version=TLSv1/SSLv3 cipher=OTHER); Tue, 24 Jul 2012 23:01:38 -0700 (PDT) X-Mailer: git-send-email 1.7.11.1 In-Reply-To: <1343196066-81319-1-git-send-email-schwern@pobox.com> Sender: git-owner@vger.kernel.org Precedence: bulk List-ID: X-Mailing-List: git@vger.kernel.org Archived-At: From: "Michael G. Schwern" Also it can compile on its own now, yay! --- git-svn.perl | 4 ---- perl/Git/SVN.pm | 9 +++++++-- t/Git-SVN/00compile.t | 3 ++- 3 files changed, 9 insertions(+), 7 deletions(-) diff --git a/git-svn.perl b/git-svn.perl index 4c77f69..ef10f6f 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -20,10 +20,7 @@ my $cmd_dir_prefix = eval { my $git_dir_user_set = 1 if defined $ENV{GIT_DIR}; $ENV{GIT_DIR} ||= '.git'; -$Git::SVN::default_repo_id = 'svn'; -$Git::SVN::default_ref_id = $ENV{GIT_SVN_ID} || 'git-svn'; $Git::SVN::Ra::_log_window_size = 100; -$Git::SVN::_minimize_url = 'unset'; if (! exists $ENV{SVN_SSH} && exists $ENV{GIT_SSH}) { $ENV{SVN_SSH} = $ENV{GIT_SSH}; @@ -114,7 +111,6 @@ my ($_stdin, $_help, $_edit, # This is a refactoring artifact so Git::SVN can get at this git-svn switch. sub opt_prefix { return $_prefix || '' } -$Git::SVN::_follow_parent = 1; $Git::SVN::Fetcher::_placeholder_filename = ".gitignore"; $_q ||= 0; my %remote_opts = ( 'username=s' => \$Git::SVN::Prompt::_username, diff --git a/perl/Git/SVN.pm b/perl/Git/SVN.pm index c71c041..2e0d7f0 100644 --- a/perl/Git/SVN.pm +++ b/perl/Git/SVN.pm @@ -3,9 +3,9 @@ use strict; use warnings; use Fcntl qw/:DEFAULT :seek/; use constant rev_map_fmt => 'NH40'; -use vars qw/$default_repo_id $default_ref_id $_no_metadata $_follow_parent +use vars qw/$_no_metadata $_repack $_repack_flags $_use_svm_props $_head - $_use_svnsync_props $no_reuse_existing $_minimize_url + $_use_svnsync_props $no_reuse_existing $_use_log_author $_add_author_from $_localtime/; use Carp qw/croak/; use File::Path qw/mkpath/; @@ -30,6 +30,11 @@ BEGIN { $can_use_yaml = eval { require Git::SVN::Memoize::YAML; 1}; } +our $_follow_parent = 1; +our $_minimize_url = 'unset'; +our $default_repo_id = 'svn'; +our $default_ref_id = $ENV{GIT_SVN_ID} || 'git-svn'; + my ($_gc_nr, $_gc_period); # properties that we do not log: diff --git a/t/Git-SVN/00compile.t b/t/Git-SVN/00compile.t index a7aa85a..97475d9 100644 --- a/t/Git-SVN/00compile.t +++ b/t/Git-SVN/00compile.t @@ -3,6 +3,7 @@ use strict; use warnings; -use Test::More tests => 1; +use Test::More tests => 2; require_ok 'Git::SVN::Utils'; +require_ok 'Git::SVN'; -- 1.7.11.1