From ec2d9d708e0d45cfc4623b20057d042127690599 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 31 Jan 2018 14:57:57 +0000
Subject: [PATCH 1/1] git-debrebase: break out dd (nfc)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 git-debrebase | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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;
     };
-- 
2.30.2