mirror of
https://git.freebsd.org/ports.git
synced 2025-07-02 10:00:37 -04:00
20 lines
807 B
Perl
20 lines
807 B
Perl
--- ./lib/Sys/Filesystem/Cygwin.pm.orig Thu Jun 1 14:10:48 2006
|
|
+++ ./lib/Sys/Filesystem/Cygwin.pm Fri Nov 30 11:39:17 2007
|
|
@@ -36,7 +36,7 @@
|
|
|
|
local $/ = "\n";
|
|
my @keys = qw(fs_spec fs_file fs_vfstype fs_mntops);
|
|
- my @special_fs = qw(swap proc devpts tmpfs);
|
|
+ push (@Sys::Filesystem::special_fs, qw(devpts));
|
|
|
|
my $mtab = new FileHandle;
|
|
if ($mtab->open('mount|')) {
|
|
@@ -44,7 +44,7 @@
|
|
next if (/^\s*#/ || /^\s*$/);
|
|
if (my @vals = $_ =~ /^\s*(.+?) on (\/.+?) type (\S+) \((\S+)\)\s*$/) {
|
|
$self->{$vals[1]}->{mounted} = 1;
|
|
- $self->{$vals[1]}->{special} = 1 if grep(/^$vals[2]$/,@special_fs);
|
|
+ $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];
|
|
}
|