From b77da9be3fd1bc1e2327a3941b47dee69660da56 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sat, 2 Apr 2011 11:01:58 +0200
Subject: [PATCH] ber: Make it possible to compare tags

---
 BERTLVStream.st | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/BERTLVStream.st b/BERTLVStream.st
index 0488231..737de87 100644
--- a/BERTLVStream.st
+++ b/BERTLVStream.st
@@ -107,6 +107,13 @@ Object subclass: BERTag [
         constructed := false.
     ]
 
+    = aOther [
+        <category: 'compare'>
+
+        (aOther isKindOf: self class) ifTrue: [^self asTuple = aOther asTuple].
+        ^ self asTuple = aOther.
+    ]
+
     parseExtendedTag: aStream [
         <category: 'decoding'>