>perl -e "use Devel::Peek; $x="Infinity"; Dump($x); $x=Infinity; Dump($x)"
SV = PV(0x22612c) at 0x226000
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x182cb54 "Infinity"\0
CUR = 8
LEN = 12
SV = PV(0x22612c) at 0x226000
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x182cb54 "Infinity"\0
CUR = 8
LEN = 12
>perl -e "use Devel::Peek; $x="-Infinity"; Dump($x); $x=-Infinity; Dump($x)"
SV = PV(0x226150) at 0x226000
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x1835404 "-Infinity"\0
CUR = 9
LEN = 12
SV = PV(0x226150) at 0x226000
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x1835404 "-Infinity"\0
CUR = 9
LEN = 12
####
>perl -le "print 0+(-Infinity)"
0
>perl -le "print 0+('Infinity')"
0
##
##
>perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 817 [257965] provided by ActiveState http://www.ActiveState.com
Built Mar 20 2006 17:54:25
...