From 37aca89af7d0f5bc664626ad333114fcffba2a18 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Sun, 15 Dec 2013 10:24:45 -0500
Subject: [PATCH] munge_caps() is no longer in use, so remove

---
 Info.pm | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/Info.pm b/Info.pm
index 563a53cb..7dfeccc8 100644
--- a/Info.pm
+++ b/Info.pm
@@ -3283,20 +3283,6 @@ sub munge_bits {
     return unpack( "B*", $bits );
 }
 
-=item munge_caps
-
-Takes an octet string and returns an ascii binary string, 7 digits long, MSB.
-
-=cut
-
-sub munge_caps {
-    my $caps = shift;
-    return unless defined $caps;
-
-    my $bits = substr( unpack( "B*", $caps ), -7 );
-    return $bits;
-}
-
 =item munge_counter64
 
 If $BIGINT is set to true, then a Math::BigInt object is returned.