diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-19 23:20:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-19 23:20:19 +0000 |
| commit | 528338fa75e8ceedbf17763bf5a5c094e92d0fe8 (patch) | |
| tree | eba70b060fea721ded1b6f1fb36462730f5390ee /perl-install/common.pm | |
| parent | 8c744cf3d47bf1295ced161e7ef9776a25efeeb8 (diff) | |
| download | drakx-backup-do-not-use-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar drakx-backup-do-not-use-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar.gz drakx-backup-do-not-use-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar.bz2 drakx-backup-do-not-use-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar.xz drakx-backup-do-not-use-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.zip | |
rename isCdNotEjectable in usingRamdisk, ensure no files are removed unless we're in ramdisk
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 80b406780..e08f754ee 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -8,7 +8,7 @@ use vars qw(@ISA @EXPORT $SECTORSIZE); @ISA = qw(Exporter); # no need to export ``_'' -@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt isCdNotEjectable); +@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt); # perl_checker: RE-EXPORT-ALL push @EXPORT, @MDK::Common::EXPORT; @@ -114,7 +114,7 @@ sub formatTime { } } -sub isCdNotEjectable { scalar(grep { /ram3/ } cat_("/proc/mounts")) == 0 } +sub usingRamdisk { scalar(grep { /ram3/ } cat_("/proc/mounts")) } sub sync { &MDK::Common::System::sync } |