|
Lines 1-5
Link Here
|
| 1 |
--- ./lib/Sys/Filesystem/Freebsd.pm.orig Sat Mar 25 14:44:35 2006 |
1 |
--- ./lib/Sys/Filesystem/Freebsd.pm.orig Mon Sep 18 11:07:46 2006 |
| 2 |
+++ ./lib/Sys/Filesystem/Freebsd.pm Thu Jun 1 14:55:02 2006 |
2 |
+++ ./lib/Sys/Filesystem/Freebsd.pm Mon Sep 18 11:10:30 2006 |
| 3 |
@@ -26,20 +26,33 @@ |
3 |
@@ -26,20 +26,33 @@ |
| 4 |
use FileHandle; |
4 |
use FileHandle; |
| 5 |
use Carp qw(croak); |
5 |
use Carp qw(croak); |
|
Lines 18-25
Link Here
|
| 18 |
+ croak "The statfs strucuture changed version (" . &STATFS_VERSION . ")\n"; |
18 |
+ croak "The statfs strucuture changed version (" . &STATFS_VERSION . ")\n"; |
| 19 |
+} |
19 |
+} |
| 20 |
+# unpack format, we want the 3rd and the last 3 fields. |
20 |
+# unpack format, we want the 3rd and the last 3 fields. |
| 21 |
+my $format = 'x8L' . 'x192' . ('A' . &MNAMELEN ) x 3 ; |
21 |
+my $format = 'x8L' . 'x268' . 'A' . &MFSNAMELEN . ('A' . &MNAMELEN ) x 2 ; |
| 22 |
+ |
22 |
+ |
| 23 |
sub new { |
23 |
sub new { |
| 24 |
ref(my $class = shift) && croak 'Class name required'; |
24 |
ref(my $class = shift) && croak 'Class name required'; |
| 25 |
my %args = @_; |
25 |
my %args = @_; |
|
Lines 33-39
Link Here
|
| 33 |
|
33 |
|
| 34 |
my @keys = qw(fs_spec fs_file fs_vfstype fs_mntops fs_freq fs_passno); |
34 |
my @keys = qw(fs_spec fs_file fs_vfstype fs_mntops fs_freq fs_passno); |
| 35 |
- my @special_fs = qw(swap proc devpts tmpfs); |
35 |
- my @special_fs = qw(swap proc devpts tmpfs); |
| 36 |
+ my @special_fs = qw(swap proc devpts devfs tmpfs); |
36 |
+ my @special_fs = qw(swap procfs devpts devfs tmpfs); |
| 37 |
|
37 |
|
| 38 |
# Read the fstab |
38 |
# Read the fstab |
| 39 |
my $fstab = new FileHandle; |
39 |
my $fstab = new FileHandle; |