From: Ian Jackson Date: Wed, 20 Jun 2018 13:08:03 +0000 (+0100) Subject: dgit: gitattributes: Minor refactoring to prep for adding new squash X-Git-Tag: archive/debian/5.1~10 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=1cf29315dda6f4d7aa1ae6f9b5800b35173040c6 dgit: gitattributes: Minor refactoring to prep for adding new squash * is_gitattrs_setup: Break out $gitattrs_ourmacro_re * is_gitattrs_setup: Reorganise very slightly * is_gitattrs_setup: Add a debug print * setup_gitattrs: Introduce $new * setup_gitattrs: Add a blank line No functional change. Signed-off-by: Ian Jackson --- diff --git a/dgit b/dgit index ebf44de8..e7a69041 100755 --- a/dgit +++ b/dgit @@ -3393,13 +3393,17 @@ sub open_main_gitattrs () { return $gai; } +our $gitattrs_ourmacro_re = qr{^\[attr\]dgit-defuse-attrs\s}; + sub is_gitattrs_setup () { my $gai = open_main_gitattrs(); return 0 unless $gai; while (<$gai>) { - return 1 if m{^\[attr\]dgit-defuse-attrs\s}; + next unless m{$gitattrs_ourmacro_re}; + return 1; } $gai->error and die $!; + printdebug "is_gitattrs_setup: found nothing\n"; return 0; } @@ -3407,19 +3411,22 @@ sub setup_gitattrs (;$) { my ($always) = @_; return unless $always || access_cfg_bool(1, 'setup-gitattributes'); - if (is_gitattrs_setup()) { + my $already = is_gitattrs_setup(); + if ($already) { progress < $af.new" or die $!; print GAO <