From 3cc7f4584714bb3952189e3757f6a91a94afc545 Mon Sep 17 00:00:00 2001
From: Nigel Kukard <nkukard@lbsd.net>
Date: Sun, 1 Mar 2009 19:06:59 +0000
Subject: [PATCH] * Removed stray debugging info
---
Radius/Packet.pm | 1 -
1 file changed, 1 deletion(-)
diff --git a/Radius/Packet.pm b/Radius/Packet.pm
index ff19cc7a..746ebb59 100644
--- a/Radius/Packet.pm
+++ b/Radius/Packet.pm
@@ -570,7 +570,6 @@ sub unpack {
{
my $length = unpack "x C", $attrdat;
my ($type, $value) = unpack "C x a${\($length-2)}", $attrdat;
-print(STDERR "Type: $type, length: $length, value: ".unpack('H*',$value).", value: >$value<\n");
if ($type == $VSA) { # Vendor-Specific Attribute
my ($vid) = unpack "N", $value;
substr ($value, 0, 4) = "";
--
GitLab