From c1f72276e089de701cce0f4f8def94e87ed13a5c Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Thu, 25 Aug 2005 13:07:48 +0000 Subject: cosmetic fix --- perl-install/standalone/draksambashare | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare index ad702f8aa..dd393344b 100755 --- a/perl-install/standalone/draksambashare +++ b/perl-install/standalone/draksambashare @@ -422,7 +422,7 @@ sub modify_entry { my $share = $share_name->get_text; my $test_dir = $dir->get_text; $comment->get_text or err_dialog(N("Information"), N("Please enter a Comment for this share.")) and return 1; - if ($share !~ 'homes' and !-d $test_dir) { + if ($share !~ /^homes$/ and !-d $test_dir) { err_dialog(N("Error!"), N("Please enter a directory to share.")) and return; } foreach ($create_mask->get_text, $directory_mask->get_text) { -- cgit v1.2.1