[Openinteract-commits] CVS: OpenInteract2/pkg/system_doc/OpenInteract2 PodView.pm,1.7,1.8

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/pkg/system_doc/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24747/OpenInteract2

Modified Files:
	PodView.pm 
Log Message:
ensure that we're able to find all pod (even if it's not in a PM); also don't use command-line perldoc

Index: PodView.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/system_doc/OpenInteract2/PodView.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** PodView.pm	18 Mar 2005 04:09:47 -0000	1.7
--- PodView.pm	31 Oct 2005 02:33:07 -0000	1.8
***************
*** 27,31 ****
  sub view_over {
      my ( $self, $over ) = @_;
!     my $first_title = ($over->content)[0]->title;
      my $list_type   = 'ul';
      if ( $first_title =~ /^(\d+)/ ) {
--- 27,36 ----
  sub view_over {
      my ( $self, $over ) = @_;
!     my ( $first_title );
! 
!     # this might die if there's no first item, but that's ok
!     eval {
!         $first_title = ($over->content)[0]->title;
!     };
      my $list_type   = 'ul';
      if ( $first_title =~ /^(\d+)/ ) {