From fe029ce5d7a8f4ffaf2f93290c1a0675b38123c4 Mon Sep 17 00:00:00 2001 From: Nolan Woods Date: Thu, 10 Jan 2019 15:27:42 -0800 Subject: [PATCH] Update depreciated regex syntax to perl 5.26 --- lib/Dimob/Config.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/Dimob/Config.pm b/lib/Dimob/Config.pm index d2e053c..791c879 100644 --- a/lib/Dimob/Config.pm +++ b/lib/Dimob/Config.pm @@ -78,8 +78,8 @@ sub evaluate_parameters { my $config = $self->config; for my $param (keys $config) { - if($config->{$param} =~ /{{.+}}/) { - $config->{$param} =~ s/{{([\w_]+)}}/$config->{$1}/eg; + if($config->{$param} =~ /\{\{.+\}\}/) { + $config->{$param} =~ s/\{\{([\w_]+)\}\}/$config->{$1}/eg; } } @@ -96,8 +96,8 @@ sub expand_directory { my $cfg = $self->config; # Expand filename - if($filename =~ /{{.+}}/) { - $filename =~ s/{{([\w_]+)}}/$cfg->{$1}/eg; + if($filename =~ /\{\{.+\}\}/) { + $filename =~ s/\{\{([\w_]+)\}\}/$cfg->{$1}/eg; } return $filename