diff options
| author | Stephan Bergmann <sbergman@redhat.com> | 2011-10-20 16:35:20 +0200 |
|---|---|---|
| committer | Stephan Bergmann <sbergman@redhat.com> | 2011-10-20 23:04:11 +0200 |
| commit | daabd72e077b3b0a80dcde98aea87fe9a7ff06e5 (patch) | |
| tree | 1541c7c0e5c8991867c2d2b60689b80d11dee6a9 | |
| parent | 10ce581cfc7a3fd74200910291a0fb916180e772 (diff) | |
Report failing Unixlink processing.
| -rw-r--r-- | solenv/bin/modules/installer/worker.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/solenv/bin/modules/installer/worker.pm b/solenv/bin/modules/installer/worker.pm index ada43720fc75..312f30007f0a 100644 --- a/solenv/bin/modules/installer/worker.pm +++ b/solenv/bin/modules/installer/worker.pm @@ -779,8 +779,9 @@ sub install_simple ($$$$$$) my $onelink = ${$unixlinksarray}[$i]; my $target = $onelink->{'Target'}; my $destination = $onelink->{'destination'}; + my $cmd = "ln -sf '$target' '$destdir$destination'"; - `ln -sf '$target' '$destdir$destination'`; + system($cmd) && die "Failed \"$cmd\""; push @lines, "$destination\n"; } |