From 1dc471ae01546f5099cd8bb71497d80133551399 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Oliver=20G=C3=BCnther?= Date: Mon, 13 Apr 2026 13:36:40 +0200 Subject: [PATCH] Update perl command to use list, not string system call --- extra/Apache/OpenProjectRepoman.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/Apache/OpenProjectRepoman.pm b/extra/Apache/OpenProjectRepoman.pm index 7a6d9a14490..6720a237dd2 100644 --- a/extra/Apache/OpenProjectRepoman.pm +++ b/extra/Apache/OpenProjectRepoman.pm @@ -49,12 +49,12 @@ sub create_repository { my ($r, $vendor, $repository, $repository_root, $request) = @_; my $command = { - git => "git init $repository --shared --bare", - subversion => "svnadmin create $repository" + git => [qw(git init), $repository, qw(--shared --bare)], + subversion => [qw(svnadmin create), $repository] }->{$vendor}; die "No create command known for vendor '$vendor'\n" unless defined($command); - die "Could not create repository.\n" unless system($command) == 0; + die "Could not create repository.\n" unless system(@$command) == 0; } ##