On Tue 10 Sep 2002 22:36, Andy Dougherty <[EMAIL PROTECTED]> wrote:
> On Tue, 10 Sep 2002, H.Merijn Brand wrote:
>
> > All patches concerning changes Configure from 17671 .. 17881
> > are now backported to the metaunits :)
> >
> > More actions needed?
>
> U/mksample will re-generate Porting/config* and Porting/Glossary
> (make sure you hand-edit U/mkglossary to point to where your dist units
> are located). You might want to adjust the Configure options in
> U/mksample to suit your system (e.g. whatever 64-bitness you want to
> go with). It's not strictly necessary, but it's good housekeeping.
l1:/pro/3gl/CPAN/perl-current 120 > U/mkglossary | diff - Porting/Glossary
U/mkglossary: couldn't find PERL_API_REVISION
U/mkglossary: couldn't find PERL_API_SUBVERSION
U/mkglossary: couldn't find PERL_API_VERSION
U/mkglossary: couldn't find PERL_CONFIG_SH
U/mkglossary: couldn't find PERL_PATCHLEVEL
U/mkglossary: couldn't find baserev
U/mkglossary: couldn't find c
U/mkglossary: couldn't find contains
U/mkglossary: couldn't find d_alarm
U/mkglossary: couldn't find d_attribut
U/mkglossary: couldn't find d_bcmp
U/mkglossary: couldn't find d_bcopy
Does this sound a resonable change to mkglossary or did I miss the point
--8<--- U/mkglossary
#!/pro/bin/perl
#use strict;
use warnings;
use File::Basename;
# WARNING: This is site-specific. Change to the location
# where you have installed dist-3.0PL70.
@std_units = glob('/pro/3gl/CPAN/metaconfig/lib/dist/U/*.U');
$PWD = '/pro/3gl/CPAN/perl';
# @std_units = glob('/opt/dist/lib/U/*.U');
# $PWD = '/export/home/doughera/src/perl/p4perl';
-->8---
The following takes away all the warnings, and produces a reasonable diff
--8<--- U/mkglossary
#!/pro/bin/perl
#use strict;
use warnings;
use File::Basename;
# WARNING: This is site-specific. Change to the location
# where you have installed dist-3.0PL70.
@std_units = (glob('/pro/3gl/CPAN/metaconfig/lib/dist/U/*.U'),
glob('/pro/3gl/CPAN/metaconfig/dist-3.0at70b/mcon/U/*.U'));
$PWD = '/pro/3gl/CPAN/perl';
# @std_units = glob('/opt/dist/lib/U/*.U');
# $PWD = '/export/home/doughera/src/perl/p4perl';
-->8---
And wouldn't folded sorting be more DWIM?
# Get the list of config.sh symbols. Be sure this is up to date!
# (I run the U/mksample script first to be sure.)
open(WANTED, "sort -f $PWD/Porting/config.sh|") || die "$0: open $PWD/Wanted: $!\n";
^^
All my diff's so far seem to be mostly repositioning due to different sorts.
Above might unify that
--
H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0 & 633 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
WinNT 4, Win2K pro & WinCE 2.11. Smoking perl CORE: [EMAIL PROTECTED]
http:[EMAIL PROTECTED]/ [EMAIL PROTECTED]
send smoke reports to: [EMAIL PROTECTED], QA: http://qa.perl.org
