From 305220dbb87a645cf92ea105d4b234cae94214f2 Mon Sep 17 00:00:00 2001
From: jpawlowski <jpawlowski@users.noreply.github.com>
Date: Wed, 19 Jun 2019 14:06:59 +0000
Subject: [PATCH] UConv: fix alg sign

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19649 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/UConv.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/FHEM/UConv.pm b/FHEM/UConv.pm
index 888611a38..9d6d63fd8 100644
--- a/FHEM/UConv.pm
+++ b/FHEM/UConv.pm
@@ -2090,11 +2090,13 @@ sub _GetSeasonPheno ($$;$$) {
 # HELPER FUNCTIONS
 
 sub decimal_mark ($;$) {
+    my $s;
     my $i;
     my $f;
-    if ( $_[0] =~ /^(\d+)(?:\.(\d+))?$/ ) {
-        $i = reverse $1;
-        $f = $2;
+    if ( $_[0] =~ /^(\-|\+)?(\d+)(?:\.(\d+))?$/ ) {
+        $s = $1;
+        $i = reverse $2;
+        $f = $3;
     }
     else {
         return $_[0];
@@ -2122,7 +2124,7 @@ sub decimal_mark ($;$) {
     $f =~ s/(\d{$grouping[0]})(?=\d)/$1$thousands_sep/g
       if ( defined($f) && $f ne '' );
 
-    return (reverse $i)
+    return ( $s ? $s : '' ) . ( reverse $i )
       . ( defined($f) && $f ne '' ? $decimal_point . $f : '' );
 }