Sophie: perl-Finance-Quote-1.37-2.fc20 src

perl-Finance-Quote-1.37-2.fc20.src.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

--- lib/Finance/Quote/MStaruk.pm
+++ lib/Finance/Quote/MStaruk.pm
@@ -157,7 +157,7 @@
 
 		my ($currency, $date, $price, $pchange);
 		if ($webdoc =~
-		m[<td class="line heading">ISIN</td>.*<span class="heading"><br />([0-9]{2}/[0-9]{2}/[0-9]{4})</span>.*([A-Z]{3}).([0-9\.]+).*>([0-9\.\-]+)] )
+		m[<td class="line heading">NAV<span class="heading"><br />([0-9]{2}/[0-9]{2}/[0-9]{4})</span>.*([A-Z]{3}).([0-9\.]+).*>([0-9\.\-]+)] )
         {
 
             $date = $1;