Fixed inversetranslate() to NOT to convert back umlaut->ASCII characters:

 - This translation was NOT reversible, NEVER convert it back!

diff --git a/GSM/SMS/PDU.pm b/GSM/SMS/PDU.pm
index 49df79f..53e845c 100644 (file)
--- a/GSM/SMS/PDU.pm
+++ b/GSM/SMS/PDU.pm
@@ -641,7 +641,8 @@ sub translate {
 sub inversetranslate {
        my ($self, $msg) = @_;
        $msg=~ tr (\@\$) (\x00\x02);
-       $msg=~ tr (iaaeeEOoUu) (\x07\x0f\x7f\x04\x05\x1f\x5c\x7c\x5e\x7e);      
+# This translation was NOT reversible, NEVER convert it back!
+#      $msg=~ tr (iaaeeEOoUu) (\x07\x0f\x7f\x04\x05\x1f\x5c\x7c\x5e\x7e);      
        return $msg;
 }
 1;