diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2017-04-03 17:21:08 +0200 |
|---|---|---|
| committer | Rémi Verschelde <rverschelde@gmail.com> | 2017-04-04 20:06:18 +0200 |
| commit | 121369c77f8121376546b6094851fb1036665ed0 (patch) | |
| tree | 8c6cf6e846782ac6886ef04514cb90526e54039f /perl-install | |
| parent | 0f4ad0ec62a120258307c5bcad6f68abbb2d369a (diff) | |
| download | drakx-121369c77f8121376546b6094851fb1036665ed0.tar drakx-121369c77f8121376546b6094851fb1036665ed0.tar.gz drakx-121369c77f8121376546b6094851fb1036665ed0.tar.bz2 drakx-121369c77f8121376546b6094851fb1036665ed0.tar.xz drakx-121369c77f8121376546b6094851fb1036665ed0.zip | |
kill now useless is_mgalive()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/common.pm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 83ce5f928..16c2b9443 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_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); +our @EXPORT = qw($SECTORSIZE N P N_ check_for_xserver files_exist formatTime MB formatXiB get_libdir get_parent_uid 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; @@ -718,14 +718,6 @@ sub get_libdir() { arch() =~ /x86_64/ ? "lib64" : "lib"; } -=item is_mgalive() - -Checks if we are in mga live mode - -=cut - -sub is_mgalive() { -e "/run/mgalive" } - =item is_uefi() Checks if we are on an uefi system |