Moved examples to eg/

diff --git a/perl/MANIFEST b/perl/MANIFEST
index ff2c5c7..d7fa8e5 100644 (file)
--- a/perl/MANIFEST
+++ b/perl/MANIFEST
@@ -1,4 +1,7 @@
 ChangeLog
+eg/echo.pl
+eg/remote.pl
+eg/threaded.pl
 FCGI.pm
 FCGI.xs
 MANIFEST
@@ -7,10 +10,6 @@ README
 configure
 configure.in
 configure.readme
-echo.PL
 fcgi_config.h.in
-remote.PL
 test.pl
-threaded.PL
 typemap
-version.pm

diff --git a/perl/Makefile.PL b/perl/Makefile.PL
index 167d1f6..a7b5be3 100644 (file)
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@@ -74,12 +74,6 @@ push @extras, META_MERGE => {
     },
 } if $ExtUtils::MakeMaker::VERSION >= 6.46;
 
-$plfiles = {
-    'echo.PL' => 'echo.fpl',
-    'remote.PL' => 'remote.fpl',
-    'threaded.PL' => 'threaded.fpl',
-};
-
 if ("$sys" eq "win32") {
     push @libs, ":nosearch -lws2_32";
     push @extras, 'DEFINE' => '-DDLLAPI=__declspec(dllexport)';
@@ -111,9 +105,7 @@ WriteMakefile(
                 '$(MV) MANIFEST.old MANIFEST',
     },
     'clean'        => { FILES => 'config.cache fcgi_config.h' .
-                      ' FCGI.c ' .
-                      (join ' ', values %$plfiles)},
-    'PL_FILES'        => $plfiles,
+                      ' FCGI.c ' },
     PM            => {'FCGI.pm' => '$(INST_ARCHLIBDIR)/FCGI.pm'},
     @extras,
 );

diff --git a/perl/echo.PL b/perl/eg/echo.pl
similarity index 92%
rename from perl/echo.PL
rename to perl/eg/echo.pl
index a8f9dec..c433681 100644 (file)
--- a/perl/echo.PL
+++ b/perl/eg/echo.pl
@@ -1,12 +1,5 @@
-use Config;
+#!/usr/bin/perl
 
-open OUT, ">echo.fpl";
-print OUT "#!$Config{perlpath}\n";
-print OUT while <DATA>;
-close OUT;
-chmod 0755, "echo.fpl";
-__END__
-#
 #  echo-perl --
 # 
 #      Produce a page containing all FastCGI inputs

diff --git a/perl/remote.PL b/perl/eg/remote.pl
similarity index 85%
rename from perl/remote.PL
rename to perl/eg/remote.pl
index bcfdd7f..5326041 100644 (file)
--- a/perl/remote.PL
+++ b/perl/eg/remote.pl
@@ -1,11 +1,4 @@
-use Config;
-
-open OUT, ">remote.fpl";
-print OUT "#!$Config{perlpath}\n";
-print OUT while <DATA>;
-close OUT;
-chmod 0755, "remote.fpl";
-__END__
+#!/usr/bin/perl
 # An example of using a remote script with an Apache webserver.
 # Run this Perl program on "otherhost" to bind port 8888 and wait
 # for FCGI requests from the webserver.

diff --git a/perl/threaded.PL b/perl/eg/threaded.pl
similarity index 86%
rename from perl/threaded.PL
rename to perl/eg/threaded.pl
index f8a8c62..09998f1 100644 (file)
--- a/perl/threaded.PL
+++ b/perl/eg/threaded.pl
@@ -1,11 +1,4 @@
-use Config;
-
-open OUT, ">threaded.fpl";
-print OUT "#!$Config{perlpath}\n";
-print OUT while <DATA>;
-close OUT;
-chmod 0755, "threaded.fpl";
-__END__
+#!/usr/bin/perl
 
 use FCGI;
 use Thread;