[Winguitest-cvs] Win32-GuiTest/eg make_eg.pl,NONE,1.1

[Dmitry K. <in...@us...>]

Update of /cvsroot/winguitest/Win32-GuiTest/eg
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19058/eg

Added Files:
	make_eg.pl 
Log Message:
(bug #50642) make_eg.pl gets installed into site/lib/Win32/make_eg.pl


--- NEW FILE: make_eg.pl ---
#!perl -w
use strict;

# this script was included in the makedist.pl to generate the Examples.pm file
# every time building a new distribtion.
# We should also make sure the file is included in the distribution and
# installed on the target machines.
 
# Written by Gabor Szabo <ga...@pt...>


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;
1;

=head1 NAME

Win32::GuiTest::Examples - collection of the scripts from eg

=head1 Synopsis

This module was autogenerated from the files in the eg directory of
the distribution. For detailed (cough) documenataion see L<Win32::GuiTest>.
To run the examples either copy-paste them from here or download and unpack
the distribution and take the files from the eg directory.

=head1 Examples

END


open(MAN, "<MANIFEST");
my @manifest = <MAN>;
close(MAN);

foreach my $file (@manifest)  {
	chomp $file;
	next if $file !~ m{eg/(.*)\.pl};
	next if $1 eq 'make_eg';

	print $out "\n=head2 $file\n\n";
	open my $fh, "<", $file;
	my @lines = <$fh>;
	for ( @lines) {
		next if /^#\s*\$Id/;
		print $out "    $_";
	}
}

print $out <<END;



=cut

END