From 6ee59fb313c4e4defdbf49e4600304a882427ce6 Mon Sep 17 00:00:00 2001 From: Matthias Merz Date: Wed, 3 Jun 2020 21:49:47 +0200 Subject: [PATCH] Finance/Quote/DKB.pm: fix regex backref syntax --- Finance/Quote/DKB.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Finance/Quote/DKB.pm b/Finance/Quote/DKB.pm index bd6ced7..d1803bb 100644 --- a/Finance/Quote/DKB.pm +++ b/Finance/Quote/DKB.pm @@ -121,7 +121,7 @@ sub dkb my @dates = $parser->findnodes( '//div[@class="exchangeLine"]/span'); if (@dates) { my $tradedate = $dates[0]->as_text; - $tradedate =~ s/.*\|\s*(\d\d.*) $/\1/g; + $tradedate =~ s/.*\|\s*(\d\d.*) $/$1/g; if (length($tradedate) < 10) { $tradedate = POSIX::strftime( '%d.%m.%Y', localtime()); }