From cf00a8fe5a66136136f8ff78766cb64c4621f88d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 19 Nov 2002 07:02:26 +0000 Subject: make perldoc working --- perl-install/diskdrake/hd_gtk.pm | 3 +++ perl-install/diskdrake/interactive.pm | 2 ++ 2 files changed, 5 insertions(+) (limited to 'perl-install/diskdrake') 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 -- cgit v1.2.1