aboutsummaryrefslogtreecommitdiff
path: root/perl/Curl_easy/Makefile.PL
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2001-10-01 07:40:32 +0000
committerDaniel Stenberg <daniel@haxx.se>2001-10-01 07:40:32 +0000
commit9ff28a823702781f7e90cd44f31032a453827e7a (patch)
treebc29b74be5941b9910f433042c182829cc44aba2 /perl/Curl_easy/Makefile.PL
parente9aa07f660a3663281416fd5d391bcee78a117ec (diff)
moved to separate module
Diffstat (limited to 'perl/Curl_easy/Makefile.PL')
-rw-r--r--perl/Curl_easy/Makefile.PL87
1 files changed, 0 insertions, 87 deletions
diff --git a/perl/Curl_easy/Makefile.PL b/perl/Curl_easy/Makefile.PL
deleted file mode 100644
index 551808fa9..000000000
--- a/perl/Curl_easy/Makefile.PL
+++ /dev/null
@@ -1,87 +0,0 @@
-# Makefile.PL for Perl extension Curl::easy.
-# Check out the file README for more info.
-
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- 'NAME' => 'Curl::easy',
- 'VERSION_FROM' => 'easy.pm', # finds $VERSION
- 'LIBS' => ['-lcurl '], # e.g., '-lm'
- 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
- 'INC' => '', # e.g., '-I/usr/include/other'
- 'clean' => {FILES => "head.out body.out"}
-);
-
-#
-# This utility helper generates the constants function from curl.h
-#
-# It is normally only used by the maintainer, but if you're curl is older
-# or missing some constants, you can delete curlopt-constants.c and re-run 'perl Makefile.PL'
-#
-
-if (!open(CONSTANTS,"<curlopt-constants.c")) {
- print "Rebuilding curlopt-constants.c for your libcurl version\n";
- close(CONSTANTS);
-
-#
-# You may need to specify where to find curl.h on your platform
-# These are guesses only
-#
-my $curl_h;
-HEADER: foreach my $try (qw(
-
- curl.h
- ../../include/curl.h
- /usr/include/curl/curl.h
- /usr/local/include/curl/curl.h
- C:\\INCLUDE\\CURL\\CURL.H
-
- ))
-{
- if (-e $try) {
- $curl_h=$try;
- last HEADER;
- }
-}
-
-if (!defined($curl_h)) {
- die "Could not rebuild curlopt-constants.c - can't find curl.h\n";
-}
-
-print "Found curl.h in $curl_h\n";
-open (CURL_H,"<".$curl_h) or die "Can't open curl.h\n";
-my %types;
-my %codes;
-while(<CURL_H>) {
- if ($_ =~ m/CINIT\(/ and $_ !~ m/#/) {
- my ($option,$type,$code)=m/.*CINIT\((\w*)\s*,\s*(\w+)\s*,\s*(\d+).*/;
- $types{$option}=$type;
- $codes{$option}=$code;
- }
-}
-close(CURL_H);
-
-# some things are ifdefed out...
-foreach my $ifdef0 (qw(FLAGS PROGRESSMODE))
-{
- delete $types{$ifdef0}; delete $codes{$ifdef0};
-}
-
-open(CURL_XS,">curlopt-constants.c") or die "Can't write curlopt-constants.c\n";
-foreach my $next_initial ('A'..'Z') {
- print CURL_XS " case '$next_initial':\n";
- my $count=0;
- foreach my $option (sort keys %types) {
- my $initial=substr($option,0,1);
- if ($next_initial eq $initial) {
- print CURL_XS " if (strEQ(name, \"$option\")) return CURLOPT_$option;\n";
- $count++;
- }
- }
- if ($count) {
- print CURL_XS " break;\n";
- }
-}
-close(CURL_XS);
-}