sysutils/p5-Sys-Filesystem/files/patch-lib-Sys-Filesystem-Linux.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

--- ./lib/Sys/Filesystem/Linux.pm.orig	Thu Jun  1 14:10:48 2006
+++ ./lib/Sys/Filesystem/Linux.pm	Fri Nov 30 11:39:17 2007
@@ -41,6 +41,7 @@
 
 	# Default fstab and mtab layout
 	my @keys = qw(fs_spec fs_file fs_vfstype fs_mntops fs_freq fs_passno);
+	push (@Sys::Filesystem::special_fs, qw(devpts usbfs sysfs binfmt_misc rpc_pipefs));
 
 	# Read the fstab
 	my $fstab = new FileHandle;
@@ -54,7 +55,7 @@
 			$self->{$vals[1]}->{mount_point} = $vals[1];
 			$self->{$vals[1]}->{device} = $vals[0];
 			$self->{$vals[1]}->{unmounted} = 1;
-			$self->{$vals[1]}->{special} = 1 if grep(/^$vals[2]$/,qw(swap proc devpts tmpfs));
+			$self->{$vals[1]}->{special} = 1 if grep(/^$vals[2]$/,@Sys::Filesystem::special_fs);
 			for (my $i = 0; $i < @keys; $i++) {
 				$self->{$vals[1]}->{$keys[$i]} = $vals[$i];
 			}