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 12use ExtUtils::Manifest qw(fullcheck); 13 14$|=1; 15$relroot = ".."; # XXX make an option 16 17die "Must be in root of the perl source tree.\n" 18 unless -f "./MANIFEST" and -f "patchlevel.h"; 19 20$patchlevel_h = `grep '#define ' patchlevel.h`; 21print $patchlevel_h; 22$patchlevel = $1 if $patchlevel_h =~ /PATCHLEVEL\s+(\d+)/; 23$subversion = $1 if $patchlevel_h =~ /SUBVERSION\s+(\d+)/; 24die "Unable to parse patchlevel.h" unless $subversion > 0; 25$vers = sprintf("5.%03d", $patchlevel); 26$vers.= sprintf( "_%02d", $subversion) if $subversion; 27 28$perl = "perl$vers"; 29$reldir = "$relroot/$perl"; 30$reldir .= "-$ARGV[0]" if $ARGV[0]; 31 32print "\nMaking a release for $perl in $reldir\n\n"; 33 34 35print "Cross-checking the MANIFEST...\n"; 36($missfile, $missentry) = fullcheck(); 37warn "Can't make a release with MANIFEST files missing.\n" if @$missfile; 38warn "Can't make a release with files not listed in MANIFEST.\n" if @$missentry; 39if ("@$missentry" =~ m/\.orig\b/) { 40 # Handy listing of find command and .orig files from patching work. 41 # I tend to run 'xargs rm' and copy and paste the file list. 42 my $cmd = "find . -name '*.orig' -print"; 43 print "$cmd\n"; 44 system($cmd); 45} 46die "Aborted.\n" if @$missentry or @$missfile; 47print "\n"; 48 49 50print "Setting file permissions...\n"; 51system("find . -type f -print | xargs chmod -w"); 52system("find . -type d -print | xargs chmod g-s"); 53system("find t -name '*.t' -print | xargs chmod +x"); 54system("chmod +w configure"); # special case (see pumpkin.pod) 55@exe = qw( 56 Configure 57 configpm 58 configure 59 embed.pl 60 installperl 61 installman 62 keywords.pl 63 myconfig 64 opcode.pl 65 perly.fixer 66 t/TEST 67 t/*/*.t 68 *.SH 69 vms/ext/Stdio/test.pl 70 vms/ext/filespec.t 71 vms/fndvers.com 72 x2p/*.SH 73 Porting/patchls 74 Porting/makerel 75); 76system("chmod +x @exe"); 77print "\n"; 78 79 80print "Creating $reldir release directory...\n"; 81die "$reldir release directory already exists\n" if -e "../$perl"; 82die "$reldir.tar.gz release file already exists\n" if -e "../$reldir.tar.gz"; 83mkdir($reldir, 0755) or die "mkdir $reldir: $!\n"; 84print "\n"; 85 86 87print "Copying files to release directory...\n"; 88# ExtUtils::Manifest maniread does not preserve the order 89$cmd = "awk '{print \$1}' MANIFEST | cpio -pdm $reldir"; 90system($cmd) == 0 or die "$cmd failed"; 91print "\n"; 92 93chdir $relroot or die $!; 94 95print "Creating and compressing the tar file...\n"; 96$cmd = "tar cf - $perl | gzip --best > $perl.tar.gz"; 97system($cmd) == 0 or die "$cmd failed"; 98print "\n"; 99 100system("ls -ld $perl*"); 101