From 191b426f32431585547cbea157d709418e60af7d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 13 Aug 2022 13:21:13 +0200
Subject: [PATCH] use less for output

---
 git-log-merge.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/git-log-merge.pl b/git-log-merge.pl
index c3a41b5..4bd55f4 100755
--- a/git-log-merge.pl
+++ b/git-log-merge.pl
@@ -3,7 +3,6 @@ use warnings;
 use strict;
 use autodie;
 use Data::Dump qw(dump);
-use Carp;
 
 my @repos = qw(
 /home/dpavlin/dell-switch/running-config/
@@ -25,7 +24,7 @@ my $date_commit;
 sub get_commit {
 	my $repo = shift;
 	my $r = $fh->{$repo};
-	Carp::confess "ERROR on $repo in ",dump($fh) unless $r;
+	die "ERROR on $repo in ",dump($fh) unless $r;
 	while(<$r>) {
 		if ( m/(\e\[\d*m)?commit [0-9a-f]+/ ) {
 		#if ( m/commit [0-9a-f]+/ ) {
-- 
2.20.1