develooper 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 11:53
Subject:
Re: 8482 busted for $^V sprintf()s on OS/390
Message ID:
Pine.OSF.4.10.10101221153480.270270-100000@aspara.forte.com


On Sat, 20 Jan 2001, Jarkko Hietaniemi wrote:

> > > perl -le 'use Devel::Peek; $a = sprintf "%v", $^V; Dump($a)'
> > 
> > The last one even in a UNIX tells us:
> 
> Uhhh, I should've said: "a variation of the last one", I was using
> sprintf("%vd", v128.256).  My perl version isn't v128.256 :-)

Oops - here we go again.  This is Simon's request:

$ ./perl -le 'use Devel::Peek; $a = sprintf "%vd", $^V; Dump($a)'
SV = PV(0x1a8c4034) at 0x1a8cfe4c
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x1a8c7ba8 "5.7.0"\0
  CUR = 5
  LEN = 6

And here is your example:

$ ./perl -le 'use Devel::Peek; $a = sprintf "%vd", v128.256; Dump($a)'
SV = PV(0x1a8c404c) at 0x1a8cfe54
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x1a8c7ba8 "128.256"\0
  CUR = 7
  LEN = 8

Sorry about the confusion.

Peter Prymmer



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