munge_caps() is no longer in use, so remove
This commit is contained in:
14
Info.pm
14
Info.pm
@@ -3283,20 +3283,6 @@ sub munge_bits {
|
|||||||
return unpack( "B*", $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
|
=item munge_counter64
|
||||||
|
|
||||||
If $BIGINT is set to true, then a Math::BigInt object is returned.
|
If $BIGINT is set to true, then a Math::BigInt object is returned.
|
||||||
|
|||||||
Reference in New Issue
Block a user