This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update the lists of files that makerel needs to process. Remove the
authorNicholas Clark <nick@ccl4.org>
Fri, 9 Feb 2007 12:20:49 +0000 (12:20 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 9 Feb 2007 12:20:49 +0000 (12:20 +0000)
"used only once" warning.

p4raw-id: //depot/perl@30178

Porting/makerel

index d4022bb..bb56375 100644 (file)
@@ -27,7 +27,6 @@ $patchlevel = $1 if $patchlevel_h =~ /PERL_VERSION\s+(\d+)/;
 $subversion = $1 if $patchlevel_h =~ /PERL_SUBVERSION\s+(\d+)/;
 die "Unable to parse patchlevel.h" unless $subversion >= 0;
 $vers = sprintf("%d.%d.%d", $revision, $patchlevel, $subversion);
-$vms_vers = sprintf("%d_%d_%d", $revision, $patchlevel, $subversion);
 
 # fetch list of local patches
 my (@local_patches, @lpatch_tags, $lpatch_tags);
@@ -57,10 +56,6 @@ die "Aborted.\n" if @$missentry or @$missfile;
 print "\n";
 
 # VMS no longer has hardcoded version numbers descrip.mms
-#print "Updating VMS version specific files with $vms_vers...\n";
-#system("perl -pi -e 's/^\QPERL_VERSION = \E\d\_\d+(\s*\#)/PERL_VERSION = $vms_vers$1/' vms/descrip.mms");
-
-
 
 print "Creating $relroot/$reldir release directory...\n";
 die "$relroot/$reldir release directory already exists\n"   if -e "$relroot/$reldir";
@@ -92,7 +87,6 @@ my @exe = qw(
     installman
     keywords.pl
     opcode.pl
-    perly.fixer
     t/TEST
     *.SH
     vms/ext/Stdio/test.pl
@@ -128,8 +122,6 @@ my @writables = qw(
     pod/perlapi.pod
     perlapi.h
     perlapi.c
-    ext/ByteLoader/byterun.h
-    ext/ByteLoader/byterun.c
     ext/B/B/Asmdata.pm
     ext/Devel/PPPort/PPPort.xs
     ext/Devel/PPPort/module2.c
@@ -137,15 +129,12 @@ my @writables = qw(
     regnodes.h
     warnings.h
     lib/warnings.pm
-    vms/perly_c.vms
-    vms/perly_h.vms
     win32/Makefile
+    win32/Makefile.ce
     win32/makefile.mk
     win32/config_H.bc
     win32/config_H.gc
     win32/config_H.vc
-    wince/config_H.ce
-    wince/Makefile.ce
 );
 system("chmod +w @writables") == 0
     or die "system: $!";
@@ -163,11 +152,12 @@ my @crlf = qw(
     symbian/README
     symbian/xsbuild.pl
     win32/Makefile
+    win32/Makefile.ce
+    win32/ce-helpers/compile-all.bat
+    win32/ce-helpers/compile.bat
+    win32/ce-helpers/registry.bat
+    win32/distclean.bat
     win32/makefile.mk
-    wince/Makefile.ce
-    wince/compile-all.bat
-    wince/README.perlce
-    wince/registry.bat
 );
 system("perl -pi -e 's/\\015*\\012/\\015\\012/' @crlf") == 0
     or die "system: $!";