File perl-Finance-Quote-debian-08_deka.patch of Package perl-Finance-Quote
Patch by Daniel Bayer <daniel@halbordnung.de>
Closes: #539052
--- lib/Finance/Quote/Deka.pm.orig 2009-07-29 11:16:07.000000000 +0200
+++ ./lib/Finance/Quote/Deka.pm 2009-07-29 11:18:12.000000000 +0200
@@ -81,7 +81,7 @@
$info{$stock,"name"} = $1
if( $response->content =~ /<div class="sfg_txt">[^<>]*<h1>([^<>]+)<\/h1>/s );
$info{$stock,"eurodate"} = $1
- if( $response->content =~ /<div class="box">[^<>]*<h2 class="headline">Aktuelle Fondsdaten vom ([^<>]+)<\/h2>/s );
+ if( $response->content =~ /<h2 class="headline">Aktuelle Fondsdaten vom ([^<>]+)<\/h2>/s );
$info{$stock,"last"} = $info{$stock,"price"}
if( defined $info{$stock,"price"} );