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

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