2 files changed, 5 insertions, 0 deletions

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index bbbcc6bdc..36336b8c1 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -25,6 +25,9 @@ my ($w, @notebook, $done_button);
 
 =begin
 
+
+=head1 SYNOPSYS
+
 struct {
   string name      # which is displayed in tab of the notebook
   bool no_auto     # wether the kind can disappear after creation
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 122463ec9..21acdc568 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -19,6 +19,8 @@ use fs;
 
 =begin
 
+=head1 SYNOPSYS
+
 struct part {
   int active            # one of { 0 | 0x80 }  x86 only, primary only
   int start             # in sectors