File perl-Finance-Quote-goldmoney-decimal-point.patch of Package perl-Finance-Quote

Index: Finance-Quote-1.37/lib/Finance/Quote/GoldMoney.pm
===================================================================
--- Finance-Quote-1.37.orig/lib/Finance/Quote/GoldMoney.pm
+++ Finance-Quote-1.37/lib/Finance/Quote/GoldMoney.pm
@@ -128,6 +128,7 @@ sub goldmoney {
 
 			if( $_->as_text =~ /([\d,]*\.\d*)/ ) {
 				$gold_oz = $1;
+				$gold_oz =~ s/,//;
 			}
 
 			# assemble final dataset
@@ -149,6 +150,7 @@ sub goldmoney {
 
 			if( $_->as_text =~ /([\d,]*\.\d*)/ ) {
 				$silver_oz = $1;
+				$silver_oz =~ s/,//;
 			}
 
 			# assemble final dataset
@@ -170,6 +172,7 @@ sub goldmoney {
 
 			if( $_->as_text =~ /([\d,]*\.\d*)/ ) {
 				$platinum_oz = $1;
+				$platinum_oz =~ s/,//;
 			}
 
 			# assemble final dataset