[Perl-win32-gui-cvscommit] Win32-GUI/build_tools SrcParser.pm,1.3,1.4 doPodDocs.pl,1.4,1.5

[Robert May]

Update of /cvsroot/perl-win32-gui/Win32-GUI/build_tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32127/build_tools

Modified Files:
        SrcParser.pm doPodDocs.pl 
Log Message:
Reverted this-mornings changes;  They will be re-applied in smaller chunks

Index: doPodDocs.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/build_tools/doPodDocs.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** doPodDocs.pl        16 Mar 2006 08:57:48 -0000      1.4
--- doPodDocs.pl        16 Mar 2006 21:11:12 -0000      1.5
***************
*** 41,45 ****
    # GUI_MessageLoops.cpp
    push @files, "$src_dir/GUI_MessageLoops.cpp";
-   push @files, "$src_dir/CustomDraw.pm";
  
    # and all the XS files
--- 41,44 ----
***************
*** 164,168 ****
        BuildTools::macro_set("EVENTNAME", 
SrcParser::get_package_event_name($package, $event));
        BuildTools::macro_set("EVENTPROTO", 
SrcParser::get_package_event_prototype($package, $event));
!       BuildTools::macro_set("EVENTDESCR",
          fix_description( $package, 
SrcParser::get_package_event_description($package, $event) )
        );
--- 163,167 ----
        BuildTools::macro_set("EVENTNAME", 
SrcParser::get_package_event_name($package, $event));
        BuildTools::macro_set("EVENTPROTO", 
SrcParser::get_package_event_prototype($package, $event));
!       BuildTools::macro_set("EVENTDESCR", 
          fix_description( $package, 
SrcParser::get_package_event_description($package, $event) )
        );

Index: SrcParser.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/build_tools/SrcParser.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SrcParser.pm        16 Mar 2006 08:57:48 -0000      1.3
--- SrcParser.pm        16 Mar 2006 21:11:12 -0000      1.4
***************
*** 163,167 ****
                $pack = "Win32::GUI::" . $pack unless $pack eq '*';
  
!               # The same event has multiple legitimate definitions in 
different packages
                # for the same package:
                # for example, Terminate() is described in both  Window.xs and 
MDI.xs,
--- 163,167 ----
                $pack = "Win32::GUI::" . $pack unless $pack eq '*';
  
!               # The same evnet has multiple legitimate definitions in 
different packages
                # for the same package:
                # for example, Terminate() is described in both  Window.xs and 
MDI.xs,