bughz
/
sigar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

catch file_system_usage exceptions

This commit is contained in:
Doug MacEachern 2004-09-17 18:15:36 +00:00
parent 0374c719ee
commit e358790125
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
bindings/perl/examples/df.pl
View File

@ -11,7 +11,13 @@ print "Filesytem\tSize\tUsed\tAvail\tUse%\tMounted on\tType\n";
for my $fs (@$fslist) { for my $fs (@$fslist) {
my $dirname = $fs->dir_name; my $dirname = $fs->dir_name;
my $usage = $sigar->file_system_usage($dirname); my $usage;
#e.g. on win32 D:\ fails with "Device not ready"
#if there is no cd in the drive.
eval {
$usage = $sigar->file_system_usage($dirname);
} or next;
my $total = $usage->total; my $total = $usage->total;
my $used = $total - $usage->free; my $used = $total - $usage->free;