diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2011-03-29 19:59:15 +0200 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2011-03-29 19:59:15 +0200 |
commit | 3034cb9fc175ab08e9bdead496becf81c8cc553e (patch) | |
tree | c3c563787537268a50ba8749a46406bb1bec03f9 | |
parent | d0eeb9fa0f8747ae33d84bdef4b329c136c6ac58 (diff) |
ber: Throw an exception that is working.
-rw-r--r-- | BER.st | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -73,9 +73,8 @@ Object subclass: BERElement [ "Transcript show: '*** Next byte is: ', firstByte asString; cr." elementClass := self identifyIncomingElement: firstByte. elementClass ifNil: - [(LDAPException new) - messageText: 'invalid tag -- make sure class is in identifyIncomingElements'; - signal]. + [self error: + 'invalid tag -- make sure class is in identifyIncomingElements: ', firstByte asString.]. element := elementClass new setTag: firstByte. "we should read the tag here, instead of just the first byte" element readLengthFrom: aStream. |