1 | #!/bin/env perl -w |
---|
2 | |
---|
3 | # A first attempt at some automated support for making a perl release. |
---|
4 | # Very basic but functional - if you're on a unix system. |
---|
5 | # |
---|
6 | # No matter how automated this gets, you'll always need to read |
---|
7 | # and re-read pumpkin.pod checking for things to be done at various |
---|
8 | # stages of the process. |
---|
9 | # |
---|
10 | # Tim Bunce, June 1997 |
---|
11 | |
---|
12 | use ExtUtils::Manifest qw(fullcheck); |
---|
13 | |
---|
14 | $|=1; |
---|
15 | $relroot = ".."; # XXX make an option |
---|
16 | |
---|
17 | die "Must be in root of the perl source tree.\n" |
---|
18 | unless -f "./MANIFEST" and -f "patchlevel.h"; |
---|
19 | |
---|
20 | open PATCHLEVEL,"<patchlevel.h" or die; |
---|
21 | my @patchlevel_h = <PATCHLEVEL>; |
---|
22 | close PATCHLEVEL; |
---|
23 | my $patchlevel_h = join "", grep { /^#\s*define/ } @patchlevel_h; |
---|
24 | print $patchlevel_h; |
---|
25 | $revision = $1 if $patchlevel_h =~ /PERL_REVISION\s+(\d+)/; |
---|
26 | $patchlevel = $1 if $patchlevel_h =~ /PERL_VERSION\s+(\d+)/; |
---|
27 | $subversion = $1 if $patchlevel_h =~ /PERL_SUBVERSION\s+(\d+)/; |
---|
28 | die "Unable to parse patchlevel.h" unless $subversion >= 0; |
---|
29 | $vers = sprintf("%d.%d.%d", $revision, $patchlevel, $subversion); |
---|
30 | $vms_vers = sprintf("%d_%d_%d", $revision, $patchlevel, $subversion); |
---|
31 | |
---|
32 | # fetch list of local patches |
---|
33 | my (@local_patches, @lpatch_tags, $lpatch_tags); |
---|
34 | @local_patches = grep { /^static.*local_patches/../^};/ } @patchlevel_h; |
---|
35 | @local_patches = grep { !/^\s*,?NULL/ } @local_patches; |
---|
36 | @lpatch_tags = map { /^\s*,"(\w+)/ } @local_patches; |
---|
37 | $lpatch_tags = join "-", @lpatch_tags; |
---|
38 | |
---|
39 | $perl = "perl-$vers"; |
---|
40 | $reldir = "$perl"; |
---|
41 | $reldir .= "-$lpatch_tags" if $lpatch_tags; |
---|
42 | |
---|
43 | print "\nMaking a release for $perl in $relroot/$reldir\n\n"; |
---|
44 | |
---|
45 | print "Cross-checking the MANIFEST...\n"; |
---|
46 | ($missfile, $missentry) = fullcheck(); |
---|
47 | warn "Can't make a release with MANIFEST files missing.\n" if @$missfile; |
---|
48 | warn "Can't make a release with files not listed in MANIFEST.\n" if @$missentry; |
---|
49 | if ("@$missentry" =~ m/\.orig\b/) { |
---|
50 | # Handy listing of find command and .orig files from patching work. |
---|
51 | # I tend to run 'xargs rm' and copy and paste the file list. |
---|
52 | my $cmd = "find . -name '*.orig' -print"; |
---|
53 | print "$cmd\n"; |
---|
54 | system($cmd); |
---|
55 | } |
---|
56 | die "Aborted.\n" if @$missentry or @$missfile; |
---|
57 | print "\n"; |
---|
58 | |
---|
59 | # VMS no longer has hardcoded version numbers descrip.mms |
---|
60 | #print "Updating VMS version specific files with $vms_vers...\n"; |
---|
61 | #system("perl -pi -e 's/^\QPERL_VERSION = \E\d\_\d+(\s*\#)/PERL_VERSION = $vms_vers$1/' vms/descrip.mms"); |
---|
62 | |
---|
63 | |
---|
64 | |
---|
65 | print "Creating $relroot/$reldir release directory...\n"; |
---|
66 | die "$relroot/$reldir release directory already exists\n" if -e "$relroot/$reldir"; |
---|
67 | die "$relroot/$reldir.tar.gz release file already exists\n" if -e "$relroot/$reldir.tar.gz"; |
---|
68 | mkdir("$relroot/$reldir", 0755) or die "mkdir $relroot/$reldir: $!\n"; |
---|
69 | print "\n"; |
---|
70 | |
---|
71 | |
---|
72 | print "Copying files to release directory...\n"; |
---|
73 | # ExtUtils::Manifest maniread does not preserve the order |
---|
74 | $cmd = "awk '{print \$1}' MANIFEST | cpio -pdm $relroot/$reldir"; |
---|
75 | system($cmd) == 0 or die "$cmd failed"; |
---|
76 | print "\n"; |
---|
77 | |
---|
78 | chdir "$relroot/$reldir" or die $!; |
---|
79 | |
---|
80 | print "Setting file permissions...\n"; |
---|
81 | system("find . -type f -print | xargs chmod -w"); |
---|
82 | system("find . -type d -print | xargs chmod g-s"); |
---|
83 | system("find t -name '*.t' -print | xargs chmod +x"); |
---|
84 | my @exe = qw( |
---|
85 | Configure |
---|
86 | configpm |
---|
87 | embed.pl |
---|
88 | installperl |
---|
89 | installman |
---|
90 | keywords.pl |
---|
91 | opcode.pl |
---|
92 | perly.fixer |
---|
93 | t/TEST |
---|
94 | t/*/*.t |
---|
95 | *.SH |
---|
96 | vms/ext/Stdio/test.pl |
---|
97 | vms/ext/filespec.t |
---|
98 | x2p/*.SH |
---|
99 | Porting/patchls |
---|
100 | Porting/makerel |
---|
101 | ); |
---|
102 | system("chmod +x @exe"); |
---|
103 | |
---|
104 | my @writables = qw( |
---|
105 | embed.h |
---|
106 | embedvar.h |
---|
107 | ext/B/B/Asmdata.pm |
---|
108 | ext/ByteLoader/byterun.c |
---|
109 | ext/ByteLoader/byterun.h |
---|
110 | global.sym |
---|
111 | keywords.h |
---|
112 | lib/warnings.pm |
---|
113 | objXSUB.h |
---|
114 | opcode.h |
---|
115 | pp.sym |
---|
116 | pp_proto.h |
---|
117 | regnodes.h |
---|
118 | warnings.h |
---|
119 | win32/config_H.bc |
---|
120 | win32/config_H.gc |
---|
121 | win32/config_H.vc |
---|
122 | ); |
---|
123 | system("chmod +w @writables"); |
---|
124 | |
---|
125 | print "Adding CRs to DOSish files...\n"; |
---|
126 | my @crlf = qw( |
---|
127 | djgpp/configure.bat |
---|
128 | README.dos |
---|
129 | README.win32 |
---|
130 | win32/Makefile |
---|
131 | win32/makefile.mk |
---|
132 | ); |
---|
133 | system("perl -pi -e 's/\$/\\r/' @crlf"); |
---|
134 | print "\n"; |
---|
135 | |
---|
136 | chdir ".." or die $!; |
---|
137 | |
---|
138 | print "Creating and compressing the tar file...\n"; |
---|
139 | my $src = (-e $perl) ? $perl : 'perl'; # 'perl' in maint branch |
---|
140 | $cmd = "tar cf - $reldir | gzip --best > $reldir.tar.gz"; |
---|
141 | system($cmd) == 0 or die "$cmd failed"; |
---|
142 | print "\n"; |
---|
143 | |
---|
144 | system("ls -ld $perl*"); |
---|