On Fri 22 Aug 2003 16:13, Abe Timmerman <[EMAIL PROTECTED]> wrote:
> Op een niet al te zonnige zomerdag (Friday 22 August 2003 15:02), schreef
> H.Merijn Brand:
>
> > On Thu 21 Aug 2003 13:45, Abe Timmerman <[EMAIL PROTECTED]> wrote:
> > > Op een zonnige zomerdag (Thursday 21 August 2003 12:48), schreef H.Merijn
> > >
> > > Brand:
> <snip>
> > > Ja, dat kostte me ook een half jaar om te realiseren dat het niet
> > > verstandig is om de cwd weg te gooien (Solaris had het zelfde probleem),
> > > dank je voor de melding.
>
> 1.18.04 rsyncable (and as a snapshot on http://ztreet.xs4all.nl/perl/)
>
> > HP-UX heeft een ander, minstens net zo leuk, probleem(pje) :)))
> >
> > t/get_cpus.........ok 2/3get_ncpu: unknown operationg system at
> > t/get_cpus.t lin e 12
> > t/get_cpus.........ok
> > 1/3 skipped: OS does not seem to be supported (hpux)
>
> Did $^O change for this version?
> Does the command for finding #cpus work? Then I only have to adjust the regex.
>
> /hp-ux/i && do {
^ :(
a5:/u/usr/merijn 101 > perl -le'print $^O'
hpux
a5:/u/usr/merijn 102 >
Has been that way for as long as I can remember
> my @output = grep /^processor/ => `ioscan -fnkC processor`;
a5:/u/usr/merijn 107 > ioscan -fnkC processor
Class I H/W Path Driver S/W State H/W Type Description
===================================================================
processor 0 160 processor CLAIMED PROCESSOR Processor
processor 1 162 processor CLAIMED PROCESSOR Processor
a5:/u/usr/merijn 108 >
> $cpus = scalar @output;
> last OS_CHECK;
> };
>
> Otherwise could you supply an alternative (that doesn't need superuser
> rights)?
a5:/wrk 108 > perl -MUnix::Processors -le'print
join"\t",$_->id,$_->state,$_->type,$_->clock for
@{Unix::Processors->new()->processors}'
0 online HP PA-RISC 2.0 750
1 online HP PA-RISC 2.0 750
a5:/wrk 109 >
Or is that unfair :)
> > t/patcher..........ok 14/32# Failed test (t/patcher.t at line 64)
> > t/patcher..........NOK 15# 'This file just is here to be
> > patch ed!
> > # After a patch a line with the new version should be appended.
> > # VERSION == 19000
> > # VERSION == 20000
> > # '
> > # doesn't match '/^VERSION == 20001$/m'
> > t/patcher..........ok 18/32# Failed test (t/patcher.t at line 83)
>
> <snip>
>
> > 'patch' is een *HP* commando, en wee je gebeente als je GNU patch eerder in
> > je PATH zet. GNU patch heb *ik* ge�nstalleerd als 'npatch', maar ik weet
> > niet hoe anderen daarme omgaan ...
>
> <translation brevity="high">
> patch is a HP command. don't put gnu-patch (named as patch) in you path before
> it. I installed gnu-patch as 'npatch', dunno how others handle this.
> </translation>
>
> On the NetBSD-box I have 'gpatch', and I believe there is also something with
> patch on IRIX, but it's still too hot for the Indy to be switched back on, so
> I cannot check.
>
> I can create a configsmoke.pl question about patch for HPUX, but that won't
> help the test-suite. I'll have to not search for 'patch' on HPUX and put in
> an extra search for 'npatch'.
>
> You'll need to be able to set a valid 'patch' (in s58_config) if you decide to
> use the patchtree function for your DOR patch on 5.8.x.
I know, and I don't use it like that as you know by now. I'm only trying to
help getting T::S the widest available base.
--
H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0, & 5.9.x, and 806 on HP-UX 10.20 & 11.00, 11i,
AIX 4.3, SuSE 8.2, and Win2k. http://www.cmve.net/~merijn/
http://archives.develooper.com/[EMAIL PROTECTED]/ [EMAIL PROTECTED]
send smoke reports to: [EMAIL PROTECTED], QA: http://qa.perl.org
