Fix warning about deprecated regex syntax using perl 5.22 here.

More information can be found here: http://www.perlmonks.org/?node_id=1104519

REVIEW: 124476
wilder
Jeremy Whiting 11 years ago
parent 79a4147442
commit e2b5dc2b2f
  1. 4
      modules/ksb/Module.pm

@ -957,7 +957,7 @@ sub destDir
$basePath ||= $self->name(); # Default if not provided in XML $basePath ||= $self->name(); # Default if not provided in XML
} }
$destDir =~ s/(\${MODULE})|(\$MODULE\b)/$basePath/g; $destDir =~ s/(\$\{MODULE})|(\$MODULE\b)/$basePath/g;
return $destDir; return $destDir;
} }
@ -978,7 +978,7 @@ sub installationPath
} }
my $moduleName = $self->name(); my $moduleName = $self->name();
$path =~ s/(\${MODULE})|(\$MODULE\b)/$moduleName/g; $path =~ s/(\$\{MODULE})|(\$MODULE\b)/$moduleName/g;
return $path; return $path;
} }

Loading…
Cancel
Save