matthias/finance-quote
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Finance/Quote/DKB.pm: fix regex backref syntax

Browse Source
This commit is contained in:
Matthias Merz 2020-06-03 21:49:47 +02:00
parent 1400126804
commit 6ee59fb313
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Finance/Quote/DKB.pm
View File

@ -121,7 +121,7 @@ sub dkb
my @dates = $parser->findnodes( '//div[@class="exchangeLine"]/span'); my @dates = $parser->findnodes( '//div[@class="exchangeLine"]/span');
if (@dates) { if (@dates) {
my $tradedate = $dates[0]->as_text; my $tradedate = $dates[0]->as_text;
$tradedate =~ s/.*\|\s*(\d\d.*) $/\1/g; $tradedate =~ s/.*\|\s*(\d\d.*) $/$1/g;
if (length($tradedate) < 10) { if (length($tradedate) < 10) {
$tradedate = POSIX::strftime( '%d.%m.%Y', localtime()); $tradedate = POSIX::strftime( '%d.%m.%Y', localtime());
} }