From 1737c4d6720e636699de6e7e043ba10cab8c8626 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 21 Dec 2009 16:57:21 +0100
Subject: [PATCH] dump just single line

---
 lib/SIP2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/SIP2.pm b/lib/SIP2.pm
index a2a7cc4..9518a32 100644
--- a/lib/SIP2.pm
+++ b/lib/SIP2.pm
@@ -4,6 +4,7 @@ use Data::Dump qw();
 
 our $message_codes;
 foreach ( <DATA> ) {
+	chomp;
 	my ($code,$description) = split(/\t/,$_,2);
 	$message_codes->{$code} = $description;
 }
@@ -12,7 +13,7 @@ warn "# message_codes ", Data::Dump::dump $message_codes;
 sub dump_message {
 	my ( $self, $prefix, $message ) = @_;
 	my $code = substr($message,0,2);
-	warn $prefix, " ", $message_codes->{$code}, Data::Dump::dump($message), "\n";
+	warn $prefix, " ", $message_codes->{$code}, " ", Data::Dump::dump($message), "\n";
 }
 
 
-- 
2.20.1