diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-24 17:38:46 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-24 17:49:49 +0200 |
| commit | b8ac3a77825a5d742f445f217a6688532f3d0345 (patch) | |
| tree | 926647f1c742f50718f0c13658130f6199761407 /perl-install/common.pm | |
| parent | 4c1cb5006360ccb780926000bd57f150e0fc8fbe (diff) | |
| download | drakx-b8ac3a77825a5d742f445f217a6688532f3d0345.tar drakx-b8ac3a77825a5d742f445f217a6688532f3d0345.tar.gz drakx-b8ac3a77825a5d742f445f217a6688532f3d0345.tar.bz2 drakx-b8ac3a77825a5d742f445f217a6688532f3d0345.tar.xz drakx-b8ac3a77825a5d742f445f217a6688532f3d0345.zip | |
(get_libdir) introduce it
it'll be reused in compssUsers.pl
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index b62893a97..ddffb53f4 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -10,7 +10,7 @@ use run_program; use Exporter; our @ISA = qw(Exporter); -our @EXPORT = qw($SECTORSIZE N P N_ check_for_xserver files_exist formatTime MB formatXiB get_parent_uid is_mgalive is_running is_uefi makedev mageia_release mageia_release_info removeXiBSuffix require_root_capability setVirtual set_alternative set_l10n_sort set_permissions to_utf8 translate unmakedev); +our @EXPORT = qw($SECTORSIZE N P N_ check_for_xserver files_exist formatTime MB formatXiB get_libdir get_parent_uid is_mgalive is_running is_uefi makedev mageia_release mageia_release_info removeXiBSuffix require_root_capability setVirtual set_alternative set_l10n_sort set_permissions to_utf8 translate unmakedev); # perl_checker: RE-EXPORT-ALL push @EXPORT, @MDK::Common::EXPORT; @@ -713,6 +713,10 @@ sub update_gnomekderc_no_create { } } +sub get_libdir() { + arch() =~ /x86_64/ ? "lib64" : "lib"; +} + =item is_mgalive() Checks if we are in mga live mode |