Pad based on most significant bit in octet

Was just looking at most significant bit.

Author: mtodd

lib/net/ber/core_ext/fixnum.rb

@@ -48,11 +48,11 @@ def to_ber_internal
       size -= 1
     end
 
-    # for positive integers, if most significant bit is set to one,
+    # for positive integers, if most significant bit in an octet is set to one,
     # pad the result (otherwise it's decoded as a negative value)
     # See section 8.5 of ITU-T X.690:
     # http://www.itu.int/ITU-T/studygroups/com17/languages/X.690-0207.pdf
-    if self > 0 && (self & (0b10000000 << (size - 1))) > 0
+    if self > 0 && (self & (0b10000000 << (size - 1) * 8)) > 0
       size += 1
     end