diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index f3aa17273..9ffb01ea1 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -239,6 +239,12 @@ sub join_lines { } +sub read_alternative { + my ($name) = @_; + my $alt = readlink("$::prefix/etc/alternatives/$name"); + $alt && $::prefix . $alt; +} + sub set_alternative { my ($command, $executable) = @_; |