mirror of
https://codeberg.org/scip/pcp.git
synced 2025-12-17 03:50:57 +01:00
added support for backticks in variables
This commit is contained in:
@@ -73,6 +73,10 @@ sub runtest {
|
|||||||
my($cfg, $name) = @_;
|
my($cfg, $name) = @_;
|
||||||
my($in, $out, $error, $timeout);
|
my($in, $out, $error, $timeout);
|
||||||
|
|
||||||
|
foreach my $key (keys %{$cfg}) {
|
||||||
|
$cfg->{$key} =~ s/\`([^\`]*)\`/my $result = `$1`; chomp $result; $result/ge;
|
||||||
|
}
|
||||||
|
|
||||||
if (exists $cfg->{prepare}) {
|
if (exists $cfg->{prepare}) {
|
||||||
print STDERR " executing prepare command: $cfg->{prepare}\n" if ($verbose);
|
print STDERR " executing prepare command: $cfg->{prepare}\n" if ($verbose);
|
||||||
if ($cfg->{prepare} =~ />/) {
|
if ($cfg->{prepare} =~ />/) {
|
||||||
|
|||||||
Reference in New Issue
Block a user