| CARVIEW |
Select Language
HTTP/2 302
server: nginx
date: Tue, 29 Jul 2025 01:32:10 GMT
content-type: text/plain; charset=utf-8
content-length: 0
x-archive-redirect-reason: found capture at 20210117100944
location: https://web.archive.org/web/20210117100944/https://perl5.git.perl.org/perl5.git/blob/HEAD:/mkppport
server-timing: captures_list;dur=0.737954, exclusion.robots;dur=0.025623, exclusion.robots.policy;dur=0.010880, esindex;dur=0.012221, cdx.remote;dur=32.740260, LoadShardBlock;dur=271.716859, PetaboxLoader3.resolve;dur=187.622240, PetaboxLoader3.datanode;dur=79.560727
x-app-server: wwwb-app215
x-ts: 302
x-tr: 335
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
set-cookie: SERVER=wwwb-app215; path=/
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
HTTP/2 200
server: nginx
date: Tue, 29 Jul 2025 01:32:11 GMT
content-type: application/xhtml+xml; charset=utf-8
x-archive-orig-date: Sun, 17 Jan 2021 10:09:43 GMT
x-archive-orig-server: Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips
x-archive-orig-keep-alive: timeout=5, max=100
x-archive-orig-connection: Keep-Alive
x-archive-orig-x-crawler-transfer-encoding: chunked
x-archive-orig-content-length: 30915
x-archive-guessed-content-type: text/html
x-archive-guessed-charset: utf-8
memento-datetime: Sun, 17 Jan 2021 10:09:44 GMT
link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sun, 17 Jan 2021 10:09:44 GMT", ; rel="memento"; datetime="Sun, 17 Jan 2021 10:09:44 GMT", ; rel="last memento"; datetime="Sun, 17 Jan 2021 10:09:44 GMT"
content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org
x-archive-src: CC-MAIN-2021-04-1610703511903.11-0030/CC-MAIN-20210117081748-20210117111748-00619.warc.gz
server-timing: captures_list;dur=0.500476, exclusion.robots;dur=0.020884, exclusion.robots.policy;dur=0.009572, esindex;dur=0.010388, cdx.remote;dur=22.696232, LoadShardBlock;dur=237.562751, PetaboxLoader3.datanode;dur=73.729042, PetaboxLoader3.resolve;dur=197.157152, load_resource;dur=143.216800
x-app-server: wwwb-app215
x-ts: 200
x-tr: 500
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
perl5.git.perl.org Git - perl5.git/blob - mkppport
1 use strict;
2 use warnings;
4 use Getopt::Long;
5 use File::Spec;
6 use File::Compare qw( compare );
7 use File::Copy qw( copy );
8 use File::Basename qw( dirname );
10 use feature 'signatures';
11 no warnings 'experimental::signatures';
13 my $rootdir = dirname($0);
15 unshift @INC, File::Spec->catdir($rootdir, qw(cpan ExtUtils-MakeMaker t lib));
17 eval q{ use MakeMaker::Test::Utils qw( which_perl ) };
18 $@ and die $@;
20 my %opt = (
21 list => File::Spec->catfile($rootdir, 'mkppport.lst'),
22 clean => 0,
23 );
25 unless ( GetOptions(\%opt, qw( clean list=s )) ) {
26 require Pod::Usage;
27 Pod::Usage::pod2usage(2);
28 }
30 my $absroot = File::Spec->rel2abs($rootdir);
31 my @destdirs = readlist($opt{list});
33 # Nothing to do...
34 unless (@destdirs) {
35 print "no destination directories found in $opt{list}\n";
36 exit 0;
37 }
39 # Remove all installed ppport.h files
40 if ($opt{clean}) {
41 iterdirs( sub ($dir, $fulldir) {
42 my $dest = File::Spec->catfile($fulldir, 'ppport.h');
43 if (-f $dest) {
44 print "removing ppport.h for $dir\n";
45 unlink $dest or warn "WARNING: could not remove $dest: $!\n";
46 1 while unlink $dest; # remove any remaining versions
47 }
48 } );
49 exit 0;
50 }
52 # Determine full perl location
53 my $perl = which_perl();
55 # We're now changing the directory, which confuses the deferred
56 # loading in Config.pm, so we better use an absolute @INC path
57 unshift @INC, File::Spec->catdir($absroot, 'lib');
59 # Change to Devel::PPPort directory, as it needs the stuff
60 # from the parts/ directory
61 chdir File::Spec->catdir($rootdir, 'dist', 'Devel-PPPort');
63 # Capture and remove temporary files
64 my @unlink;
66 END {
67 for my $file (@unlink) {
68 print "removing temporary file $file\n";
69 unlink $file or warn "WARNING: could not remove $file: $!\n";
70 1 while unlink $file; # remove any remaining versions
71 }
72 }
74 # Try to create a ppport.h if it doesn't exist yet, and
75 # remember all files that need to be removed later.
76 unless (-e 'ppport.h') {
77 unless (-e 'PPPort.pm') {
78 run('PPPort_pm.PL');
79 push @unlink, 'PPPort.pm';
80 }
81 run('ppport_h.PL');
82 push @unlink, 'ppport.h';
83 }
85 # Now install the created ppport.h into extension directories
86 iterdirs( sub ($dir, $fulldir) {
87 my $dest = File::Spec->catfile($fulldir, 'ppport.h');
88 if (compare('ppport.h', $dest)) {
89 print "installing ppport.h for $dir\n";
90 copy('ppport.h', $dest) or die "copying ppport.h to $dest failed: $!\n";
91 }
92 else {
93 print "ppport.h in $dir is up-to-date\n";
94 }
95 } );
97 exit 0;
99 #---------------------------------------
100 # Iterate through extension directories
101 #---------------------------------------
102 sub iterdirs($code)
103 {
104 for my $dir (@destdirs) {
105 my $fulldir = File::Spec->catdir($absroot, $dir);
106 if (-d $fulldir) {
107 $code->($dir, $fulldir);
108 }
109 else {
110 warn "WARNING: no such directory: $fulldir\n";
111 }
112 }
113 }
115 #----------------------------------------
116 # Read the list of extension directories
117 #----------------------------------------
118 sub readlist($list)
119 {
120 my @dirs;
121 open LIST, $list or die "$list: $!\n";
122 while (<LIST>) {
123 chomp;
124 /^\s*(?:$|#)/ or push @dirs, $_;
125 }
126 close LIST;
127 return @dirs;
128 }
130 #----------------------------------------------
131 # Runs a script in the Devel::PPPort directory
132 #----------------------------------------------
133 sub run
134 {
135 my @args = ("-I" . File::Spec->catdir((File::Spec->updir) x 2, 'lib'), @_);
136 my $run = $perl =~ m/\s/ ? qq("$perl") : $perl;
137 for (@args) {
138 $_ = qq("$_") if $^O eq 'VMS' && /^[^"]/;
139 $run .= " $_";
140 }
141 print "running $run\n";
142 system $run and die "$run failed: $?\n";
143 }
145 __END__
147 =head1 NAME
149 mkppport - distribute ppport.h among extensions
151 =head1 SYNOPSIS
153 mkppport [B<--list>=I<file>] [B<--clean>]
155 =head1 DESCRIPTION
157 B<mkppport> generates a I<ppport.h> file using Devel::PPPort
158 and distributes it to the various extension directories that
159 need it to build. On certain Win32 builds, this script is not
160 used and an alternative mechanism is used to create I<ppport.h>.
162 =head1 OPTIONS
164 =over 4
166 =item B<--list>=I<file>
168 Name of the file that holds the list of extension directories
169 that I<ppport.h> should be distributed to.
170 This defaults to I<mkppport.lst> in the same directory as this
171 script.
173 =item B<--clean>
175 Run with this option to clean out all distributed I<ppport.h> files.
177 =back
179 =head1 COPYRIGHT
181 Copyright 2006 by Marcus Holland-Moritz <mhx@cpan.org>.
183 This program is free software; you may redistribute it
184 and/or modify it under the same terms as Perl itself.
186 =cut