perlish $dialog->vbox => $dialog->get_child

1 files changed, 1 insertions, 1 deletions

diff --git a/bin/draknetprofile b/bin/draknetprofile
index 4df4330..d394b28 100755
--- a/bin/draknetprofile
+++ b/bin/draknetprofile
@@ -158,7 +158,7 @@ sub clone_profile() {
     #my $source_profile = get_selected_profile();
     my $dialog = _create_dialog(N("New profile..."));
     my $entry_dialog = Gtk3::Entry->new;
-    gtkpack($dialog->vbox,
+    gtkpack($dialog->get_child,
             Gtk3::WrappedLabel->new(N("Please specify the name of the new network profile to be created (e.g., work, home, roaming, ..). This new profile will be created based on current settings, and you'll be able to configure your system configuration as usual afterwards.")),
             $entry_dialog,
         );