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

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