Re: TS

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