Update of /cvsroot/http-webtest/HTTP-WebTest/scripts
In directory usw-pr-cvs1:/tmp/cvs-serv26762
Modified Files:
pod_merge.PL
Log Message:
Fix some minor POD formatting problems (generated POD did not had
enough \n between sections)
Index: pod_merge.PL
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/scripts/pod_merge.PL,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** pod_merge.PL 15 May 2002 19:27:16 -0000 1.2
--- pod_merge.PL 20 Jun 2002 18:18:40 -0000 1.3
***************
*** 62,66 ****
# sort content of sections
! my @sections = map "=head2$_", grep /\S/, split '=head2', $sections{params};
@sections = map $_->[1],
sort { $a->[0] cmp $b->[0] }
--- 62,69 ----
# sort content of sections
! my @sections = map "=head2$_",
! grep /\S/,
! split '=head2', $sections{params};
! s/\s*$/\n\n/ for @sections;
@sections = map $_->[1],
sort { $a->[0] cmp $b->[0] }
|