[Http-webtest-commits] CVS: HTTP-WebTest/scripts pod_merge.PL,1.2,1.3

[Ilya M. <m_...@us...>]

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] }