[PATCH v5 06/40] Git/Packet.pm: improve error message
From: Christian Couder <hidden>
Date: 2017-08-03 09:22:43
Subsystem:
the rest · Maintainer:
Linus Torvalds
Try to give a bit more information when we die() because there is no new line at the end of something we receive. Signed-off-by: Christian Couder <redacted> --- perl/Git/Packet.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/perl/Git/Packet.pm b/perl/Git/Packet.pm
index aaffecbe2a..2ad6b00d6c 100644
--- a/perl/Git/Packet.pm
+++ b/perl/Git/Packet.pm@@ -49,7 +49,8 @@ sub packet_bin_read { sub packet_txt_read { my ( $res, $buf ) = packet_bin_read(); unless ( $res == -1 || $buf =~ s/\n$// ) { - die "A non-binary line MUST be terminated by an LF."; + die "A non-binary line MUST be terminated by an LF.\n" + . "Received: '$buf'"; } return ( $res, $buf ); }
--
2.14.0.rc1.52.gf02fb0ddac.dirty