From: Ian Jackson Date: Wed, 31 Jan 2018 14:57:57 +0000 (+0000) Subject: git-debrebase: break out dd (nfc) X-Git-Tag: archive/debian/5.0~286 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=ec2d9d708e0d45cfc4623b20057d042127690599 git-debrebase: break out dd (nfc) Signed-off-by: Ian Jackson --- diff --git a/git-debrebase b/git-debrebase index 9cffa31c..e8dfbf99 100755 --- a/git-debrebase +++ b/git-debrebase @@ -137,6 +137,13 @@ sub cfg ($) { memoize('cfg'); +sub dd ($) { + my ($v) = @_; + my $dd = new Data::Dumper [ $v ]; + Terse $dd 1; Indent $dd 0; Useqq $dd 1; + return Dump $dd; +} + sub get_commit ($) { my ($objid) = @_; my $data = git_cat_file $objid, 'commit'; @@ -354,9 +361,7 @@ sub classify ($) { my ($type, @rest) = @_; $r = { %$r, Type => $type, @rest }; if ($debuglevel) { - my $dd = new Data::Dumper [ $r ]; - Terse $dd 1; Indent $dd 0; Useqq $dd 1; - printdebug " = $type ".(Dump $dd)."\n"; + printdebug " = $type ".(dd $r)."\n"; } return $r; };