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:
Jarkko Hietaniemi
Date:
January 20, 2001 20:23
Subject:
Re: 8482 busted for $^V sprintf()s on OS/390
Message ID:
20010120222249.Y22573@chaos.wustl.edu
> > 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 :-)

> SV = PV(0x140001ec0) at 0x140001b40
>   REFCNT = 1
>   FLAGS = (POK,READONLY,pPOK,UTF8)
>   PV = 0x140014030 "128.256"\0
>   CUR = 7
>   LEN = 9
> 
> Ho-hum, what's the UTF8 flag doing in there?  It's not wrong as
> such -- in ASCII, that is.  In EBCDIC, that's bad news since the
> digits are >127.

Off-hand, I think only the %s and %c formats should generate UTF-8,
and only if needed (DO_UTF8(sv) or c > 255).

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

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