develooper Front page | perl.perl5.build | Postings from September 2002

Re: Backport done

Thread Previous | Thread Next
From:
H.Merijn Brand
Date:
September 11, 2002 01:07
Subject:
Re: Backport done
Message ID:
20020911095055.CEA2.H.M.BRAND@hccnet.nl
On Tue 10 Sep 2002 22:36, Andy Dougherty <doughera@lafayette.edu> 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: smokers@perl.org
http://archives.develooper.com/daily-build@perl.org/   perl-qa@perl.org
send smoke reports to: smokers-reports@perl.org, QA: http://qa.perl.org



Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About