--- old/lib/Finance/Quote/Tradegate.pm +++ new/lib/Finance/Quote/Tradegate.pm @@ -98,12 +98,13 @@ @child = $td1->content_list; my $exchange = $child[0]; $td1 = ($lastvalue->look_down('_tag'=>'td'))[7]; @child = $td1->content_list; - my $date = substr($child[0], 0, 8); - my $time = substr($child[0], 9, 5); # CE(S)T + $child[0] =~ /(?\d{2}\.\d{2}\.\d{2,4})\s*\/\s*(?