From fa4d640e6562b335f3f21401aeacfd5c0f2aea01 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 18 Nov 2013 01:41:35 +0100
Subject: perlish ->child() => ->get_child()

---
 bin/draknfs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'bin/draknfs')

diff --git a/bin/draknfs b/bin/draknfs
index 6a73b7a..b071807 100755
--- a/bin/draknfs
+++ b/bin/draknfs
@@ -290,7 +290,7 @@ sub add_modify_entry {
     if (!member($listshare[$i]{access}, @access_list)) {
       $access->entry->append_text($listshare[$i]{access});
     }
-#    $access->child->set_text($listshare[$i]{access});
+#    $access->get_child->set_text($listshare[$i]{access});
 #    $access->set_text($listshare[$i]{access});
     $access->entry->set_text($listshare[$i]{access});
 
@@ -433,7 +433,7 @@ sub add_modify_entry {
 				err_dialog(N("Error"), N("Please specify a directory to share.")) and return;
 			    }
 			    mkdir_p($test_dir) or err_dialog(N("Error"), N("Can't create this directory.")) and return;
-			    #my $test_access = $access->child->get_text;
+			    #my $test_access = $access->get_child->get_text;
 			    my $test_access = $access->entry->get_text;
 			    $test_access or err_dialog(N("Error"), N("You must specify hosts access.")) and return;
 			    if ($wanted =~ /add/) {
@@ -441,14 +441,14 @@ sub add_modify_entry {
 				$i = "-1";
 				push @listshare, {
 				dir => $dir->get_text,
-				#access => $access->child->get_text,
+				#access => $access->get_child->get_text,
 				access => $access->entry->get_text,
 				right => $all_right,
 				options => $options->get_text,
 			    };
 			    }
 			    $listshare[$i]{right} = $all_right;
-			    #$listshare[$i]{access} = $access->child->get_text;
+			    #$listshare[$i]{access} = $access->get_child->get_text;
 			    $listshare[$i]{access} = $access->entry->get_text;
 			    $listshare[$i]{dir} = $dir->get_text;
 			    $listshare[$i]{options} = $options->get_text;
-- 
cgit v1.2.1