Skip Menu |
 

This queue is for tickets about the Filesys-DiskSpace CPAN distribution.

Report information
The Basics
Id: 14118
Status: new
Priority: 0/
Queue: Filesys-DiskSpace

People
Owner: Nobody in particular
Requestors: vincent [...] vinc17.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)

Attachments


Subject: patch adding darwin support
Patch that adds darwin (Mac OS X) support and removes 2 unused variables.
Download DiskSpace.pm.patch
text/x-diff 653b
--- /opt/local/lib/perl5/vendor_perl/5.8.7/Filesys/DiskSpace.pm 1999-09-05 22:41:22.000000000 +0000 +++ lib/site_perl/Filesys/DiskSpace.pm 2005-08-03 01:38:45.000000000 +0000 @@ -89,10 +89,9 @@ $res = syscall (&main::SYS_statfs, $dir, $fmt); # statfs... - if ($^O eq 'freebsd') { + if ($^O eq 'freebsd' || $^O eq 'darwin') { # only tested with FreeBSD 3.0. Should also work with 4.0. - my ($f1, $f2); - ($f1, $bsize, $f2, $blocks, $bfree, $bavail, $files, $ffree) = + (undef, $bsize, undef, $blocks, $bfree, $bavail, $files, $ffree) = unpack "L8", $fmt; $type = 0; # read it from 'f_type' field ? }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.