[Winguitest-cvs] Win32-GuiTest make_eg.pl,1.1,1.2

[Gabor S. <sz...@us...>]

Update of /cvsroot/winguitest/Win32-GuiTest
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3367

Modified Files:
	make_eg.pl 
Log Message:
only include examples from manifest

Index: make_eg.pl
===================================================================
RCS file: /cvsroot/winguitest/Win32-GuiTest/make_eg.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** make_eg.pl	15 Jul 2004 22:02:06 -0000	1.1
--- make_eg.pl	21 Jul 2004 21:37:15 -0000	1.2
***************
*** 6,16 ****
  # We should also make sure the file is included in the distribution and
  # installed on the target machines.
- 
   
- # TODO: maybe use only the files which are also mentioned in the manifest
  # Written by Gabor Szabo <ga...@pt...>
  
  
- 
  open my $out, ">Examples.pm";
  print $out <<END;
--- 6,13 ----
***************
*** 34,39 ****
  
  
  
- foreach my $file (<eg\\*.pl>)  {
  	print $out "\n=head2 $file\n\n";
  	open my $fh, "<", $file;
--- 31,42 ----
  
  
+ open(MAN, "<manifest");
+ my @manifest = <MAN>;
+ close(MAN);
+ 
+ foreach my $file (@manifest)  {
+ 	chomp $file;
+ 	next if $file !~ m{eg/.*\.pl};
  
  	print $out "\n=head2 $file\n\n";
  	open my $fh, "<", $file;