From d2b0100357fa8c6d04d9efb326c3a78916a01b6f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Feb 2002 13:22:55 +0000
Subject: don't show shares ending with "$"

---
 perl-install/network/smb.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index 2cb8ce9ae..1e141fe48 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -56,7 +56,7 @@ sub find_exports {
 	my ($name, $type, $comment) = unpack "A15 A10 A*", $_;
 	if ($name eq '---------' && $type eq '----' && $comment eq '-------' .. /^$/) {
 	    push @l, { name => $name, type => $type, comment => $comment }
-	      if $type eq 'Disk' && $name ne 'ADMIN$';
+	      if $type eq 'Disk' && $name !~ /\$$/;
 	}
     }
     @l;
-- 
cgit v1.2.1