From 87471ab92dc4c0089d021db3faa27ed2f929fb6b Mon Sep 17 00:00:00 2001 From: Sadie Powell Date: Sat, 18 Jan 2020 14:03:18 +0000 Subject: Add a function for showing a command whilst executing it. --- vendor/update | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'vendor') diff --git a/vendor/update b/vendor/update index c57918cb5..6f9ff5e86 100755 --- a/vendor/update +++ b/vendor/update @@ -57,14 +57,14 @@ while (my ($name, $info) = each $data) { my $vendordir = catdir $RealDir, $name; my $success = 0; if (defined $info->{git}) { - $success ||= system 'git', 'clone', $info->{git}, $unpackdir; + $success ||= execute 'git', 'clone', $info->{git}, $unpackdir; chomp(my $tag = `git -C $unpackdir describe --abbrev=0 --tags HEAD 2>/dev/null`) unless $success; - $success ||= system 'git', '-C', $unpackdir, 'checkout', $tag if $tag; + $success ||= execute 'git', '-C', $unpackdir, 'checkout', $tag if $tag; chomp($info->{version} = `git -C $unpackdir describe --always --tags HEAD 2>/dev/null`); } elsif (defined $info->{tarball}) { my $tarball = catfile $unpackdir, basename $info->{tarball}; - $success ||= system 'wget', '--output-document', $tarball, $info->{tarball}; - $success ||= system 'tar', 'fx', $tarball, '-C', $unpackdir, '--strip-components', 1; + $success ||= execute 'wget', '--output-document', $tarball, $info->{tarball}; + $success ||= execute 'tar', 'fx', $tarball, '-C', $unpackdir, '--strip-components', 1; } else { print_error "unable to update $name; no git or tarball specified!"; } -- cgit v1.2.3