Removed genereating of FCGI.xs

diff --git a/perl/FCGI.XL b/perl/FCGI.xs
similarity index 97%
rename from perl/FCGI.XL
rename to perl/FCGI.xs
index 3d5e07a..63bb247 100644 (file)
--- a/perl/FCGI.XL
+++ b/perl/FCGI.xs
@@ -1,17 +1,3 @@
-use Config;
-
-open OUT, ">FCGI.xs";
-
-print "Generating FCGI.xs for Perl version $]\n";
-#unless (exists $Config{apiversion} && $Config{apiversion} >= 5.005) 
-unless ($] >= 5.005) {
-    for (qw(sv_undef diehook warnhook in_eval)) {
-    print OUT "#define PL_$_ $_\n" 
-    }
-}
-print OUT while <DATA>;
-close OUT;
-__END__
 /* $Id: FCGI.XL,v 1.10 2003/06/22 00:24:11 robs Exp $ */
 
 #include "EXTERN.h"

diff --git a/perl/MANIFEST b/perl/MANIFEST
index 07ded82..6e02c14 100644 (file)
--- a/perl/MANIFEST
+++ b/perl/MANIFEST
@@ -1,6 +1,6 @@
 ChangeLog
 FCGI.PL
-FCGI.XL
+FCGI.xs
 MANIFEST
 Makefile.PL
 README

diff --git a/perl/Makefile.PL b/perl/Makefile.PL
index 9e712f7..27a45e8 100644 (file)
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@@ -79,7 +79,6 @@ $plfiles = {
     'remote.PL' => 'remote.fpl',
     'threaded.PL' => 'threaded.fpl',
     'FCGI.PL' => 'FCGI.pm',
-    'FCGI.XL' => 'FCGI.xs',
 };
 
 if ("$sys" eq "win32") {
@@ -113,7 +112,7 @@ WriteMakefile(
                 '$(MV) MANIFEST.old MANIFEST',
     },
     'clean'        => { FILES => 'config.cache fcgi_config.h' .
-                      ' FCGI.xs FCGI.c ' .
+                      ' FCGI.c ' .
                       (join ' ', values %$plfiles)},
     'PL_FILES'        => $plfiles,
     PM            => {'FCGI.pm' => '$(INST_ARCHLIBDIR)/FCGI.pm'},
@@ -131,13 +130,6 @@ if ($sys eq "win32") {
     unlink("fcgi_config.h");
     my $confdir = $prefix ? "$prefix/include/" : '';
     die $! unless copy("${confdir}fcgi_config_x86.h","fcgi_config.h");
-
-    # Win can't deal with existence of FCGI.xs or absence of FCGI.c
-    unlink("FCGI.xs");
-    open(F, ">FCGI.c"); close(F);
-    $now = time; $before = $now - 600;
-    utime $before, $before, "FCGI.c";
-    utime $now, $now, "FCGI.PL";
 } else {
     print "Running ./configure for you\n";
     print "Please read configure.readme for information on how to run it yourself\n";