This will avoid problmes with symlinks as well as paths
containing ./, ../ or trailing slashes.
use Time::HiRes qw (gettimeofday);
use IO::File;
use PVE::Tools;
use Time::HiRes qw (gettimeofday);
use IO::File;
use PVE::Tools;
my $clock_ticks = POSIX::sysconf(&POSIX::_SC_CLK_TCK);
my $clock_ticks = POSIX::sysconf(&POSIX::_SC_CLK_TCK);
sub is_mounted {
my ($mountpoint) = @_;
sub is_mounted {
my ($mountpoint) = @_;
+ $mountpoint = Cwd::realpath($mountpoint);
+
my $mountdata = read_proc_mounts();
if ($mountdata =~ m/\s$mountpoint\s/) {
my $mountdata = read_proc_mounts();
if ($mountdata =~ m/\s$mountpoint\s/) {