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