Re: 8482 busted for $^V sprintf()s on OS/390

Front page | perl.perl5.porters | Postings from January 2001

Re: 8482 busted for $^V sprintf()s on OS/390

Thread Previous | Thread Next

From:

Peter Prymmer

Date:

January 22, 2001 13:22

Subject:

Re: 8482 busted for $^V sprintf()s on OS/390

Message ID:

Pine.OSF.4.10.10101221317130.270270-100000@aspara.forte.com



On Mon, 22 Jan 2001, Jarkko Hietaniemi wrote:

> What do
> 
> 	./perl -Ilib -MDevel::Peek -e 'Dump(v127)'

V = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8c9fc8 "\""\0
  CUR = 1
  LEN = 6

> 	./perl -Ilib -MDevel::Peek -e 'Dump(v128)'

SV = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8c9fc8 "\200"\0
  CUR = 1
  LEN = 6

> 	./perl -Ilib -MDevel::Peek -e 'Dump(v256)'

V = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK,UTF8)
  PV = 0x1a8c9fc8 "D\200"\0
  CUR = 2
  LEN = 6

> 	./perl -Ilib -MDevel::Peek -e 'Dump(v256.128.127)'

SV = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK,UTF8)
  PV = 0x1a8c9fc8 "D\200B\200\""\0
  CUR = 5
  LEN = 6

> 	./perl -Ilib -MDevel::Peek -e 'Dump(v5)'

$ ./perl -Ilib -MDevel::Peek -e 'Dump(v5)'
SV = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8c9fc8 "\5"\0
  CUR = 1
  LEN = 6

> 	./perl -Ilib -MDevel::Peek -e 'Dump(v5.7)'

SV = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8c9fc8 "\5\7"\0
  CUR = 2
  LEN = 6

> 	./perl -Ilib -MDevel::Peek -e 'Dump(v5.7.0)'

SV = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8c9fc8 "\5\7\0"\0
  CUR = 3
  LEN = 6

> 	./perl -Ilib -MDevel::Peek -e 'Dump(v5.7.256)'

SV = PV(0x1a8c4090) at 0x1a8c3e48
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK,UTF8)
  PV = 0x1a8c9fc8 "\5\7D\200"\0
  CUR = 4
  LEN = 6

> 
> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v127)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8ca048 "127"\0
  CUR = 3
  LEN = 5

> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v128)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8ca048 "128"\0
  CUR = 3
  LEN = 5

> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v256)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8ca048 "256"\0
  CUR = 3
  LEN = 5

> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v256.128.127)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8ca038 "256.128.127"\0
  CUR = 11
  LEN = 13

> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v5)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8ca048 "5"\0
  CUR = 1
  LEN = 3

> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v5.7)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8ca038 "5.7"\0
  CUR = 3
  LEN = 5

> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v5.7.0)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8ca048 "5.7.0"\0
  CUR = 5
  LEN = 7

> 	./perl -Ilib -MDevel::Peek -e 'Dump(sprintf "%vd", v5.7.256)'

SV = PV(0x1a8c4180) at 0x1a8c3e78
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK)
  PV = 0x1a8d1c00 "5.7.256"\0
  CUR = 7
  LEN = 9

> show to you in OS/390?  Latest snapshot (8506), if possible.

Reported results were from a static build of the 8506 kit, which BTW
built without configpm or perlbug.PL trouble and reports this 
`make test` result:

Failed 12 test scripts out of 265, 95.47% okay.

u=11.71  s=3.9  cu=467.12  cs=155.7  scripts=265  tests=18009

Peter Prymmer

Thread Previous | Thread Next