From 8d652277a56d88dd8beb64ee0f241688ee3361f0 Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@hyperic.com>
Date: Wed, 21 Jul 2004 20:04:31 +0000
Subject: [PATCH] adjust to api change

---
 bindings/perl/examples/df.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bindings/perl/examples/df.pl b/bindings/perl/examples/df.pl
index d1a2aaf8..295001de 100755
--- a/bindings/perl/examples/df.pl
+++ b/bindings/perl/examples/df.pl
@@ -11,7 +11,7 @@ print "Filesytem\tSize\tUsed\tAvail\tUse%\tMounted on\tType\n";
 
 for my $fs (@$fslist) {
     my $dirname = $fs->dir_name;
-    my $usage = $sigar->filesystemusage($dirname);
+    my $usage = $sigar->file_system_usage($dirname);
 
     my $total = $usage->total;
     my $used  = $total - $usage->free;