Rob Dixon schreef:
> Dr.Ruud wrote:

>> That Data::Dumper prefers to print the numeric face of the variable,
>> if available, is a matter of choice inside the code of Data::Dumper.
>> Maybe the other modules that you use, have Data::Dumper embedded?
>
> That is not true.

I am not sure which of the above you consider not true, so I'll show it
with a variant of your own code.
My "if available" is equivalent to the "PVIV with IOK" that Devel::Peek
shows.

$ perl -wle'
use strict;
use warnings;

use Devel::Peek qw/Dump/;

my $s = "1234";
Dump $s;

1 if $s == 0;
Dump $s;

1 if $s eq "foo";
Dump $s;
'
SV = PV(0x89b2ef8) at 0x89c8c30
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)
  PV = 0x89c2030 "1234"\0
  CUR = 4
  LEN = 5
SV = PVIV(0x89b3308) at 0x89c8c30
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,POK,pIOK,pPOK)
  IV = 1234
  PV = 0x89c2030 "1234"\0
  CUR = 4
  LEN = 5
SV = PVIV(0x89b3308) at 0x89c8c30
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,POK,pIOK,pPOK)
  IV = 1234
  PV = 0x89c2030 "1234"\0
  CUR = 4
  LEN = 5

The second dump shows that both IOK and POK are. In that case
Data::Dumper (takes the choice and) prefers the numeric
variant/face/value/representation.

-- 
Affijn, Ruud

"Gewoon is een tijger."


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to