Added String#read_ber!

Author: blackhedd

lib/net/ber.rb

@@ -277,13 +277,23 @@ class OpenSSL::SSL::SSLSocket
 # IO so we'd pick it up above. But you'd be wrong.
 end
 
-class String
-  def read_ber syntax=nil
-    StringIO.new(self).read_ber(syntax)
-  end
-end
 
 
+class String
+    include Net::BER::BERParser
+    def read_ber syntax=nil
+	StringIO.new(self).read_ber(syntax)
+    end
+    def read_ber! syntax=nil
+	obj,n_consumed = read_ber_from_string(self, syntax)
+	if n_consumed
+	    self.slice!(0...n_consumed)
+	    obj
+	else
+	    nil
+	end
+    end
+end
 
 #----------------------------------------------