1N/A# Copyright 2004 Sun Microsystems, Inc. All rights reserved. 1N/A# Use is subject to license terms. 1N/A#ident "%Z%%M% %I% %E% SMI" 1N/A# This script works out which files from a stock Perl 5.8.3 distribution need 1N/A# to be integrated into ON. It MUST be run inside a stock perl distribution 1N/A# directory AFTER the InstallPerl script has been run, as it uses the contents 1N/A# out which files are needed in ON. The parameter for this script is the name 1N/A# of the output CSV file, which can be viewed in StarOffice. 1N/A# Compare two files, return 0 for different, 1 for the same. 1N/A # Quick check - they must exist and be the same size. 1N/A# %file is indexed by (path, filename) 1N/A# Check cwd is a valid perl build dir. 1N/Adie("Must be run from a perl build directory\n") 1N/A# Open output CSV file. 1N/A# Go through the MANIFEST files, trying to match to installed files. 1N/A # Easy cases: Files that map directly into the install tree 1N/A # Brute force: Compare the manifest file against each file with 1N/A # the same name in the install tree. 1N/A# Intuit where we think the 5.8.x files should go in S10. 1N/A # Some directories and files we can ignore completely, 1N/A # for example other architectures. 1N/A # Stuff that we don't want from the top-level directory. 1N/A # We don't want README and other such files. 1N/A ($f =~ m{^todo}i && $p !~ m{^t/|/t/|/t$})) { 1N/A # Pod files need a little finesse. 1N/A # We don't want any that are links to README files in the 1N/A # top-level directory, unless they are the Solaris or Unicode 1N/A # ones. We also exclude some others that aren't relevant, 1N/A # and include some that would otherwise be missed. 1N/A } elsif (($_) = $f =~ m{(\w+)\.pod$}) { 1N/A } elsif ($_ eq 'delta') { 1N/A # We only want test scripts that are actually run. 1N/A # Anything in the MANIFEST and touched during the 1N/A # build and install should be included. 1N/A# Files that we need to treat specially. 1N/A# Write CSV contents. 1N/Aprint $outfh (qq{"Path","File","mfst","bld","inst","s10"\n});