source: trunk/dports/perl/p5-filesys-diskspace/files/patch-lib-Filesys-Diskspace.pm @ 21494

Last change on this file since 21494 was 21494, checked in by eridius@…, 13 years ago

Massive update to svn properties on files:
All patchfiles have svn:eol-style removed.
All files that are not in fact able to be executed have svn:executable removed
All binary files have svn:eol-style removed (and are probably corrupt)
All binary files have svn:mime-type set to application/octet-stream
All files which are not patchfiles or binary files have svn:eol-style set to native
All Portfiles have svn:eol-style set to native and svn:executable removed

File size: 627 bytes
Line 
1--- /lib/Filesys/DiskSpace.pm.org       1999-09-05 22:41:22.000000000 +0000
2+++ lib/Filesys/DiskSpace.pm    2005-08-03 01:38:45.000000000 +0000
3@@ -89,10 +89,9 @@
4     $res = syscall (&main::SYS_statfs, $dir, $fmt);
5     # statfs...
6
7-    if ($^O eq 'freebsd') {
8+    if ($^O eq 'freebsd' || $^O eq 'darwin') {
9       # only tested with FreeBSD 3.0. Should also work with 4.0.
10-      my ($f1, $f2);
11-      ($f1, $bsize, $f2, $blocks, $bfree, $bavail, $files, $ffree) =
12+      (undef, $bsize, undef, $blocks, $bfree, $bavail, $files, $ffree) =
13        unpack "L8", $fmt;
14       $type = 0; # read it from 'f_type' field ?
15     }
Note: See TracBrowser for help on using the repository browser.