[Winguitest-cvs] Win32-GuiTest make_eg.pl,1.4,1.5

[Piotr K. <pka...@us...>]

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

Modified Files:
	make_eg.pl 
Log Message:
Adopted to file location changes

Index: make_eg.pl
===================================================================
RCS file: /cvsroot/winguitest/Win32-GuiTest/make_eg.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** make_eg.pl	3 Feb 2005 01:02:19 -0000	1.4
--- make_eg.pl	23 Oct 2007 11:40:40 -0000	1.5
***************
*** 10,14 ****
  
  
! open my $out, ">Examples.pm";
  print $out <<END;
  package Win32::GuiTest::Examples;
--- 10,14 ----
  
  
! open my $out, ">lib/Win32/GuiTest/Examples.pm" or die "Cannot open lib/Win32/GuiTest/Examples.pm:$!\n";
  print $out <<END;
  package Win32::GuiTest::Examples;
***************
*** 42,46 ****
  	open my $fh, "<", $file;
  	my @lines = <$fh>;
! 	print $out "    $_" foreach @lines;
  }
  
--- 42,49 ----
  	open my $fh, "<", $file;
  	my @lines = <$fh>;
! 	for ( @lines) {
! 		next if /^#\s*\$Id/;
! 		print $out "    $_";
! 	}
  }